














LILO 庄 ii 











PC-8001 活 用 研究 








執 請 ceNrnrs 


eo の 5 地獄 の 黙示 録 … 〇 eeeenrnnrrn 清水 邦 敏 ノ 宇野 吉 162 
レン と アン で し ウノ ョ レー ノ 1 / モグ ラ ・ タ タキ ーー ドド ドド mi 徳田 進 165 









169 
モニ み cs ワ ログ ラバ の 解析 < ンー Mr.AHIRU 46 177 
モタ " ず ジ リル テン の 利用 法 *… マ ーー デモ: 長谷 正博 50 188 
acNOOK3COE 人 CrOCCCCEG 2 あら 中 村 光 一 53 196 
PC-ASM で ii_oieieeieereereererrrrrrrrrnn 河 村 秀 明 56 205 
2 パス ・ ア セン プラ …" に ( ieieieieenrnirremt 佐々 木 着 哉 69 パック マン …… ド ーー 填 田 一 夫 岡 部 和義 松江 亭 215 
BASIC に よる 逆 ア セン プラ … int 析 田 鷹 男 78 クレ イジ ジー バル ーー シン]302 半 八 02050 つつ バッ 渡辺 卓也 221 
BASIC に よる 改良 版 送 ア セン プラ の ) 隔 27720 が の ーー 人 "CCA22 12202 人 00200og200x000 小松 田 裕 一 225 
BOOCDDCOCOLDCCCCCD 佐藤 実 プ 大 垣 泰 二 84 BUG FIRE 0 eeemeneonrnrnrrnrnrnrnn | 雄 城 嘉 史 230 
BASIC COMPILER で iiinnrereern 高木 秀雄 87 エイ リア ン ・ ラ フォ ー ル … om 芸 夢 狂人 238 
ハン ド ・ コ ン パ イル 入門 … 上 Or の ee mm 丹 曽 久 山門 97 KALAH・GAME に eee 語ら 二 G:245 
オー トト ロー ダー ドド 大 宮 万 102 グラ フィ ッ ク 麻 雀 ゲ ー ム ………… の の roo の の 高嶋 晃 252 
バリ アブ ル ・ リ スト oonennrrrr 仙台 万 多 104 PCG ギ ャ ラク シ ァ ンー ドド 芸 夢 竹 和信 265 
サー チ ・ ダ ンプ ・ プ ログ ラム … で に で に "の の 石井 晴 正 106 ミサ イル ・ コ マン ダー 安倍 昌宏 275 
デー タ ・ プ リン ト ・ ア ウト ・ プ ログ ラム …… 井上 聡 112 スペ ペー スー チ モ イス oooeio 森 羅 万 象 285 
BASIC テ キス ト 番 号 を 0 ? に …… 津 の オケ ラ 115 スタ ー・ ウ ォ ー ズ 国 の 逆襲 ゲー ム ………… 馬 嶋 量 295 
Yo コ た 3 PDgOodRoocoooG8cGcoo ま SPPPPE ES ルリ iD 計 識 | 1 ルー ビッ ク ・ キ ュー ブ プ の 解き 方 …0 の の ((……… 神谷 慎吾 300 
IM グ 3PG3223 換 02 ロラ 8SSyeC2 大 垣 泰 二 120 ルー ビッ ク ・ キ ュー ブ 解 法 プ ログ ラム ……… 横沢 信夫 307 
SAVENS ス 2 の So 昭和 一 桁 130 
アプ ソ ク ケー ショ ン 編 
X-Y プ ロッ タ の 製作 ………imー ド ーー 峰 守 314 
区 宇 静 示 ン ガロ の / ラ 2 に 半 R20 セ ーッ ーー トー … 腐 中 博 見 132 汎用 イン ター フェ イス の 製作 ……… カシ ンプ YOH グ P 323 
視力 検査 プロ グラ ム で me………ooi 森 殺 万 象 140 PROM ラ イタ の 製作 2 た ykce etarerdeecctond 長岡 美紀 雄 328 
テレ ビー アニ 2 タ に に 近藤 亭 148 全 回 路 図 集 ドド ドド mmmrrmn… 333 








邊 上 昌 出 匠 垢 - パー ソナ ル ・ コ ンピュータ を マス ター する / 


ロビ - コ 001 入 門 


圏 名 古屋 市 工業 研究 所 河合 勝 司 











まえ が き ぎ き 


小学 生か ら 大 人 まで , 我が国 も パー ソナ ル ・ コ ンピュータ 


容易 だ と 話し て いま す . 
の 愛好 家 や 利用 者 が 増加 し て きま し た . そし て 大 勢 の 人 が そこ で , ここ で は 基礎 的 事項 を 徹底 的 に 実験 し て みる こ 
マイ コン 教室 や 講習 会 に 参加 し , 勉強 し て いま す . また , と に 重点 を お いて 書き まし た . 法 や , 命令 、 コマ ン 2 
マイ コシ に 関す る 本 が 特別 コー ナー に ずら り と 並ん で いる どの 詳細 な 説明 は メー カー の マニ ュ ア ル を 参照 する に 
書店 き 増 えて きま し た . そし て , 家電 機器 販売 店 に も マイ し , 一 切 。 説明 し て いま せん 。 こ こ に 出 て で くる 実 ! 内 を E 
コン が 並び , いよ いよ パー ツナ ル ・ コ ンピュータ 時 代 の 到 理解 し た 時 点 で メー カー の マニ ュ ア ル の 該当 する 事項 を 読 
米 を 物語 っ そい ます . ん で くだ さい . きっ と , 書い て ある こと が 理解 で きる よう 
筆者 は 哨 和 52 年 か ら 名 右 屋 の 朝日 文化 セン ター で マイ コ に な る と 思い ます . 

ン の 講座 を 担当 し , 多く の 初心 者 の 方 々 と 接し て いま す . 本 書 が 起爆 剤 と な っ て , 1 人 で も 多く の パー ソナ ル ・ コ 
初心 者 が プロ グラ ム を 独力 で 作っ た り , 理解 で きる よう ン ピ ビデ ー タ クタ の ファ ン が 増え , フ パ ー ソ ナル ・ コ ンド ピピ マー クタ を 
に な る こと は , 大 変 、 困 難 な こ と で す が , 勉強 の し か た 駆使 し て , より 豊か な 生活 を お くる 人 々 の 多 か ら ん こと を 
さえ 間違え な けれ ば , 自動 車 の 運転 免許 証 を 取得 する より 祈り ます . 
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当 II 山 和則 川 川 貞 山肌 四 
目標 1 〕 計 < の | 
数 字 , 英字 , カナ 文字 , 特殊 記号 な どの 文字 キー の 押し 方 , ファ ン Pe ey ンジ の 操作 法 
クシ ョ ン ・ キ ー, 画面 制御 用 キー の 機能 と 操作 方 法 を 理解 し ます . 紀 
(目標 2 〕 5 紀 マイ コン を 使う た め に は プロ グラ ム を 作ら な けれ ば な り ま 
CRT デ ィ ス プレ イ の 行 と 桁 の 設定 法 。 カー ソル や スク ロー ル の ミミ 
操作 方 法 。 キャ ラク タ ・ モ ー ド と グラ フィ ッ ク ・ モ ー ド の 制御 法 .。 ま ミ 。 せん . プ ログ ラム は キー ボー ド を 使っ て マイ コン の メモ リ の 
ミミ カラ ー 制 御 の 方 法 に つい て 理解 し ます . 計 中 に 格納 し ます 
串田 有田 2 
図 1-】 キー の 配列 
| 
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図 1-2 グラ フィ ッ ク ・ シ ン ボ ル の キー 配置 


時宜 
LTTT Fezy 下 目 mll [LIL 
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1-3 キー の 分 類 図 





















記号 キー( 数 字 , 英文 字 , 特殊 記号 。 カタ カナ , グラ フィ ッ ク 記 号 ) 
シフ ト ・ キ ー 
SHIFT|, | カナ |, |GRAPH 
ol 


回 隊 
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と さら | 
ルン ルン クン スン ドン 
8 cfxs5] 
リル レル ニレ 2 に テニ 
aa ) [RETURN 


ンス に ラリ エコ 








マイ コン に 接続 し て ある キー ボー ド に は いろ いろ な キー 配 
例 の も の が あり ます が , PC-8001 で は 図 1 - 1 の よう な キー 






































の 配 例 に な っ て いま す . また , マイ コン に は グラ フィ ッ ク 1 2 ||。 | 
が 楽し め る よう に 図 1- 2 の よう な グラ フィ ッ ク 用 の キー 機 
を きる も の も あり ます . | s wl | 
第 1 日 目 は これ ら の キー 操作 を 実際 に マイ コン の キー に さき さ | と 押す と 右 画面 の よう 
りな が ら 実 験 的 に 理 角 マー 貫 8 RS : の キー を 記 の さぶ タ 
わり な が ら 容 喘 的 に 理 館 し 。 キ ー ポ ー ド に 個 れ 、 規 し も 6 2908 に きれ 2 


と を 学習 の 目標 と し ます . 
1| キ ー ボ ー ド の 操作 
回 … RETURN 


マイ コン の キー ボー ド に は だ た くさ ん の キー が 配置 され て mm 
いま す . 数 字 , 英文 字 , 特殊 記号 な どの 一 般 的 な キー と 
その 他 の 特殊 機能 キー に 大 別 で きま す . 

これ か ら , キー の 操作 法 に つい て 学ぶ わけ で す が , 図 1-3 







































































2 の [ETD キー を 電 す と 上行 まれ 。 ター ソル が た に する 
っ に MP4POT Y 直 
@ 数 字 と 英 廊 字 キー @[SHIFT] キ ー を 押し た 人 sl、 の 字 
PC-8001 に 電源 を 投入 する と , ディ スプ レイ 上 に いろ い の A S D が 表示 きれる. 
ろ な メッ セー ジ が 表示 され , 最後 に Ok と 表示 され て キ 
入力 待ち の 状態 に な り ま す . 〔 注 意 〕 

数 字 キ ー や 英文 字 キ ー を 適当 に 押す と , 押さ れ た キー の 1. 数 字 や 英文 字 キ ー を 長く 押し 続け る と 同じ 女 字 が 連続 
娘 字 が ディ スプ レイ に 表示 され ます . この と まき, 英 交 字 は に 表示 きれ る の で , 1 廊 字 だ け 表 示 き せ た い と き は ヾ タッ 
小娘 字 で 表示 され ます . も し , 大 廊 字 を 表示 し た けれ ば , チ ? 打 法 で キー を 押し て くだ さい . 

[SHIFT | キー を 押し た まま 英文 字 キ ー を 押し て くだ さい . 2.Ok と いう 文字 の 下 で つい た り 消 を えた り し て いる (ブリ 





』O 


ンク し て いる ) 四角 の 記号 を を カー ソル と いい ます . カー 


ソル は 押さ れ た キー の 文字 を 表示 する 位置 を 示し て いま す . 


⑯ カ タカ ナ 文 字 キー 

カタ カナ 女 字 を 表示 し た いと き に は キー ボー ド の 右端 下 
の [カナ] キー を 押し て くだ さい . に の まこ ッ ク さ れ ま 
す . ロッ ク を 解除 する た め に は も う 一 度 押し ます . 
カナ | キー が ロッ ク さ れ て いる と き は , すべ て の キー は 
カナ 区 字 の 位置 (キー の 下段 ) の も の が 有効 に な り ま す 


] 
生 旬 厨 暫 | 























[カチ | キー を ロッ ク し て (押し 込ん だ 状態 )、 
ト の キー を 順番 に 押す と 右 画面 の よう に 表 























示さ れ ま す . 

カナ 文字 以外 の と き は , ロッ ク を 解除 (も う 一 度 押 し て 
キー を る 記 ( け < り 目 貞和 モ 語 を 】UIG く だ さい 
@ シ フト ・ キ ー 

SHIFT| キー は 英 大 文字 を 表示 する と き に 使い まし た が 
特殊 記号 や カタ カナ の 小 廊 字 を 表示 する の に も 使い ます 





闘 較 賠 圏 


SHIFT キー を 押し た まま 上 の キー を 
押す と , 右 図 の よう に 表示 され ます 














(注意 〕 

1.|SHIFT| キー は 諾 右 両 便 に あり ます が , どちら の キー を 提 

し て も 機能 は 同じ で す . 

2.|SHIFT | キー は 各 キ ー の 上 段 の 記号 を 表示 する と き に 使わ 
れ ま す . や っ て みて くだ さい . 


























は * 
ア ウ 











[SHirTl カチ | 


カナ 小娘 字 を 表示 させ た いと き に 
は 了 田 ナ | キ ー を ロッ ク し , [SHIFTI キ 
ー を 押し た まま 上 の キー を 押す と 
右 図 の よう に 表示 され ます . 














肢 室 ) メ 字 , 内 E5 トー 


表示 し た い 文 字 , 



























































旬 ス ペー ス ・ キ ー 

女 字 と 廊 字 の 間隔 を と り た いと き な 
を 使い ます . スペ ー ス ・ キ ー は キー ボ 
あり ます . 

この キー は | カナ | キー な どの 影響 
で も その 機能 を 発揮 し ます . 

スペ ー ス ・ キ ー を 押し 続け る と カー ソル だ けが 右 へ 右 へ 
と 動い て いく の が わか り ま す . スペ ー ス は ご の 記号 で 示し 
ER 
@ テ ン ・ キ ー 

キー ボー ド の 大 側 に 20 個 の キー が ひと か た まり に な っ て 
いま す が , この うち , [9]- 限 まで の キー が テン ・ キ ー と 呼 
ば れる キー で , これ ら の キー も | カナ | キー な どの 影響 を 受 
けず , いつ で も その 機能 を 発揮 し ます . 

数 字 入 力 の 場合 は この キー を 使う と 便利 で し ょ う . 右 下 
すみ に ある [RET] キー は [RETURN| キー と 機能 が 同じ で す . 
どちら を 使っ て も か まい ませ ん . 

この 20 個 の キー に ある [*| 時 也 ! El に | の 各 特 殊 記 号 
キー に つい て も | カナ | キー の ロッ ク 状 態 に 影響 され ず に 使 
区 電 0j 
旬 画 面 制御 用 キー 

さて ,。 ディ スプ レイ の 画面 に は いろ いろ な 廊 字 が 表示 さき 
れ て いる と 思い ます が , 黒板 の 字 な ど を 消す よう に ディ ス 
プレ イ の 画面 を 消す に は | 早宮 | と いう , テン ・ キ ー の 式 
上 に 位置 する キー を 使い ます . 

この キー を 押す と , 画面 全体 が 消去 され , カー ソル が 画 
面 の 左上 隅 に 移動 し ます . 


* ど に スペ ー ヌ %・ 
ド の 中 央 最 下 段 








受け な い の で , いつ 
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この キー を 押す と 画面 全体 
が 消去 きれ, カー ソル が 左上 
隅 に 移動 し ます . 








カー ソル だ け を 画面 の 左上 隅 に 移動 する 
に は [SHIF キ ー と [ 話 富 可 キ ー を 用 いま す . 

この 左上 隅 を ホー ム ・ ポ ジ シ ョ ン と 呼び 
ます 。 

この 実験 は 適当 に 画面 に いく つか の 廊 字 を 表示 させ て お いて か ら , 
実行 し て 確か め て くだ さい 











カー ソル を 右 や 左 。 上 や 下 の 方 向 へ 移動 きせ る 隙間 症 
に は テン ・ キ ー の 上 側 に ある || 評 (の キー を 使い ま 


す . 上 段 で 示さ れる 方 向 に は [5HIFT] キ ー を 併用 し ---。 rー ュ 


0 エーー ュ 


人 還 1 











〔 注 意 ] 

1. 同 一 方 向 に 数 行 と か 数 桁 分 だ け 移 動き せ た い と き は キー 
を 押し 続け て くだ さい . 

2. カ ー ソ ル が 最上 行 の 左 は し と か 最 下 行 の 右 は し と か 画面 
の 緑 に ある と き に は , 移動 状態 が 変わ る の で 注意 し て く 
だ さい . 








キー 入力 し た 廊 字 を 取り 消し た いと き 
に は [ 疫 習 キー を 押せ ば ., 直 前 に キー 入力 カー ソル 


EX 田 


し た 文字 を 消去 で きま す . すなわち , カ 
ー ソ ル の 左 1 桁 が 消去 され , カー ソル 
は その 消去 され た 桁 の 位置 に 移動 し ま 
す . 右 図 で d を 消去 する た め に は 了 調 
を 押せ ば よい こと に な り ま す . 


EX 当 ン | 

















カー ソル の 左 数 桁 を 消去 し た いと き は | 章 記 | キー を 消し 
だ た い 数 だ け 押 し ます . や っ て みて くだ さい 

















キー 入力 の 終っ た あと で , 脱字 と か , 
編集 上 , 文字 な ど を 追加 ・ 挿 入 し た い 3 
と き が あり ます . 

その と き に は [SHIF] キ ー と [設計 キー 
を 併用 で 2 文字 の 挿入 を する た め の 空 
自 部 分 を 作り ます . 

右 図 の 場合 、 ま ず カ ー ソ ル を 1 桁 左 tokyo to 
へ 移動 し 、[SHIFT]、 陣 請 を 押す と スペ 
ー ス が 1 個 入 り ま す . 

カー ソル を [SHI 症 [| で スペ ー ス ト 
に も っ て き て , [を キー イン し ます . 














これ ら の 作業 は プロ グラ ム の 修正 時 に よく 行ない ます が , 
ら MM た ら 必 ら ず |RETURN | キー を 押し て カー ソ 
ル を 左端 へ 移動 し て くだ さい . 

後 で プロ グラ ム の 編集 。 デバ ッ ク に つい て は 
が 。 これ は 誰 め 2 が よく く 記 れる と と. で す ^ 

本 の ば どう し た らち ら よ いで じ 和 年 うか 
1 度 。 実際 に 実験 し て みて くだ さい . 


説明 し ます 


画面 制御 キー 


本 カー ソル を 左上 隅 に 移動 する 


ー ソ ル だ け を 左 Fm 本 等 は [SHIFTI キ ー を 使う . 
カー ソル と 左 1 桁 と の 間 に 
スペ ー ス を 入れ る . 
同和 sm 


上 本 | 


カー ソル の 左 1 桁 を 消去 する . 











1 































































































図 1- 4 
品 ら wl| 画面 を クリ ア し , カー ソル を 左上 す 
で と R み に 移 動 する . 
SHIFT | 中 や の E カー ソル だ け を 左上 すみ に 移動 する . 
| ら < ー ソ ル を 上 の 行 に 移動 する . 
| [5H]| * カー ソル を 下 の 行 に 移動 する . 
ち | | カー ソル を 有 に 1 桁 だ け 移動 する . 
SHIFT|| こ カー ソル を 左 に 1 桁 だ け 移動 する 
B 直 | | カー ソル の 左 1 桁 を 消去 する . 
[ カー ソル と 左 1 桁 と の 間 に ス ペー ス 
SHIFT|| BE を 入れ , 石 側 を 移動 する . タ 








プロ グラ ム 修正 用 と し て 下記 の よう な キー も あり ます . 


み ー ン ル よ り 後 ろ に ある . そ 
の 行 の 残り の 行 を すべ て 消去 
す る. 








CTRL|E ィ | ERASE 


CTRLI IN NEXT WORD に み カー ソン ル 








只 記 号 に 続く 敵 交 字 
レ を 石 方 向 へ 移 量 す 





回 
6 
さき 











] 空 由 や 特 味 記号 に 続く 美女 字 
ICTRL Ba BACK WORD に カー ン FE 方 向 へ 移動 す 























際 の その 行 の 残り 
次 の 行 に 
1 


ICTRL| |』<| JUMP WORD 5 すく マル 

















@ グ ラフ ィ ッ ク ・ キ ー 

1 - 2 に は PC-8001 で 入力 で きる グラ フィ ッ ク 記 号 に つい 
て 示し まし た . これ ら の 記号 を 入力 する に は スペ ー ス ・ キ ー 
の 左 隣り に ある [GRAPH| キー を 押し た まま 希望 の グラ フィ 
ッ ク 用 キー を 押す こと に な り ま す . 





[@RAPH キー を 押し た まま 
[ 引 | [@] [Z| の キー を 

順番 に 押し て いく と 右 画 面 
の よう に 年 月 日 と いう グラ 




















フィ ッ ク 文 字 が 表示 され ま 














す . 
ーー ) 
演習 〕 
① 画 面 に 時 ・ 分 ・ 秒 ・10,.000 円 な ど と 表示 し て みて くだ さ 
い . 


(ハート, スペード, ダイ ヤ , クロ ー バ ー の 記号 を 画面 に 
表示 し て みて くだ さい . 





① グ ラフ ィ ッ ク 用 キー を 使っ て , 作 表 する こと を 確か め て 
みて くだ さい . 

②④width, 25 [RETURN| と し て か ら , 同様 な 図 を 作っ て み 
で . ぐ だ 党 W。 


③ 作 表 用 に は テン キー 側 の キー を 使い ます . 
@ プ ログ ラム 停止 用 キー 
実行 中 の プロ グラ ム を 停止 きせ た り , 一 時 中 断 さ せ た り 
し た い 場 合 が 生じ し た と き に は |STOP | キー や |ESC| キー な ど 
を 使い ます . 
⑩ 画 面 を 消去 し て くだ さい …… 室生 | を 押す . 
@ 次 の よう に キー 入力 し て くだ さい . 
(簡単 な 印刷 の プロ グラ ム を マイ コン に 格納 し ます ). 
プロ グラ ム 1- 1 
10. x 王 0 [RETI 
20., x 三 x 十 1 [RETI 
30ー, print x [RET 
40、, goto 20 [RETI| 






























































,O 


キー 操作 を 間 違 が えた 場合 は 前述 し た 通り の や りか た で 直し 
し て くだ さい (カー ソル の 移動 と 娘 字 の 消去 、 挿入 ) 

@list [RET | と キー 入力 し て みて く < 半 
この と き 画 面 に の の 通り の プロ グラ ム ・ リ スト が 表示 され ます . 
も う 一 度 , 間違い が な いか 確認 し て くだ さい (list で 表示 され 
た も の は 大 文字 に な っ て いま す ). 

人 ⑬ 問 違い が あれ ば 再度 入力 し て くだ さい . 

間違い が な けれ ば , run [RET | と キー 0 じ ^ で ぐだ さい 。 キー 
入力 が 終り し だ い , 画面 に 1 か ら 順 番 に 数 値 が 表示 され ます . 

の 数 舘 が 繰り 返し 表示 され て いま す が , ここ で [Esc| キー を 押す 
と 画面 の 動き が 中 断 さ れ ま す . この あと , 任意 の キー を 押す と 
また 再開 され , 引き 続き 画面 が 動き ます . 
























|sToP| キー を 押す と ピー と 鳴っ て Break in XX を 表示 し , フ 
ログ ラム は 完全 に 停止 し ます . 
ここ で メ XX は 20 か 30 か 40 の いずれ か で す . 

⑥ 画 耐 の 最 下端 に 数 値 が 表示 され る た びに 1 行 分 上 に 押し 上 げ ら 
れ , 画面 の 最上 行 の 数 値 が 見 えな くろ な り ま す . この 動き を スク 
ロー ル と 呼ん で いま す . 





ファ ンク ショ ン ・ キ ー 

















































































































1- 5 
f・1| は , カー ソル 移動 (8 桁 単位 ) 
f・2| は , auto 
f・3| は , goto 
f・4| は , list 
f・5| は , run| RETI| 
ISHIFT を 押し た まま 
| |f・| を 押す と time$ 生 の る | 
所 SS2| を 押す と key 9 の 
If・3 を 押す と print ゆら If・8| と する 
| f・ 人 4 を 押す と list. [RET| |f・9| と する 
f・5| を 押す と cont|RET| [fr1ol | と する 


























⑯ 各 ファ ング ジョシ:・ キー に は 以 上 の 定義 以外 に それ ぞ れ 
自由 に 最大 15 文 字 ま で 定義 むす る こと が で きま す . 
定義 き れ て いる 内 容 の 廊 字 表示 は 6 文字 また は 12 廊 字 表 示さ れ 
まま 9 

@⑨@ フ ァ ン クシ ョ ン 
( 例 1) 


・ キ ー の 定義 の し か た 
|f・1 | キー に input を 定義 する に は , 
key1, "inpuf7 RET と し ます . 
( 例 2 ) f・Z| キー に end | RET | を 定義 する 
chr$(19) [RETURN | と し ます . 
ここ で chr$(1 3) は [RETURN | コード を 意味 し ます . 





に は key7end" 十 





倫 フ ァ ン クシ ョ ン ・ キ ー 

run と か print と か gofo み な ど と いう 命令 は よく 使い ます . 
その つど , 1 文字 ずつ キー 入力 を し て も よい の で す が , 避 | 
QITIIOI と 4 回 も キー 入力 する の は 面倒 な の で ,。 これ を 特殊 
な キー に 代行 させ よう と する も の が ファ ンク ショ ン ・ キ ー 
で 3 計 





























キー ボー ド の 最上 段 ( る 5 個 の 大 き な キ ー が ファ ンク 
022 で 5 3 2 
カカ し た の と 同じ こと に な り ま す . 











ここ で , 回 キー は スペ ー ス ・ キ ー を 意味 し ます . 











|[f・1 | キー は カー ソル を 右 へ 8 桁 ず つ 移動 させ る と き に 使い ます . 

@[f・2] キ ー は プロ グラ ム 1 - 1 で 作っ た プロ グラ ム の うち 。 行 番 
号 と いわ れる 10 と か 20 と か 80 な どの も の を 自動 的 に 発生 きせ る 
と き に 使い ます . 
この |[f・2] キー は auto が 定義 され て いま す . auto 機 能 を 解除 し 
た いと き ( 行 番号 を 自動 的 に 表示 させ る の を や め た いと き ) は 
[STOP| キー を 押し て くだ さい 、. 

goto は プロ グラ ム 1- 1 の プロ グラ ム で も 使い まし た が , [3] 
の キー を 1 回 押す だ け で 画面 に goto が 表示 で きま す . 

どの よう な プロ グラ ム が メモ リ に 格納 され て いる の か , その リ 
スト を 画面 に 表示 する と き に 使う の が [f・4| の キー で す . 
この キー は list が 定義 き れ て いる の で [f・4| と [RET| を 押す こ 
と に よっ て 画面 に プロ グラ ム の リス ト を 表示 させ る こと が で き 
まま 

プロ グラ ム を 実行 させ る た め に プロ グラ ム 1 - 1 で は [rlulm| と 3 
回 キー 入力 を し て [RET] キ ー を 押し まし た が , か わり に .,1[ 下 5] 
キー を 1 回 押せ ば プロ グラ ム を 実行 する こと が で きま す . 
どの キー に どん な 機能 が 定義 きれ て いる か は , ディ スプ レイ の 
最 下 行 に 表示 され て いる の で 確か め て くだ さい . 

print な ど は [SHIFT| キー を 押す と ディ スプ レイ の 最 下 行 の 中 央 
に 表示 され て いる の で [SHIFT | キー と [f・3| を 押せ ば print と 
画面 に 表示 で きま す . 
































⑨ 利 ファ ンク ショ ン ・ キ ー が 何 に 定義 きれ て いる か を 確か め る に 
は , 画面 の 最 下 行 の リス ト 表示 を みる こと の ほか に , key list 
[RET | で 画面 に [f・1 | 一 [f-10] まで を 表示 する こと が で きま す 





new[RET| と キー 入力 し て か ら 次 の プロ グラ ム を キー 入 
力 し て 実行 し て みて くだ さい . new コ マン ド は メモ リ に 入 
っ て いる すべ て の プロ グラ ム を 消去 し ます . 





プロ グラ ム 1- 2 





10 LOCATE 31,2:PRINT DATE$ 
20 LOCATE 31, 4:PRINT TIME$S 
30 GOTO 20 











ここ に は 大 廊 字 で 書い て あり ます が , LIST[RET| で 画面 
に 表示 され た も の で す . 最初 は 小娘 字 で キー 入力 する こと 
20: まま 9 

この プロ グラ ム が キー 入力 され だ た あと, 次 の よう に キー 
人 カカ (に で 7 お さき VS、 

















dgie や ー“81 /O1 /O1“ |RET 
fime $ー10: 3O:O4^ |「RET 























これ で マイ コン に 内 蔵 き れ て いる クロ ッ ク に 日 付け と 時 
刻 が セット され まし た . 





BB 宙 ME] キー を 押し て 画面 を 消 到 し, 次 に , [f-5| キー を 
押し で デ ロ グ ラム を 実行 し て の て . く 記さ 5 

















文 時 刻 が 変っ て いく こと を 確か め て 1Z0t 
くだ さい . LUERIURU! 

支 現在 時 刻 に セッ ト し 直し て , 再び 
プログ ラム を 実行 し て み ま し ょ う . 

、 ⑩[STOP] キ ー を 押す 

@time$ ニ XX XX: 
に 現在 の 時 , 分 、 秒 を 入力 する . 

@RUN また は [f・5| を 押す . 














|2] 画 面 の 操作 


マイ コン で は ディ スプ レイ を 使っ て プロ グラ ム を 作っ た 
り , 実行 結果 を 表示 し た り し ます . この 場合 , 文字 の 大 き 
さや , 表示 の 質 が 問題 に な り ま す . 

1 行 に 表示 で きる 桁 数 は 普通 は 40 文 字 で す が , PC-8001 
で は 40 文 字 / 行 の ほか , 36 文 字 / 行 , 72 文 字 / 行 。 80 女 字 / 行 
に し 送り ゆず あるこ と が:G 二 科 23 

同様 に , 行 数 も 20 行 / 画 面 と 25 行 / 画 面 の いずれ か を 選択 
する で の で きき ます :。 

これ ら の 行 数 や 1 行 の 廊 字 数 を 指示 する こと が いつ で も 
で きる の で , プロ グラ ム の 中 で も 画面 を 操作 する こと が で 
きま す . 

その 他 , グラ フィ ッ ク 用 と し て は 画面 が , 横 160 ド ッ ト , 
縦 100 ド ッ ト に 分 解き され て , ドッ ト 表 示 に な り ま す . 

ご の よ 記 に に Ba シ ン タ ( 交 池 )4 モ ーー ド と グラ ジイ ルク 
・ モ ー ド の 2 つが あり ます . 

その 他 , 白黒 モー ド と カラ ー モ ー ド の 切り 換え も で きま 
す . ここ で は , これ ら の 画面 の 操作 法 に つい て 学習 し ます 
久 画 面 の 文字 数 / 行 , 行 数 / 画 面 の 指定 

1 行 に 表示 で きる 廊 字 数 は 通常 は 40 字 に 設定 され て いま 
す . また だ , 行 数 は 20 行 に な っ て いま す . 

も し , 1 行 あ た り に 80 字 を 表示 し , 1 画面 あたり の 行 数 
を 25 行 に し た いと き は , width8O, 25 [RET| と すれ ば , 1 
行 が 80 字 , 25 行 の 画面 に 設定 され ます . 

6 








1 行 を 72 字 20 行 / 画 面 を 設定 する 
に は , width 72, 20 RET と する . 8 

任意 の 女 字 キー を 押し 続け て 表示 き 
れる 文字 数 を 確か め て くだ さい . 











new| RET| を キー 入力 し て か ら 次 の プロ グラ ム を 入力 し て 
くだ さい . 








プロ グラ ム 1-3 





10 Print 画 ”: 
20 Goto 10 


較 は |GRAPH| |:| キ ー を 
押し ます . 











⑩ プ ログ ラム の 入力 が 終っ た ら , 
widfh, 25 RET と キー 入力 し 
た 後 f・5 の キー を 押し て プロ 
グラ ム を 走ら せ て くだ さい . 

@ STOP キー を 押し て プロ グラ 
ム を 停止 させ , 8WF キー を 
押し . 画 面 を クリ ア し て widfth。 
20 RET と し て ff5 を 押し て 
くだ さい . 

@1 行 目 を 2 行 目 の 間 隔 を 比較 
し で 下 ま し ょ う 。 











width を 使っ た 画面 操作 





width < 文字 数 / 行 > < 行 数 / 画 面 > 
8O 2 25 
8Oo > 2O 
Z2 25 
72 9 2O 
4O 25 
4O ま 2O 
36 る 25 
36 2O 


_80, 72, 40, 36 | 


| 
20 ま た は 25 














@ 画 面 モ ー ド (カラ ー 制 御 ) 

ディ スプ レイ の 使用 法 と し て 和 白 黒 で 使う の か , カラ ー で 
使う の か , また は 文字 だ け を 表示 する の か , グラ フ を 描か 
せる の か に よっ て , いろ いろ な 使い 方 が あり ます . 

これ ら の 画面 モー ド を 決め る た め に CONSOLE や , COL 
OR の ステ ー ト メン ト が あり ます . 





console , , ,O RET と キー 入力 し て 
任意 の キー を 押し 続け て くだ さい . 


白黒 で 表示 





@console , ,, 1 RET と キー 入力 し て 
任意 の キー を 押し 続け て くだ さい . 
色 は 白 











&O 


次 に color 2 と キー 入力 し て くだ さ 
い . 
Ok と 赤色 で 表示 され ます . 任意 
の キー を 押し 続け て 赤色 で 文字 が 
表示 され る こと を 確か め て くだ さ 


い . 











し 





color 了 和 0。 4 5 
ん な 色 に な る か 確か め て くだ さい . 


= ド と カラ ー モ ー ド 





console. , , , O 
console  , ,, 1 


白黒 モー ド 
カラ ー モ ー ド 
色 は eolor ※ で 指定 


0 

1 

2 

2 

4 緑 
は stella 

6 

4 




















new|RET| を キー 入力 し , 次 の プロ グラ ム を 入力 し て カ 
ラー デモ ー ド に 慣 沢 まじ よう 。 
プロ グラ ム 1-4 








10 console ,,,1 

20 input 1ー ア マデ ノ カ ズ ノ ウチ ドレ カオ イレ ヨ ": x 
30 color xx 

40 print “カラ ー デ ィ ス プレ イ ノ ジッ ケン 

50 prnt 

60 goto 20 























| で [AUTO|. [RET| キー な ど を 使っ て 上 の プロ グ 

ラム を 入力 KGIKWZSSSNVS ョ 

.@|STOP| キー で プロ グラ ム 入 力 を 終了 し ます . 

|f・5| キー で プロ グラ ム を 実行 し ます . 

@ 画 面 に ? が 表示 され た ら [ ロ ーー の 数 字 キ ー 
押し て くだ さい . 









































を どれ か 1 つ 




















いろ いろ な 数 字 キ ー (| 一 [Z) を 押し て 色 を 確か め て く 
だ さい . 
の キャ ラク タ ・ Fr 人 モー ド 
画面 に グラ フ や 絵 を 描く に は 1 画面 の 密度 を 高く し た 方 
が きれ いな 絵 を 描く Sb 29 きま す . グラ フィ ッ ク ・ モ ー 


ド で ( 5 ャ ラク タ ・ モ ー 
密度 に な り ま す . 

最高 の 1 画面 表示 文字 数 は 80x25 文 字 だ か ら , 160 ド ッ ト 
※100 ド ッ ト の 密度 に な り ま す . 後 の 方 で . グ ラフ ィ ッ クス に 
つい て 詳細 な 説明 を する の で , ここ で は キャ ラク タ ・ モ ドー 
ド と グラ フィ ッ ク ・ モ ー ド の 画面 の 切り 換え 法 に つい で だ 
け 説 明 し ます . 

グラ フィ ッ ク ・ モ ー ド に する に は color ス テー トメ ンド の 
第 3 日 


ド の と き の 2 倍 , 縦 が 4 倍 の 





グラ フィ ッ ク ・ モ ー ド の と き ……… color O, O, 1 
2 シン ンコ ニー ド で の (に color O, O, O 








な に も 指定 し な いと き は キャ ラク タ ・ モ ー ド に 
まま 93 
念 画面 の スク ロー ル 

通常 の 画面 は 最 下行 まで 表示 され る と 次 に 最上 行 が 消え 


な っ て い 


td1 


て し まい , 1 行 ず つ 上 へ 移動 し ます が , この よう 
動き を スク ロー ル と いい ます . 

スク ロー ル す る 行 の 範囲 を 制限 し た いと き な ど 消え て し 
まう 行 を 制御 し た いこ と が あり ます . その た め に は , cons 
ole ス テー トメ ント の 第 1 パラ メー タ と 第 2 パラ メー タ で 指 
示し ます . 


な 画面 の 














new | RET| と キー 入力 し て か ら , 次 の プロ グラ ム を 
を 入力 し て くだ さい . 








プロ グラ ム 1-5 





10 console 5,10, O, O 
20 xーO 
3O xxーx 十 1 
40 print xx 
SO goio 3O 

上 の プロ グラ ム の 入力 が 終わ 
た ら |f・5 | の キー を 押し て 実行 し 
て みて くだ さい . 

スク ロー ル の 開始 行 は 5 行 目 
スク ロー ル の 範囲 は 5 行 目 か ら 
10 行 分 で ある こと が わか り ます . 


この 行 数 だ け 
表示 し て いる 

















console ス テー トメ ント を 使っ て スク ロー ル の 範囲 。 開始 
行 を いろ いろ 変え て 実験 し て みて くだ さい . 
旬 フ ァ ン クシ ョ ン ・ キ ー の 表示 

画面 に ファ ンク ショ ン ・ キ ー の 表示 が いつ も ある の は 目 
ざわ り で ある と か , 応用 プロ グ ヲ ム な どの と き に は 使わ な 
いと か の 事情 で 画面 上 か ら フ ァ ン クシ ョ ン ・ キ ー の 表示 を 
消去 し た いと き が あり ます . その と き に は , console ス テー 











トメ ント の 第 3 パラ メー タ 偽 よっ て 制御 する こと に な っ て 
いま す . 
console 0, 20, 0, 0…… ファ ンク ショ ン ・ コ ー ド 消去 
console 0, 20, 1。 0…… ファ ンク ショ ン ・ コ ー ド 表示 
画面 モー ド 
邊 時 で キャ ラク タ ・ モ ー ド 
自 黒 下 一 ド color O, O, O_ 


console,,,O 白黒 で グラ フィ ッ ク モ ー 訴 
color O,O, 1 
クラー で キャ ラク クタ モー 
color 2.0,O 
カラ ー で グラ フィ ッ ク 庄 証 一 診 
color 6,O,1 


| 


ンー ニコ ーー 
console,,,1 





GOIORSizDVYT で 


⑳ カ ラー モー ド の と き (console,/1 の と き ) に の み 
色 指定 が 有効 と な る . 
color< カ ラー>, <null キ ャ ラク タ 〉、 < く グラフィ ッ ク ・ ス イッ チッ > 
クロ 0 画面 クリ ア 時 グラ フィ ッ ク ・ モ ー ド 





アオ 1 の 表示 文字 1 

アカ 2 通常 は スペ ー キャ ラク タ ・ モ ー ド 
ング ん 8 0 

SS. ド 4 

ンー ペン ン 計ら ) 

キイ ロ 6 

シロ 7 


@console ス テー トメ ント で 自 黒 モ ー ド が 指定 され て い 
る と き は color ス テー トメ ント グ の 第 1 パラ メー タ は 次 








の よう な 機能 と な る 


0 ノー マル 4 リバ ー ス 

1 シー クレ ッ ト 5 リバ ー ス ・: 

2 ヲリ ジ ク 6 リバ ー ス ・ 

3 ジー グッツ ト 7 リ 2 ペ 一 スッ ジー 


第 2 パラ メー タ , 第 3 パラ メー タ に つい て カラ ー モ 
ー ド の と き と 同 機能 で ある . 





白黒 モー ド で の 画面 の 操作 は color ス テー トメ ント に より , 
いろ いろ な 操作 が で きる . 


次 の プロ グラ ム を 入力 し て 実験 し て みて くだ さい . mew 


























RET| を キー 入力 し て か ら プ ログ ラム を 入力 し て くだ さい 
プロ グラ ム 1-6 
10 console 0, 20, 0, 0 
20 jnput x 
30 color x, 0.0 
40 print バ ガメ ン テ ス トン 
50 goto 20 
プロ グラ ム が 入力 で きた ら 実 行 し て みて くだ さい . 入力 
は ? ご ど と に 0 の 2)2802240 り ンジ 4( リ パース), 
6 (リバ パース ・ ブ リン 20 較 3(eー ジ ョ ウト )。 0( ノ ー マ ル ) 


な ど を 順 々 に 入力 し て 確か め て くだ さい . 








の 
の 


SO く 








BI 
目標 〕 
簡単 な 例題 を も と に , パー ソナ ル ・ コ ンピュータ の プロ グラ ム 
は 具体 的 に どの よう に し て 作り , どの よう に し て 実行 し , 結果 を 
得る の か を 知り ます . 
プロ グラ ム の 書き 方 , マイ コン へ の 入れ 方 , プロ グラ ム の 確認 
の 方 法 , 修正 の 方 法 。 実行 の し か た , プロ グラ ム の 停止 法 。 お よ 
び , プロ グラ ム の カセ ッ ト へ の 保存 方 法 ,。 カセ ッ ト か ら , プロ グ 
ラム を マイ コン へ 入れ る 方 法 な ど , プロ グラ ミン グ の 全体 に つい 
て 学習 し , 各 人 の 学習 進度 に 応じ て 2 日 有 目 か ら で も プロ グラ ミン 
グ が で きる よう に し ます 。 
一 lllllllllllll 有 lll 


I1IBASIC プ ログ ラム の 書き 方 


第 1 日 目 で は プロ グラ ム の 説明 を し な いで 実験 的 に 確か 
め て いま す 。 ここ で は ,。 改め て プロ グラ ム の 書き 方 に つい 
て 学び ます . 

プロ グラ ム の 書き 方 と し て は いろ いろ な 方 法 が あ 
が , 入門 時 か ら あ まり 特殊 な 形 の も の は 覚え な 
で し ょ う . で きる だ け , 標準 的 , 
うに し て ぐだ さい 。 

BASIC プ ログ ラム の 基本 形 は 次 の よう な 形 で す . 


当 IM 卓上 軸 臣 





り ま す 
: い 方 が よい 
基本 的 な 形 を 理解 する よ 




































































行 番号 ステー トメント |RET 
行 番号 ステー トメント |RET 
行 番号 ., ス テー トメ ント [RT 
行 番号 END |RET 
ここ で , 行 番号 は 0 一 65529 ま で の 整数 で す . 次 の 一 印 は 
スペ ー ス 記号 で す . ステ ー ト メン ト は , プロ グラ ム が 実行 
きれ だ た とき に 実 際 に 実行 され る 命令 文 で すす. た と そば , P 民 
INT 文 と か INPUT 娘 な ど と いう も の が あり ます . 
RET | は [RETURN | キー を 表わし ます . この キー を 押す こ 
か た SA に 


ー ツ り ツ 


BA 








new RET| キ 
くだ さい . 


ー を 押し て か ら 湊 の プロ グラ ム を 
プロ グラ ム 1-7 





内 放し て 





10 console 0, 20, 0, 1 
20 c 三 rnd(1)*7 十 1 

30 cc 三 int(c) 

40 color cc, 2383, 0 
50 print cc: 

60 goto 20 








〔 演 習 〕 
この プロ グラ ム の 1 部 を 改造 し て あな た の 名 前 を ディ ス 

ブレ イ ( に 表示 し まん し ょ うう: 

〔 注 意 〕 

① 実 行 中 の プロ グラ ム を 停止 する に は [STOP | 
まま 3 

ぐず ⑨ 再 実行 する 





キー を 使い 








H ロ OME 
CLR 








前 に キー で 画面 クリ 7 記 まじ ょ 。 う 5 




























ON 
20 


0 


Ne 


が ラミ ング 人 揚 
IC・ ログ ラ ペン ルク た 
%。 プ ブロ ヴ ラ ミ ング 銘 6/ 





と に よっ て , 初め て 1 行 分 の ステ ー ト メン ト が メモ リ の 中 
へ 格納 され ます . 

最初 の 頃 は この [RET| キー の 意味 が 理解 し に くい よう で す 
が , [RET] キー まで が ひと つの 命令 文 だ と 理解 し て くだ さい 
この こと は , ひと つの 行 番号 に 対す る ステ ー ト メン ト が , 
RET | キー に よっ て , 初め て 区 切ら れ , 他 の 行 番号 の ステ ー 
トメ ント と 区 別 さ れ ま す . 

特に , END ス テー トメ ント の 最後 の 
KGS まとう 

で は , 次 の プロ グラ ム を 作っ て 実行 する こと に し ます . 























RET 





- キ ー を 忘れ な い 























(例題 1 ) 

A 王 10、 B 一 2 と し て その 和 , 差 , 積 を 求め 、 印刷 す 
る プロ グラ ム を 作る . 

【 考 え 方 】 

①A に 10 を 入れ る 100、, LET_、, A= ニ 10 
⑨B に 2 を 入れ る 110、, LET、, B=2 

⑧A, B を 書く . 120., PRINT、, A, B 
(④XーA+B を 計算 する . 130、, LET、, メーATB 
⑤Y=A-ーB を 計算 する . 140、, LET_, YAーB 
⑥ZーAxB を 計算 する . 150., LET_, Zー ニ AXB 
⑦ 答 XX。Y」Z を 書く 。 160., PRINT、, X, Y, 
⑧ 止 まる . 170、, END 

ト 上 の よう な 考え 方 を 具体 的 に BASIC の プロ グラ ム と し て 


書い た も の が , 右側 の プロ グラ ム で す . 

この プロ グラ ム の 書き 方 と し て , 行 番号 は 必ず し も 0 か 
ら 始 まる 必要 は あり ませ ん . ここ で は 100 か ら に し て いま す 
が , これ は 任意 で す . そし て , ここ で は , 10 番 飛び に し , 


次 は 110 と な っ て いま す . 
あと で 女 の 追加 な ど が ある 場合 に も 便利 な よう に あら か 
じ め 飛 ば し た 行 番号 に な っ て いま す . 1 


に よく 使わ れ て いま す . 





』0 


行 番号 と ステ ー ト メン ト の 間 は スペ ー ス を 1 個 以上 入れ 
還 和 2 また, ステー トメ ント と 式 A 三 10, XX 
AB な どの 問 も 一 般 に スペ ー ス を 1 個 入 れ て お いて く 
だ さい . 

プロ グラ ム を 書く 前 に は プロ グラ ム の 左側 に 書い た よう 
な 考え 方 と いう か 算法 ′ と いわ れる も の が 確立 され て い 
な けれ ば な り ま せん . 

簡単 な も の で も 1 ステッ プ ず つ , きち ん と 書き 表わす こ 
と が , 結局 は 速く プロ グラ ム を 完成 きせ る こと に な り ま す 

考え 方 に 少し で も 不明 な と ころ が あっ た り , 不 完全 な と 
ころ が ある と , プロ グラ ム は 書け た と し て も , 実行 で き な 
か っ た だ たり, 答 が 間違っ て いた り 3 その と き は また 最 
初 に 戻っ て 考え 直す と いう こと に な る の で , この 段階 は ね 
ば り 強 く 間 題 を し っ か り 理 解 し , 相 理 し 2 才 え が を ま と 
め る こと が 大 切 で す . 

マイ コ AN は 必要 な と き に 調べ , 使っ て いく うち に 
自然 と 使い 方 も 身 に つい て くる の で , あわ て ず , ゆっ くり 
と , 着実 に 基礎 事項 を 理解 する こと に 努め て くだ さい . 

〔 注 意 〕 

ステ ー ト メン ト LET は 省略 で きる の で 一 胃 

使わ れ て いま す . 


に は 省略 形 が 





回 = A=10 LU 
LET Bー2 ーーー タ 日 三 2 
LET X 王 A 二 B ロ ーー X 三 A +B 








の と き は , END ス テー トメ ント を 入力 後 , AUTO 機 
トド し た 後 , 新た に 。 削 違っ た ステ ー ト メン ト の 行 
と ステ ー ト メ の を 2 カレ し で く だ さい い 、 





図 2-1 





100 








図 2-2 


央 





AUTO 100 
100 a=10 
MIU 器 | 











図 2-3 


| 





な ど と 書く こと が よく あり ます . 
(演習 〕 例題 1 の LET 女 を 省略 形 で 書い て くだ さい . 


2| プ ログ ラム の マイ コン へ の 格納 法 
肖 題 の 解法 が まとまり , プロ グラ ム が 書け た ら , 次 は い 


よい よ マ イコ ン の メモ リ の 中 へ プロ グラ ム を 格納 する こと 
に な り ま す . 次 に その 手順 を 示し ます . 

















⑯[HOME CLR | キー を 押し て 画面 を 消去 し て くだ さい. 
@NI[EIWM の キー を 押し て NEW コ マン ド を 実行 し . 以前 の プ 
ログ ラム を すべ て 消去 する (以前 に 作っ て メモ リ に 格納 
し て ある プロ グラ ム を 消去 し た く な いと き は , この NEW 
コマ ンド を 使っ て は いけ ませ ん ). 
ファ ンク ショ ン ・ キー|f・2| を 押し , 最初 の 行 番号 が 100 
な の で HOI[O| の キー を 押し て [RET| キー を 押す . 
この 時 点 で の 画面 は 図 2-1 の よ うに な っ て いる こと を 確 
認 し て ください. 
@AI | 1 [O| を キー 入力 する . [RET| キー を 押す . 
この 時 点 で の 画面 は 図 2-2 の よう に な っ て いる こと を 確 
か め て くだ さい . 
以下 同様 に 各行 番号 に 相当 する ステ ー ト メン ト を 入力 し 
て いき ます . 









































END ス テー トメ ント を 入力 し た 後 は , 図 2-3 の よう に な り . 


ここ で [STOP | キー を 押し て AUTO 機 能 を 解除 し ます . 
以上 で , プロ グラ ム が メモ リ の 中 へ 格納 され た こと に な 
り ます . 
それ で は , 本 当 に 格納 され て いる か どう か 確か め る に は 
どう し た ら よ い の で し ょ うか . 
〔 注 意 〕 
プロ グラ ム を 格納 中 に キー 入力 な どの ミス を し た 場合 に 
は , 
⑩|B 記 | キー で 抹消 し て くだ さい . 
@ 1 行 単位 で 間違え た と き は , - 間 違え た まま に し て [RET 
キー を 押し , 決 の 行 番号 の ステ ー ト メン ト を 入力 し て く 

















10 





160 print 一 xX, y, z 


AT| 
IiU 呈 | 











1 | 


[3|] プ ログ ラム ・ リ スト の 確認 法 


マイ コン の メモ リ へ 格納 され た プロ グラ ム の リス ト を 確 
誰 し た い 場 合 が あり ます が , この と き は , LIST コマ ンド を 
使っ て 画面 に プア ログ ラム ・ リ スト を 表示 させ ます . 

2.2 で ブフ ログ ラム 入力 後 , AUTO 機 能 を 解除 する た め , [5 
TOP| キー を 押し た 後 で は Ok が 表示 され て いる の で 。 ここ 
で , [LILHIISIITT ま た は |f・4 | キー を 押し て [RET | キー を 押し て 
くだ さい . する と , 先ほど 小 廊 字 で 入力 し た プロ グラ ム の り 
スト が , 大 廊 字 に な っ て 図 2-4 の よう に 表示 され ます . 

この よう に , マイ コン の メモ リ の 中 に どの よう な プログ 
ラム が 入っ て いる の か を 確か め る に は , この LIST コマ ンド 
を 使え ば よい の で す . 

1 行 だ け の リス ト を みた いと き に は , 《LIST 行 番号 》 で 1 

図 2-4 



























































100 A 三 10 

110 B=2 

120 PRINT A,B 
130 X ニ A+B 

140 Y-A_B 

150 クーA*B 

160 PRINT X, Y,Z 
170 END 





行 だ け を 表示 する こと も で きま す . 
いろ いろ な LIST コマ ンド の 使い 方 を 次 に まとめ て お きま 
す 


LIST コマ ンド 





@ メ モリ に 格納 され て いる プロ グラ ム 全 部 を 画面 に 表示 する . 


@ 行 番号 160 の プロ グラ ム の み を 表示 し た い . 
CCPCL ス スベ スス PCG と ご は リア CTCNLL ス ACN LIST 16O 

@ 行 番号 130 か ら 最 後 の 行 番号 まで の プロ グラ ム を 表示 し た い . 
開 時 き 生 だ た KC KO の CC た OCGKC く DLL LIST 130 一 

@ 最 も 若い 行 番号 か ら 行 番号 150 ま で の プロ グラ ム を 表示 し た 
た 王 隊 OCCCEECCEEUCCHOOOOOUKOOKIAALICACEKKC は D LIST ー15O 

@ 行 番号 120 か ら 行 番号 160 ま で の プロ グラ ム を 表示 し た い 、. 
SR 80224eRe で 5 SFSGYree で て PE な YC5 も LIST 120 一 16O 











〔 注 意 〕 

@⑩LIST コ マン ド 実 行 中 で は 大 き な プ ログ ラム は , 画面 に 表 
示さ れ て も スク ロー ル に より 消え て し まう の で , 途 忠 で 
停止 きせ た いと き が あり ます . 

この と き は [ESC| キー を 押し ます . 再開 する に は , 任意 
の キー を 押し ます . 

@ プ リン タ に プロ グラ ム ・ リ スト を 印刷 きせ た いと き に は 
LLIST コ マン ド を 実行 し ます . 機能 は LIST コマ ンド と 同様 
33 で 

(演習 〕 


まとめ の LIST コマ ンド 例 に つい て 実験 的 に 確か め 
て くだ さい . 実験 に 先 き 立っ て | 書 本 | キー で 画面 を 
消し て お く と よい で し ょ う . 結果 は 図 2-5 に 示し ます . 





































100 A=10 
110 B ニ 2 
120 PRINT AB 
130 X ニ A 十 B 

140 Y=AーーB 

150 デニ A*B 

160 PRINT X, Y,Z 
170 END 


160 PRINT X, Y, 


130 X ニ A+B 

140 Y デ AーーB 

150 Z ニ A* 日 

160 PRINT X, Y,Z 
170 END 
100 A デ 10 
110 B=2 
120 PRINT AB 
130 X ニ A+ サ B 
140 Y= ニ A 一 
150 Z ニ A*B 
120 PRINT A,B 
130 X ニ A 十 B 
140 Y デ AーB 
150 Z ニ A*B 
160 PRINT X, Y,Z 
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[4| プ ログ ラム の 修正 


プロ グラ ム の 作成 途中 や 実験 後 を ど に プロ グラ ム の 修正 
が 必要 に な る こと が あり ます . むし ろ , 追加 , 訂正 , 変更 
な どの 必要 が ある の が 普通 の プロ グラ ム と も いえ ます. 

BASIC の プロ グラ ム で は , この 修正 作業 が きわ め て や さき 
し く で きる と ころ に 特徴 が あり ます . ステ ー ト メン ト を 行 
番号 で 管理 し て いる の で , 行 番号 を 中 心 に プロ グラ ム の 修 
正 作 業 が で きま す . 

プロ グラ ム の 修正 方 法 と し て は 2 つの 方 法 が あり ます . 
ひと つ は 行 単位 で 修正 する も の , 他 の ひと つ は 画面 制御 用 
キー を 使用 し て , 行 の - 部 分 を 修正 する 方 法 で す . 

園 行 単位 の 修正 方 法 
@⑩ 1 行 全体 を 消去 し た いと き . 

消し た らい 行 番号 の み を 入力 し [RET| キー を 押し ます . た と 

えば 。 行 番号 140 の プロ グラ ム を 消し た いと き は , 140 

と 入力 し て くだ さい . 

@ 新 し い 行 を 追加 し た いと き . 

ある 行 と ある 行 と の 間 に 新 し い 行 を 追加 し た いと き に は 

その 2 つの 行 番号 の 間 の 数 値 を 行 番号 と し て プロ グラ ム 

文 を 追加 し ます . 

た と えば , 行 番号 100 と 行 番号 110 の 問 に 追加 し た いと き 

は , 105 の 行 番号 を 使う な ど で す . 

プロ グラ ム の 最後 に 新た に 行 を 追加 する と き は , その プ 

ログ ラム で 使っ て いる 最大 の 行 番号 より 大 き な 行 番号 を 

使い ます . : 

@ す で に 格納 し て ある 行 の 内 容 を 一 部 変更 し た いと まき. 

⑧ そ の 行 の 全体 を 再度 入力 し 直す 方 法 . 

た と えば , 100 A 王 10 と ある の を 。, 
100 A 王 50 と し た いと き は , 
新た に , 1OO A= ニ 5O と キー 入力 し 直し ます . 
⑥) ス クリ ー ン ・ エ ディ タ と 呼ば れる 画面 制御 用 キー を 使 

っ て 部 分 的 に 修正 する 方 法 . 
1 廊 字 消 去 。 1 文字 挿入 へ シフ ト ・ キ ー な どの 組み 合 
わせ に より ます (第 1 日 に 学習 ). 

〔 注 意 〕 

⑳ プ ログ ラム の 修正 を 行なっ た ら 必 ず , LIST コマ ンド で プ 

ログ ラム ・ リ スト を 画面 に 表示 させ , 確認 する クセ を つ 

好ま じじ. お う 、。 

@ プ ログ ラム 修正 作業 で 特に スク リー ン ・ エ ディ タ に よ 
る 画面 制御 キー に よる 作業 で は , 修正 箇所 の 訂正 , 変更 
の 後 で は 必ず [RET| キー を 押す こと を 忘れ な いで くだ さい . 

この 「RET| キー を 押し て , 初め て , 修正 が 行なわ れ だ た こ 
と に な る こと を 忘れ な いよ うに し まし ょ う . 

〔 演 習 〕 

図 2-4 の プロ グラ ム ・ リ スト を 再度 , 画 面 に 表示 させ , 
プロ グラ ム に 間違い が な いか 確か め ま し ょ う . 特に , 
コンマ や 。 演算 記号 な ど に 注意 し て くだ さい . 問 違い 
が あれ ば 直し て くだ さい . 









































I5| プ ログ ラム の 実行 

さて,。 い よい よ プ ログ ラム を 実行 し て みる 段階 に な り ま 
し た 。 次 の 手順 で , と に か く プ ログ ラム を 走ら せ て み ま し 
まう 、 
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ーー = 委 = 
| |B 届 | キー を 電 し て 。 画面 を 消す 。 

| @|f・4|, [RET| キー を 押し て , プロ グラ ム ・ リ スト を 到 示 する . 
| 全 5] の キ を 押す . 


























結果 は どう な っ た で し ょ うか . 画面 に は 図 2-6 の よう な 
結果 が 表示 され る で し ょ う . 

プロ グラ ム を 実行 きせ る に は [|UIINI と キー を 押す こと に 
よっ て RUN コ マン ド を 入力 する で す . |f・5 | は この こと を 意 
味 し ます . 第 1 日 目 の 学習 を 思い 出し て くだ さい . 

ここ で 行なっ た , | キー を 押し た り , [4] キー に 
よる プロ グラ ム ・ リ スト の 表示 は プロ グラ ム の 実行 に は 必 
委 あ り ま せん 。 だ だ, 理解 し や すぐ し だ た に すきま 起 ん : 

RUN コ マン ド は 行 番号 の 最も 小さ きい ステ ー ト メン ト か 
ら 実 行 を 開始 し , 遂 次 . プ ログ ラム を 実行 し て 最後 の EN 
D 文 で 終了 し ます . 

プロ グラ ム の 途中 か ら 実 行き させ たい と きも , と き に は 必 
要 と な り ま す が , その と き は , 実行 させ た い 行 番号 を 付け 
ます . た と えば , 行 番号 120 か ら 実 行き せ た い と き は RUN 
12O と キー 入力 し ます . 


行 番号 の 最小 ヽ の ステ ー トメ メン ト か ら の 実生 RUN |RET 
プロ グラ ム の 途中 か な の 生 。 RUN 行 番号 | RET 
(演習 〕 

次 に [f・5| キー を 何 回 も 続け て 押し て みて くだ さい . 
その 結果 , 画面 に は どの よう な も の が 表示 され る か 確 
か め ま し ょ う . 行 番号 100 か ら 170 の プロ グラ ム が 何 回 
も 使わ れ て いる こと が わか り ま す . 


















































6| プ ログ ラム の 停止 


プロ グラ ム 実 行 中 に , 実行 を 強制 的 に 中 止 さ きせ た い 場 合 
が あり ます . プロ グラ ム で 停止 させ る に は STOP 文 や END 
女 を 使い ます が , 次 の よう な プロ グラ ム で は 永久 に ブロ グ 
ラム が 走っ つて し まい ます . 途中 で 停止 させ る に は [ESC| キ 
ー や | STOP | キー を 使い ます . 

図 2-7 は プロ グラ ム 2-1 の 実行 結果 の 一 部 で す . 





























プロ グラ ム 2-1 





100 =0 

110 エーI 二 1 

120 PRINT 1I, 2*I 
130 GOTO 110 








図 2-7 





や ouom ト co 一 
ご )】 








16 32 
17 34 


実行 中 の プロ グラ 愉 を 一 時 中 止 さ きせ た いと き , 

ESC| キー を 押す . 

再開 させ る に は , 任意 の キー を 押す . 

@ 夫 行 中 の プロ グラ ム を 停止 きせ る に は , 

'STOP | キー を 押す . 

再開 は , CONT コ マン ド , RUN コ マン ド , GOTO コ マン 
ンジ ド に ほる 5 


(演習 〕 


前 記 プ ログ ラム を メモ リ に 格納 し , 実行 させ , 
IESC| キ ー と [SToP| キー の 機能 を 確認 し て くだ さい . 
注意 〕 

この プロ グラ ム を 格納 する 前 に NEW コ マン ド を 使っ て 前 
の プロ グラ ム を 消去 し て か ら 格 納 し て くだ さい . 
























































プロ グラ ム 2 - 2 





100 FOR 1=33 TO 255 
110 PRINT CHR$(I) : 

120 NEXT 1 

130 PRINT :PRINT :PRINT 
140 GOTO 100 








ト 上 の プロ グラ ム を メモ リ に 格納 し , 実行 し て みて くだ さ 
い . 画面 に は , 図 2-8 の よう な キャ ラク タ の コー ド が 表示 
され ます . PC-8001 で は , これ だ け の 文字 , 記号 , ノ マ タ ー 
ン が , 使え を る こと が わか り ま す . 

プロ グラ ム を 停止 させ た いと き は , [ESc| キー または, 
[STOP | キー を 使っ て くだ さい . 


7| プ ログ ラム の 保存 法 


いま まで いろ いろ な プロ グラ ム を メモ リ に 格納 し て は , 
実行 し 。 また 新しい プロ グラ ム を メモ リ に 格納 する と き に 
は , NEW コ マン ド を 使っ て , せっ か く 作 っ て 格納 し た プロ 
グラ ム を 抹消 し て し まっ て いま し た . 

度 作 っ た プロ グラ ム を 再び 使え る よう に どこ か へ し ま 
っ て お く と , と て も 便利 に な り ま す (マイ コン の メモ リ に 
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図 2-8 
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FSStuvwxV て 1!) で swW 開 間 | 8 四 用 旧 開 士 ーーー ゴ | ドー1 1 ロビ ニー 
過 テ ト す ご 補 束 プリ ヒバ ホッ ミ ム メ モヤ ユ ヨ ラリ ルル し ロ ロード リート 直下 再 中 












cload ? “PR- 1 ? 


格納 し て も よい の で す が , プロ グラ ム が 格納 され る メモ リ 1 Found PR- 1 
は 電源 を 切る と プロ グラ ム が すべ て 壊れ て し まい , 再び 電 e】4 3 
源 を 入れ て RUN コ マン ド を 実行 し て も プロ グラ ム を 実行 す ・ 較 





る SYS で GS まっ 千 ん) 。 
SD ッ ピ ー デ ィ ス ク な どの 高価 な 外部 記憶 
装置 6 も あり ます が , カセ モッ ト テ ー プ レコ ー ダ を 使っ て カセ 


と 表示 され ます . 
@ テ ー ブ の 内 容 と メモ リ 上 の プロ グラ ム の 内 容 が 一 致し な 


ッ ト テ ー プ へ も 格納 で きる の で . この 本 で 紹介 する プロ グ いあ 人 5 

ラバ は NG の SI ツ VaRi2s ン ふじ まっ つっ だり ぁみ 証 yk cload ? ヾ PR- 1 ? [RET| 
ー プ か ら 出 し て き て マイ コン の メモ リ ヘ へ プロ グラ ム を 再 入 Found PR- 1 

力 し た りす る で うら に : じ ま ぶ に と で | 

@ プ ログ ラム を カセ ッ ト テ ー プ へ 格納 する 方 法 ( セ ー ブ ) 'e】 


カセ ッ ト を 録音 状態 に Tn csave" プ ログ ラム 名 7 還 | 
RET| と キー (NR する と , カモ ッ ト は 録音 を 開始 し と 表 大 
行 番 号 の 最も 小さ ジッ メデ ニ ト テ ント ら 本 天 員 2 SA IO ここ 2 
の AorーSEet 1 だ の で St う 4 マン 'R る レ 全 り 1 党 
ェ ーー【 例 まき ー > た に 
| くだ さい . 


csqve PR-1"|RET メ 、 1 ハム 
R の の 32 、B ] 査 に 老 
メモ リ 上 に ある プロ グラ ム を カセ モット テ ー プ に ファ 8 イー 
そら れる の で , CSAVE コ マン ド を も う 一 度 や り 直 し て くだ 


イル 名 “PR-17 に よっ て 格納 し ます . 




































































CC で ニプロ ジラ 8 は 5 T6 区 字 以 内 で 作 つ で ぐだ きゃ に 5 3 
さい . . 名 前 は 任意 で す . プロ グラ ム を カセ ッ ト テ ー プ か ら メ モリ 上 へ 格納 する 
( 呈 二 : ド 》。 
(注意 〕 べ ベリファイ が 完全 に 行なわ れ た テー プ に は , プロ グラ ム 
⑳ カ セッ ト を 録音 状態 に し た と き に , 駆動 する 場合 は mo が 正しく 格納 され て いる こと に な り ま す . カセ モッ ト テ ー プ 
tor と キー 入力 し て 停止 し て か ら csaqve コ マン ド を 実行 し に 格納 され て いる プロ グラ ム を メモ リ 上 に 格納 する に は CL 
CS uh 
@ 和 録音 開始 時 に は , カセ ッ ト の カウ ンタ を ゼロ に し , 録音 【 例 】 ーー 
eat clogd PR-1 "|RET | 
る と き に 目安 が つき 便利 で す . 格納 中 は 画面 の 右上 に * 印 が 点 減 し ます . 当然 , カ 
@ 録 音 状態 を 確認 する (ベリ ファ イ ). | モッ ト は 再生 状態 で この コマ ンド が 実行 され な けれ ば 
カセ モ セット へ 録音 し た と き は プロ グラ ム が 確か に 格納 され な り ま せん . カセ ッ ト か ら の プロ グラ ム 格 納 が 完了 す 
was る 習慣 を つけ て お く と , 録音 ミス を 防ぐ こと が る と Ok が 表示 され , コマ ンド 入力 モー ド に な り ま す . 
きま す . cload “PR- 1 ? 
は か カセ モット テー ブ プ を 録音 開始 時 の カウ ンタ の 値 ま で 戸 ら indi 抽 PR 
戻し ます . カモ セッ ト テ ー プ は 再生 状態 に し て お きま す . <lo Ok 
gd? ヾ プロ グラ ム 名 ” [RET| と し ます . | | 
【 例 】 
本 の 
cload?、, PR-1" RET | 


メモ リ 上 に ある プロ グラ ム と カセ ッ ト テ ー プ に 格納 ーー 

され て いる ファ イル 名 “PR-1?" の プロ グラ ム と が 比較 ーー いら 
が プロ グラ ム の セー プ ,。 ベリ ファ イ , ロー ド 
一 ヽ る か どう か 調べ ま <K 3 

に 2 9 た 2 が 生ま ます @ ぁ テープ に 格納 す る csave ヾ プロ グラ ム 名 ヶ 

万 が 一 。 う まく 録音 され て いな か っ た と き は Bad と ( 6 婦 字 以 
を 示さ れ ま す 。 う まく 抹 到 され て いる と き は Ok と 表示 CCA on DO 

に を 、Y T 放 拓 E 本 昌 ーッ グ 
され , コマ ンド 入力 モー ド に な り ま す . @ テー ブ か ら メ モリ 上 へ の 格納 cloagd プロ グラ ム 名 ? 
@ テ ー ブ の 内 容 と メモ リ 上 の プロ グラ ム の 内 容 が 一 致し た 

場合 は , (演習 ] 


























適当 な プロ グラ ム を カセ ッ ト に セー ブ し , ベリ ファ 
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』O 


イ を 実行 し て , 録音 状態 が 間違い の な いこ と を 確か め 
ます . 

次 に , NEW ツ コマ ンド で メモ リ 上 の プロ グラ ム を すべ 
て 抹消 し , LIST コマ ンド で プロ グラ ム が な いこ と を 確 
か め た あと , CLOAD コ マン ド で テー プ に 格納 し た プロ 
グラ ム を メモ リ 上 に 格納 し て くだ さい . 

そし て , 格納 が 終了 し た ら , LIST コマ ンド を 実行 し 
て , 確か に ロー ド さ れ た こと を 確認 し て く だ さい . そ 
し て , RUN コ マン ド に より , 正常 に プロ グラ ム か 実行 
され る こと を 確 め て くだ さい . 

〔 注 意 〕 

て 5 に ラニ ーー スラ アロ 7 グラ ム を 格納 し た と き は , 必ず プ * 
ログ ラム 名 と カウ ンタ の 値 (初期 値 と 最終 値 ) を その カセ 
VI22 コ ン (で 生日 AWUSEGSUNGKCWZSRSSUSN 


8| プ ログ ラミ ング の 考え 方 


プロ グラ ム の 書き 方 は , 必ず し も 1 つと は 限り ませ ん . 
10 人 が それ ぞ れ 書け ば , その 中 に は いく つか 違っ た も の が 
ある の が 普通 で す . 

だ た と えば , 次 の プロ グラ ム の よう に 書い て も A, B, XX 
Y、Z を プリ ント し ます . 

プロ グラ ム 2- 3 


























100 A=10:B=2 

110 メーA++B:Y ニ AB:ZーA*B 
120 PRINT A, B, X, Y, ZZ 

130 END 

















旬 マ ル チ ス テー トメ ント 

先 の プロ グラ ム で は , ひと つの 行 番号 に 2 つ 以 上 の ステ 
ー ト メン ト が 書か れ て いま す . ステ ー ト メン ト の 区 切り 記 
写 : が 行 に 含ま れ て いる 場合 は , マル チ ス テー トメ ント に 
な り ま す . 行 番号 100 と 行 番号 110 が マル チ ス テー トメ ン ト 
行 で すず 。 

IS プ 4 ロ ジジ バ ( だ な る よう な から 。 マル チ ス テー トド トメ 
ント の プロ グラ ム に し た 方 が メモ リ 使 用 効率 が よく な る の 
で す が , 小さ な プロ グラ ム で メモ リ 容 量 に 余裕 が ある 場合 
は , で きる だ け マ ル チ ス テー トメ ント を さけ , わか りや す 
い 書 き 方 の プロ グラ ム に し て お いた 方 が よい で し ょ う . 

人 計算 結果 を みや すく する に は 

プロ グラ ム 2 - 3 の 出力 結果 だ け で は , その 意味 する こと 
が わか り ま せん . そこ で , プロ グラ ム 2- 4 に 示す よう な 書 
き 方 も あり ます . PRINT 文 の 中 に “ " で 囲ん で 注 邊 を い 
れる と 出力 結果 が 見 や すく な り , 図 2- 9 の よう に 意味 も わ 
か OKU まま 09 

引用 符 で 囲ま れ た 娘 は プロ ンプ ト 廊 と いわ れ , nt 
入 き され た 女 の ま ま , ディ スプ レイ 上 に 表示 され ます . 


プロ グラ ム 2-4 





100 A=10:B ニ 2 

110 X ニ A 十 B:Yー ニ A 一 B:ZーA*B 
120 PRINT “"a ニ "AD?:B 
140 PRINT “"a 寺 b 三 ": 駐 

150 PRINT “ab テニ "iY 

160 PRINT “aa*b ニ ツェ グ 

170 END 

















図 2-9 





a 三 10 

a 十 b 王 12 
ab=8 
a*bー20 





|I9| コマ ンド と ステ ー ト メン ト 

いま まで , 詳細 な 説明 な し に コマ ンド と か ステ ー ト メン 
ト な ど と いう 言葉 を 使用 し て きま し た が , ここ で , 少し だ 
け 説 明 し て お きま す . 

コマ ンド は , ユー ザー が BASIC プ ログ ラム を 作る と き に 
使用 する , マイ コン の モニ タ ・ プ ブロ グラ ム に 対す る 指令 で 
あっ て , 普通 は マイ コン を 使う の に 便利 な よう に 準備 され 
て いま す . 

PC-8001 で の 代表 的 な コマ ンド に は , LIST,、 RUN, NEW. 
AUTO。 CSAVE, CLOAD?,。 CLOAD な ど が あり ます . ディ 
スプ レイ 上 で OK が 表示 され た 後 は すべ て , これ ら の コマ ン 
ド を 受け 付け る こと が で きる 状態 に な り ま す . 

ステ ー ト メン ト は , ユー ザー の プロ グラ ム の 中 で 使わ ら 
れる 文 で , 普通 は 行 番号 の 次 に 書か れ ま す . 

代表 例 と し て , PRINT, END,、 GOTO, LET な ど で , 
PC-8001 で は その 他 , た くさ ん 用 意 さ きれ て いま す . 


0 動作 モー ド 


PC-8001 で は , 3 つの モー ド が あり , いずれ か の 動作 モ 
ー ド に あり ます . 

@ 問 接 モ ー ド (プロ グラ ム ・ モ ー ド ) 

行 番号 BASIC ス テー トメ ント [RET| の 形 で プロ グラ ム を 
メモ リ に 入力 し て , プロ グラ ム を 実行 で きる モー ド で す . 
入力 し た な プログ ラム は , 何 回 で も RUN コ マン ド に より 実行 
させ る こと が で きま す . 

人 @ 直 接 モ ー ド 

行 番号 を 付け ず に コマ ンド や , ステ ー ト メン ト が 使え る 
モー ド で , 入力 され た ら [RET| キー で すぐ 実行 され ます . R 
UN コマ ンド て 実行 させ る の で は な いこ と に 注意 し て くだ 
さい . 命令 は , 実行 後 和 拓 な われ る の で , 数 回 実生 させ る に 
は , 数 回 命令 を 入力 し な けれ ば な り ま せん . 

【 例 1 】 

33 十 5 [RET| と キー 入力 する と 8 と 表示 され ます . 


【 例 2 】 
Aー3:Bー5|RET| と キー 入力 し , 続い て , 
?A 十 BIRET| と する と 8 と 表示 し ます . 
?AXBIRET| と する と 15 と 表示 し ます . 


介 タ ー ミ ナル ・ モ ー ド 
PC-8001 を . コン ピュ ー タ の 端末 と し て 使用 する と き の 
動作 モー ド で TERW コ マン ド に より , この モー ド に な り ま す 
〔 演 習 〕 





























































































ダイ レク ト ・ モ ー ド で , 決 の ステ ー ト メン ト を 実行 し 
CLASSIMSs 

@⑳a 一 10 : b 一 2 

@print a,b 

@print “aa ,D" 

@print a-+b 

print “aa 十 b”" 





1 人 4 





print aa 上 b ニ "ia 二 b 
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プログ ラム 255 








(演習 〕 

前 の プロ グラ ム を 改良 し て , AB の 計算 値 も 印刷 
で きる よう に し て くだ さい . 割 算 の 記号 は プ (スラ ッ 
シュ ) を 使い ます . 








次 の プロ グラ ム を 入力 し て , 実行 し て みて くだ さい . 


この プロ グラ ム は 三角 関数 表 の 作成 プロ グラ ム で す . 

印刷 形式 を 指定 せ ず に プロ グラ ム し た も の で す . 結果 を 
図 2-10 に 示し まし た . 

SIN(X)、COS(X), TAN(X) は それ ぞ れ X え の 単 位 を ラジ 
アン と し た 場合 の 三角 関数 の 値 で す . 演算 は 単 精 度 で , 7 
杵 まで の 精度 で 格納 され , 6 桁 ま で の 桁 数 で 印刷 され ま る 記 






有川 吊 軸 用 昨 用 IUOIOUUUUUUUIBB 
目標 
プロ グラ ム で 使わ れる デー タ (数 値 や 文字 ) を どの よう 
に し て マイ コン に 与え る か ,。 いろ いろ な デー タ の 与え 方 を 
理解 する と と も に , デー タ の 出力 に つい て も 同様 に いろ い 
ろ な 出力 形式 が ある の で , これ ら に つい て も 理解 し ます . 
出力 に つい て は CRT ディ スプ レイ 上 に お ける 表示 に つい 
て 勉強 し , プリ ンタ 上 へ の 印刷 に つい て は 少し ふれ る 程度 
に し ます (プリ ンタ の 性 能 に よる と ころ が 多い た め ). 


HI 用 用 有 有用 有 有 軸 田 有用 有 用 用 有 用 有 山肌 衝 四 


| 画面 と プリ ンタ へ の 出力 


CRT の 画面 上 へ デー タ を 表示 きせ た いと き は , 一 般 に P 
RINT 廊 を 使い ます . 
だ だ (お 
PRINT “ABC" 
と すれ ば , CRT 画 面 に 
ABC | が 表示 され ます . 
次 に ,。 プリ ンタ に 印刷 させ た いと き は , 次 の よう に PRI 
NT 文 を LPRINT 文 に し ます . 
LPRINT “ABC” | 
と 2 お 2 は 款 22800 ジ ググ に 
ABC 
が 印刷 され ます . 
以上 の よう に CRT 画 面 上 へ の 表示 と , プリ ンタ の 用 紙上 


当 







川上 情 


滞 上 川 川 川上 川 上 川上 川 


















































へ の 印刷 出力 は PRINT と LPRINT の 違い で 区 別 き され ます . 


ます . 
〔 演 習 ] プリ ンタ へ の 出力 実験 





Se し 
0 AKA 9808 6 





人 較 誠 PO の yh ナラ ム 2 
- 2 の PRINT 文 メメ を 改造 し た も の で す . 


10 PRINT"N sin(x) cos(x) tan(x) ”" 
20 PRINT 

30 FOR Xー1 TO 10 

40 PRINT X:SIN(X) : COS(X): TAN(X) 
50 NEXT XX 

60 END 





図 2-10 


Eiul63) cos(x) tan(x) 


3 


841471  .540302 1.55741 
.909298 一 .416147 一 2.18504 
-.14112 .989993 一 .142547 
.756802 一 .653644 1.15782 
.958924  .283662 一 3.38052 
.279416  .96017 一 .291006 
.656987  .753903  .871448 
.989358 一 .1455 一 6.79973 
.412118 一 .91113 一 .452316 
.544021 一 .839072  .64836 


ーー らら の の この の 必 CCG 一 


トー】 








09 mu 


のち 放 > 方 に 





0222 
こ お ポ 













ブロ . グ ラバ 3=> | | 
100 FEOR 1 ニー33 TO 255 
110 LPRINT CHR$(1) : 
120 NEXT I 
130 END 


2| 数 値 の 出力 


いま , 3 つの 数 値 A 全 100, NN C 三 30 が 与え られ , 
これ ら の 数 値 を 画面 に 出力 する を 考え て み ま す . 


人 @1 行 に 1 か 
プロ グラ ム 3-2 




















10 A=100:B ニ ー50 :C=30 
20 PRINT A 

30 PRINTB 

40 PRINT C 

50 END 








PRINT A の よう に , PRINT 文 が コン マ や セ モミ コロ ン で 
終っ て いな い 場 合 は 改行 きれ ます . 
人 @ 標準 化 さ れ た 位置 に , 続け て 出力 する 場合 
PC-8001 で は , WIDTH 廊 の 桁 数 指定 に より , 表示 開始 
位置 が 14 桁 ご と の 位置 に 標準 化 き れ て いて , PRINT 廊 中 の 
コン マ の 直後 に 書か れ て いる 項目 の 表示 開始 位置 は 自動 的 
に 14 桁 ご と の 位置 に な り ま す . 





0 14 28 42 56 
ーー こつ 


ュー に つ ーー 
ニン トン ニー ニー 


トブ 
14 14 14 14 14 





WIDTH 40,20 の 場 合 WIDTH 80, 25 の 場合 


15 





』0 


ンー ロダ 98 圧 の よう な プロ グラ ム で は 
100 A=100: ニー50:C=30| YipT 40 20 の と き 2 行 に わた っ て 


110 PRINT A.B.C し まう が WIDTH 80, 25 の と き は 1 行 
120 END に な り ま す . 

















| この 場合 は 自動 的 に 実行 され ます . 

信 1 行 に 続け て 出力 し た い 場 合 , 
前 了 全 を と ら ず に 直前 の 出力 結果 の すぐ 後に 続け て 出力 し 

だ い 場 合 に は , PRINT 廊 中 に セミ コロ ン を 使い ます . 

プロ グラ ム 3-4 








100 WIDTH 40, 20 

110 A 一 100 : B ニ ー50:C ニ 30 
120 PRINT A:B:C 

130 END 




















数 値 出力 は 直後 に 空白 (スペ ー ス ) が 1 つ 挿 入 さ れ ま す . 
また だ た , 負 の 数 値 は マイ ナス の 符号 (一 ) が 加え られ ます . 
正 の 数 値 の と き は 符号 が 出力 され ず , 空白 が 1 つ 出 力 さ れ 
まま 

行 番号 120 の 女 を 次 の よう に し て も 同じ よう に 出力 され ま 
3 


120 PRINT Az:B: 
125 PRINT C 











ーー ー 中 二 J 
120 行 の 終り の セミ コロ ン に より , 125 行 の プリ ント 女 が 同 
じ 行 に 出力 され ます . 
久行 と 行 の 間 を あけ た い 場 合 , 
1 行 出力 し た あと , 次 の 行 と の 間 に 1 行 分 の 空白 行 を 挿 
入 し た いと き は , キー ワー ド の PRINT だ け を 使い ます . 
プロ グラ ム 3-5 











10 A 王 100 : Bーー50 : C 一 30 
20 PRINT A 

25 PRINT 

30 PRINT B 

40 PRINT C 

50 END 








左 の プロ グラ ム を 実行 する と , 右 図 の よう な 出力 が 得 ら 
れ ま す . 引用 符 で 囲ま れ た 文 を ,. プロ ンプ ト 壇 と いい ます . 
ポ 没 


[3 数 値 の 入力 


数 値 を 与え を る の に 代入 文 で A 一 100, B 50, C 三 30 の 
よう に 記述 し て きま し だ .。 ここ で は ,。 他 に いく つか の 方 法 
が ある の で , それ ら に つい て 考え て み ま し ょ う . 
キー ボー ド 入 力 

代入 文 で 数 値 を 与え を る こと の ほか に , キー ボー ド か ら 直 
接 ,。 その つど , 数 値 を 与え る 方 法 が あり ます . その た め に 
は キー ワー ド INPUT が 使わ れ ま す . 














10 INPUT A 
20 INPUT B 
30 ITNEUT' TGC 


O mwHNEBSHR AB.3G 

この 場合 は 1 度 に A, B, C の 値 を 
(に の し た 後 リ ター ン ・ キ ー を 
押す . 








上 の も の は 左 も 右 も 結果 は 同じ で 4, 戸 ,,C に それ ぞ れ キ 
ー ボ ー ド か ら 入 力 さ れ た 数 値 が 代入 され ます . 

INPUT 文 が 実行 きれ る と *? / が 出力 され , キー 入力 を 要 
求 き れる の で , 対応 する キー 入力 操作 を する こと に な り ま 
す . この 例 で は , 最初 の ` ? ? で 100 を , 次 の `? ? で 50 を, 
最後 の ^? ? で 30 を キー 入力 する と , A 一 100,Bーー50, C 
90 の 代入 文 と 同じ こと に な り ま す . 
〔 演 習 〕 





10 INPUT A, B, C 
20 PRINT 

30 PRINT Ai:B:iC 
40 END 











ト 上 の プロ グラ ム を 実行 きせ て みて くだ さい . 
@ デ ー タ を 間違い な く 入 力 す る に は , 

INPUT 文 に どん な 入力 デー タ か を 入力 要求 と と も に 表示 
させ る と よい で し ょ う . その た め に キー ワー ド INPUT に 
続い て 引用 符 “ ” で 囲ん 研 説 明 災 を 入れ る と よい で し ょ う . 





10 INPUT An A 
20 INPUT WE 三 ?" 。B 
30 INPUT W@ 克 当 。 C 














上 の プロ グラ ム で は 25 行 の プリ ント 文 に より 空白 行 が 1 
行 で きま す . 

2 行 分 空け た いと き は PRINT : PRINT と し ます . 

氏 メ ッ セ ー ジ や 説明 文 を 出力 し た い 場 合 , 

前 述 の プロ グラ ム の よう に A や B, C の 値 を た だ 単に , 
100. 一 50, 30 と 出力 する より も , A テ 100 と か , B ニ ー50. 
C=30 と 出力 し た い 場合 が あり ます . 

この よう な と き は , キー ワー ド の PRINT に つづ まき, 引用 
符 * の 中 に 出力 し た い メ ッ セ ー ジ また だ は 。 説明 文 な ど を 
人 人 れれ な で お き : ま * ず 。 

プロ グラ ム 3-6 





10 A 三 100 : B 50 : C 王 30 
20 PRINT “で A 一 "iA 

230 細則 INNIHISB 事 > - B 

40 近 REINEGO7 0 

50 END 

















10 INPUT Ya 王 バ 人 】 
20 INPUT “b=B 6 左 の プロ グラ ム を 格納 
[| 順 し て 実 条 し て みて くだ 
きい . いろ いろ な 入力 
デー タ を A, B に 与え 
て 出力 結果 を 確か め て 
くだ きい . 

80 行 と 90-130 行 の 違い 
を よく 理解 し て くだ さ 
い . 140 行 は 空白 行 で す . 





90 PRIN 8 

100 PRINT "aーbー 革 S 中 
110 PRINT "a*b= ニ 守 M 過 29 
120 PRINT "mb=5D 

130 PRINT "a へ bー 光 V 

140 PRINT 自生 
145 GOTO 10 日 人 
150 END 





〔 演 習 〕 次 の 各 ス テー トメ ント の 違い を 実験 的 に 確か め ま し ょ う . 





200 A 一 1 : Bー2:C=3 
210 PRINT A:B:C 
220 PRINT A,B,C 
230 PRINT “A,B,C” 
240 PRINT A+TB+C 
250 PRINT 1+2T3 
260 END 
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氏 固 定 の デー タ を 扱う 場合 , 

プロ グラ ム を 実行 きせ る た びに キー ボー ド か ら デ ー タ を 
入力 する 方 法 は その つど デー タ が 変わ る 場合 に 使い ます . 
変わ ら な い デ ー タ は あら か じ め プ ログ ラム の 中 へ 格納 し て 
お く 方 法 が あり ます . この 方 法 は DATA 廊 を 使う も の で , 
多量 の デー タ を 与え る と き に も よく 使わ れ ま す . 
〔 例 〕 





100 READ A, B,C, D 

110 PRINT A, B, C, D 

120 DATA 100, 200, 300, 400 
130 END 











この ブロ グラ ム で は 変数 4 に は 100, に は 200,C に は 300, 
の に は 400 が READ 文 に よっ て 代入 され ます . 

DATA 文 は コン マ で 区 切っ て デー タ を 並べ て お きま す . 

すなわち , READ 文 は DATA 文 で 与え られ た デー タ を 順 
番 に 変数 の 並び に 代入 し て いく わけ で す . 
〔 例 ] 





100 READ AB 
110 PRINT A,B 


120 DATA 100, 200, 360, 400 
130 END 











この プログ ラム で は 4 テ 100, g 王 200 が 代入 され , DATA 
女 で 与え を られ た 300, 400 は どこ に も 代入 され ませ ん . 
〔 例 題 〕 





90 FOR エー1 TO 3 

100 READ A,B 

110 PRINT A,B 

115 NEXT I 

118 END 

120 DATA 100, 200, 300, 400 
130 DATA 500, 600, 700, 800 








0 


プロ グラ ム 3-7 





10 PRINT DATES : の TIMES 
20 PRINT “アサ ヒ ブン カ セン ター" 
30 PRINT 

40 G=0 

50 CONSOLE 0, 20, 0, 1 

60 COLOR 6, 32. 0 

70 LINE INPUT. "ショ ウ ヒ ン メイ = テリ ji AS 
S0 COLOR 7, 32, 0 

90 INPUT “タン カ =” jU 

100 INPUT “スウ リョ ウ =” jj N 

110 C=U*N 

120 で G=G 二 C 

130 PRINT “キン が ガク = テ " : C 

140 COLOR 5. 0.0 

150 PRINT “ゴウ ケイ =" ji Gi“ 円 
160 COLOR 7, 0. 0 

170 PRINT 

180 GOTO 50 


4 文字 の 入出 力 


[2 [3 で は 数 値 の 出力 , 入力 に つい て 勉強 し まし た . 実 
は 廊 字 に つい て も 数 値 と 同様 マイ コン で 入力 , 出力 で き 
ま 33: 

人 @ 文 字 変数 の 作り 方 (INPUT X$) 

数 値 と 同じ よう に 廊 字 に も 変数 型 が あり ます . 次 の プロ 
グラ ム を 実行 し な が ら 理解 し まし ょ う . 

(演習 〕 

200 INPUT As 

210 PRINT AS 

220 GOTO 200 

















……… キ ー か ら 交 字 列 を 入力 











女 字 変数 は 数 値 変 数 で 使え る 変数 名 の 後に も (ドル マー ク ) 
を 付け れ は ば 次 字 が 変数 と し て 取り 扱 か を ます . A$ は 文字 
変数 で す . 代入 文 で 与え を る に は , 

A$ 一 “文字 列 " 
らい ま 9 
(演習 〕 プロ グラ ム 3-8 文字 出力 














この プログ ラム を 実行 し て , READ 文 と DATA 廊 の 関連 
を 理解 し て くだ さい . まず 第 1 回 目 の READ 文 で , 100, 
200 が 4, 玉 に , 第 2 回 目 の READ 文 で 300 と 400 が 4, に , 
第 3 回 目 の READ 廊 の 実行 で 500 と 600 が 4, に それ ぞ れ 
代入 され て いま す . 

この よう に , READ 廊 の 実行 回 数 に より 変数 に 代入 され 
る デー タ 数 が 多い 場合 は エラ ー は あり ませ ん が , も し , デ 
ー タ 数 が 少な い 場 合 は 「Out of Data」 の エラ ー メ ッ セ ー ジ 
が 画面 に 表示 され ます . 

次 の プロ グラ ム を 実行 し て 確か め て くだ さい . 
〔 演 習 〕 





90 FOR エー1 TO 3 

100 READ A,B 

110 PRINT AB 

115 NEXT 1 

118 END 

120 DATA 100, 200, 300,400 











250 A$ 王 “ ナ ゴ ヤシ” 
260 B$ 王 “ミズ ホク ” 
270 PRINT A$, B$ 
280 PRINT A$:B$ 
290 PRINT ASBS$ 

300 PRINT ASB$ “TI/O" 
310 END 











250, 260 で A$ の 字 変数 に ナゴヤ シ が , B$ の 文字 変数 に 
ミズ ホク が 代入 され ます . 黄 字 変数 を PRINT す る 場合 に は , 
セミ コロ ン (j:) が な く て も 290 の よう に 続け て 出力 し て くれ 
ま :9 





プロ グラ ム 3-8 で , RUN [CR | の あと , 入力 廊 字 列 の 中 
に , コン マ (。 ) や 引用 待 (” ) を 混ぜ て , 入力 し て みて 
くだ さい . INPUT 廊 で は , これ ら の 文字 を 入力 する こ 
と は で きま せん . 

プリ ント 結果 で は 数 値 出 力 の よう に デー タ の 前 後に 
空 折 が で き な い こと を 確認 し て くだ さい . 

入力 で きる 廊 字 列 の 長き さ は 255 文 字 以 内 で す . 














念 文字 列 の 入力 (LINE INPUT) 

と に か く , マイ コン で 取り 扱 か を る すべ て の 文字 (コン 
マ や 引用 符 も 含め て ) を 入力 する に は LINE TINPUT 文 を 
使い ます . 
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プロ グラ ム 3-9 





350 LINE INPUT LT$ 
360 PRINT "* PLST※ ネ の 
370 GOTO 350 











〔 演 習 〕 
次 の プロ グラ ム を 実行 きせ て , READ, DATA 文 に よる 
数 値 入力 , 廊 字 入力 の 方 法 を 理解 し まし ょ う . 


いく つか の 女 字 を キー 入力 する 場合 , 娘 字 の 個数 だ け キ 
ー を 近 す 方 法 だ と , 何 度 も 何 度 も 同じ 綴り の 廊 字 列 を 入力 
する の が 面倒 に な り ま す . 

この よう な と き 15 廊 字 以 内 な ら , ファ ンク ショ ン ・ キ ー 
を 利用 する 方 法 が あり ます . これ は MKEY 定 義文 に よっ て 入 
力 し た い デ ー タ を 定義 し て お け ば よい わけ で す . 

キー 定義 文 は , 





100 READ A,B 

110 READ COC$, Ds 

120 PRINT “A 一 PA “"B 王 ":B 
130 PRINT “CS 一 "CS5。 “DD$ 王 7 D$ 
140 DATA 100.,200 , ABC , DEF 
150 END 











プロ グラ ム 3-9 を RUN35O で 走ら せ , 空 碧 な ども 合 め て 
文字 列 を 入力 し て みて くだ さい . * 印 で 囲ま れ た も の が 入 
力 され , 出力 され た 廊 字 列 で す . 

LINE INPUT 文 で は , カン マ , 引用 符 な どす べ て の 文 
字 を 入力 で きま す が , 婦 字 列 の うし ろ の 空白 は 無視 され ま 
す . 

また , INPUT 文 で は , INPUT A$, B$, C$ な ど と , 
複数 の 文字 変数 の 並び が 許さ れ ま し た が , LINE 1INPUT 
娘 で は , 文字 変数 の 並び は 1 つ で す . 

それ か ら , INPUT 文 と の 違い は “2?” マー ク が 画面 に 表 
示 き れ な いて と で す 。 

氏 キ ー 入 力 し た 文字 を 画面 に 表示 させ な い 方 法 (INKEYS INPUT$) 

INPUT 廊 や LINE INPUT 文 で は , 入力 し た 廊 字 を 画 
面 に 表示 し ます が , 表示 し た く な い 場 合 が あり ます . 

その よう な と き に は INKEY$ (1 字 入力 用 ), INPUT 
$(X) (X 個 の 交 字 入力 用 ) と いう 関数 を 使い ます . 

この 関数 は [RETURN| キー を 押さ き な く て も 入力 で きる の 
で , 入力 の つど [RET| キー を 押す わずらわし さ を 解 消し た い 
場合 に も よく 使わ れ ま す . 

〔 例 〕 プロ グラ ム 3-10 


400 PRINT"TINKEY$S TEST" 
410 KS$ 王 INKEYS 

420 1F K$5 一 "THEN 410 
430 PRINT K$ 

440 PRINT 

450_ GOTO 400 






































INKEY$ と いう 関数 は キー が 押さ きれ れ ば その 廊 字 を 女 
字 変 数 に 与え , 押さ れ な い 場 合 は , その 値 は 空 (ヌル ・ ス 
ドリ ジグ の どなり ま 59*s 

420 の IF 文 は , 判断 文 で .、 も し KK$ の 値 が 詐 な ら ば , 行 番 


号 410 へ 飛べ , と いう 意味 で す . も し K$ の 値 が 空 で な けれ ば 


次 の 女 , 430 の PRINT 文 を 実行 し ます . 
〔 例 ] プロ グラ ム 3-11 
500 PRINT" INPUTS TEST" 
510 P$ 一 INPUTS(6) 
520 PRINT Ps 
530 PRINT 
540 GOTO 500 














INPUT$ と いう 関数 は INPUT$(N) と いう 一 般 形 で W 個 
の 字 を 入力 する こと を 意味 し ます . A 個 の キー を 押し 終 
る と , が 文字 が P$ に 代入 され ます . プロ グラ ム 3-11 は 6 
文字 入力 の 例 で す . 
ファ ンク ショ ン ・ キ ー に よる 入力 (KEY) 
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KEY 1 “アサ ヒ ブン カセ ンタ ー”" 十 CHR$(13) 














と いう 形式 で す . CHRS$(13) は 入力 時 に |RETURN| キー 
を 押さ な く て も , ファ ンク ショ ン ・ キ ー [1 | だ け 押 せ ば , 
ヾ アサ ヒ プ ブン カセ ンタ ー” と いう 字 列 が 入力 で き , 
キー を 押す 操作 を 省略 で きま す . 

〔 例 題 〕 


550 KEY 1,“ シ イレ プロ グラ ム " 填 CHRS$(13) 

560 KEY 2. “ウリ アゲ プロ グラ ム " 填 CHR$(13) 

570 KEY 3. “ザイ コ カク ニン " 圭 CHR$(13) 

580 INPUT “シイ レ (f・1), ウ リア ゲ (f・2), ザイ コ (f・3)” : X$ 
590 PRINT X$ : PRINT 

600 GOTO 580 



































〔 注 意 ] 

上 の プロ グラ ム を 実行 する 前 に , その 時 点 で の KEY 定義 
が どん な 内 容 か , 確認 し て お いて くだ さい . 

確認 に は 。 ファ ンク ショ ン ・ キ ー の 内 容 を リス ト で きる 兵 
EY LIST 文 を ダイ レク ト ・ モ ー ド で 実行 し ます . 


デー タ の 入力 


マイ コン に デー タ を 与え る 方 法 に は 次 の 3 つの 方 法 が あ 
る . 





⑩ キ ー 入 力 操作 に よる 方 法 
①1NPUT 文 に よる 方 法 


( 例 ) INPUT A 数 値 入力 
INPUT A$ 255 廊 字 以 内 
②LINE INPUT 文 に よる 方 法 
( 例 ) LINE INPUT X$ 255 文 字 以内 
⑧INKEY$ に よる 方 法 
( 例 ) X$= ニ INKEYS$ 1 文字 入力 
(④INPUT$ に ょ る 方 法 
( 例 ) X$=INPUTS$(N) が 文字 入力 


ファ シク ショ ン ・ キ ー に よる 方 法 
( 例 ) KEY1, “YES" 二 CHR$(13) 
プロ グラ ム に 書い て お く 方 法 
① 代 入 文 に よる 方 法 
( 例 ) A=10 
A$="ABC" 
②READ 女 と DATA 文 に よる 方 法 
( 例 ) 10 READ A, A$ 
20 DATA 10, ABC 
その 他 , カセ モット テー ブ な どか ら の 入力 方 法 が あり ます が , こ 
れ ら に つい て は 後 で 説明 し ます . 


15 文 字 以 内 入力 

















| 表示 位 置 の 指定 


氏 カ ー ン ソル の 移動 (LOCATE 文 ) 

画面 の 任意 の 位置 に 女 字 を 表示 し た いと き は , LOCATE 
文 を 使い ます . 

LOCATE 廊 を 実行 する と カー ソル は 指定 され た 位置 に 移 





動 す る の で , その あと , PRINT 文 を 実行 すれ ば 指定 位置 か 
ら 表 示す る わけ で す . 
〔 演 習 〕 





10 LOCATE 5, 2 

20 PRINT "1. シイ レ ”" 
30 LOCATE 5, 4 

40 PRINT "2. ウリ アゲ " 
50 END 


ーー で 


ーーーー1. シ イレ 


四 2. ウ リア ゲ 














LOCATE 文 に は , カー ソル ・ ス イッ チ が あり , 上 述 の プロ 
グラ ム の よう に 省略 する と カー ソル は 画面 に 表示 され ませ 
ん が , LOCATE5, 2, 1 の よう に する と , カー ソル が 指定 し 
た 位置 に 現われ ます . 

氏 カ ー ソ ル の 取り 扱い 

(1) カ ー ソ ル の 現在 位置 の 列 番号 を 知る に は , POS(①) を 使 
いま す . CI が ボ グ WSーSGS す 2 

(2) カ ー ソ ル の 現在 位置 の 行 番号 を 知る に は , CSRLIN の 2 

つの 関数 を 使い ます . 

現在 位置 か ら 上 下 左 大 へ の カー ソル の 移動 プロ グラ ム は 
次 の よう に な り ま ず 。 





上 方 向 は LOCATE POS(J①),、 CSRLIN 一 1 


左 方 向 は LOCATE POS(J) 一 1, CSRLIN 
右 方 向 は LOCATE POS(J) 二 1, CSRLIN 








旬 ス ペー ス や タプ を 使っ た 出力 
PRINT 文 中 で の 空 碧 や 位置 制御 の た め に は , SPC や TA 
B 関 数 を 使い ます . 
プロ グラ ム 3-12 





100 PRINT “コー ド ” j TAB(10) : “ヒン メイ " 

110 PRINT 

120 READ AS$, B$ 

130 PRINT A$ : TAB(10) : B$ 

140 DATA 111 , メロ ン 
R 2 





TAB(10 


TAB は 指定 し た 位置 まで 空白 を 出力 し ます . 


トド 方向 は LOCATE POS(J), CSRLIN 二 1 | 


0 


| に , 表示 され て いた 六 字 は 消去 きれ ます . | 


6 出力 形式 の 編集 (PRINT usSINe) 


桁 数 を 揃え た り , 右 詰 めで 出力 し た り し て , 出力 結果 を 
見 や すく 編集 する 方 法 が いく つか あり ます . それ に は , PP 
RINT USING 廊 を 使い ます . 

一 般 形 は , 




















PRINT USING “< 書式 仕様 >?” < 出 力 並 び > 








で お: 
@ 桁 数 を 揃え て 右 詰め で 出力 し た い 場 合 (#) 

引用 符 ( ヾ ) の 中 に 革 ” 記号 を 桁 数 だ け 並 べ ま す . 
(例題 〕 


10 INPUT A, B, C 

20 PRINT 

30 PRINT USING“ 半 壮 韻 壮 寺 /)A 

40 PRINT USING“ 壮 壮 閉 半 半 "jB 

50 PRINT USING“ 寺 韻 半 半 5C 

60 GOTO 10 

この プロ プロ グラ ム を 実行 きせ , INPUT 文 で 5 桁 以 

内 の 数 値 を 入力 し て 出力 結果 を 確か め て くだ さい . 














た と えば , A に 100, B に 一 123, C に 3255.82 を 入力 し た 
と すれ ば , 結果 は , 
右 図 よう に 表示 さ 
れ ま お 。 すず 恋 わ わ ち 。 
⑯ い 土 / 記 人 号 で 指定 き 
れ た 桁 数 内 で , 数 
値 は 右 詰め で 表示 
され ます . 
@ 頭 部 の 余っ た 桁 に は , 空白 が 表示 され ます . 
@ 表 示さ れる 数 字 の 右端 桁 キ . その 下 の 桁 を 4 捨 5 入 し て 
丸め た も の が 表示 され ます . 
@ 出 力 表 示 デ ー タ が , “# せ / の 数 より 多い 場合 に は , 数 値 の 
直前 に “ 狗 ” が 表示 され , 表示 が 異常 で ある こと を 示し 
ま 393 
(演習 〕 
次 の プロ グラ ム を 格納 し て 実行 させ て み ま し ょ う . 
80 行 の PRINT 文 と 90 一 130 行 の PRINT USING と の 店 
い を 理解 し まし ょ う . 








(演習 〕 
プロ グラ ム 38-12 の 行 番号 100 と 130 の TAB(10) を SPC(10) 
に 置き 換 そ て RUN100 を 入力 し て 実行 し て み ま し ょ う . 
SPC 関 数 は 指定 し た 数 だ け の 空自 を プリ ント 出力 し 
ます . 

















(演習 〕 





TAB と SPC 関 数 の 違い を 理解 し て くだ さい . 
TAB は 表示 され て いる 廊 字 と 同じ 行 へ 出力 し て も 廊 字 を 
消去 し な い が , SPC は 表示 きれ て いる 行 へ 再び PRINT す る 


10 INPUT "aー' PRINT USING 文 で 





30 W=A+B は , 引用 待 で 囲ま れ た 
60 :0 さ AB 中 に 廊 字 列 が ある と そ 
60 D=A/B の まま 表示 も で きる の 
70 U=A^B 


で 次 の よう: な こと や 
きま 09 


80 PRINT WiSiMiDiU 
90 PRINT USING “" 
100 PRINT USING “ 
110 PRINT USING “ 
120 PRINT USING "a 
130 PRINT USING “ 
140 PRINT USING 
145 GOTO 10 

150 END 











200 Y ニ 1981 : M=5 : D= テ 31 
210 PRINT USING“ キ キ 半 半年 半 せ 月 半日)Y MD 
270 END 
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』0 


(注意 ] 
PRINT USING “# 半 人 キ " AB, C | 











の よう に , 書式 仕様 が 不足 し た 場合 は 同じ 書式 仕様 が 繰 
り 返 し 使わ れ , 数 値 変 数 B, C も 5 桁 以内 で 出力 され ます . 
候 小 数 点 ( . ) を 付け て 出力 し た い 場 合 , 

書式 仕様 の 中 で , 任意 の 位置 に 小数 点 1 個 を 挿入 で きま 
す . 小数 点 以下 の 余っ た 桁 に は ゼロ が 表示 され ます . 
〔 例 〕 





250 Xー23.846 : Y= ニ 5.3 : 0.045 
260 PRINT USING“ 半 半 。 壮 半 半 "j XY Z 
270 END 











この プロ グラ ム の 出力 結果 は , 


こ 23.846 ここ 5.300 ここ 0.045 





と な り ま す . 

候 円 記号 (\ ) を 付け た いと き , 

\100 と か \360 な どの よう に 数 字 の 直前 に "\/ を 付け 
る に は , 2 個 の 円 記号 (\\) を 書式 仕様 の 中 で いせ ? 記 
号 の 前 に 付け ます . 

〔 例 〕 

300 INPUT A 

310 PRINT USING “まま キ キキ "AA 

320 PRINT 

330 GOTO 300 











だ た と えば , 360 を 入力 する と , .\360 と 表示 され ます 
人 @ 3 桁 ご と に コ ンマ ( , ) て 区 切り た い 場 合 , 

千 の 位 。 百 万 の 位 な ど に コン マ を つけ て 読み や すく する 
に は , “ 半 ? 記号 の 直後 に コン マ を 書き ます . 小数 点 が ある 
場合 に は 小数 点 の 直前 に コン マ を 書き ます . 

〔 演 習 〕 





350 INPUT _B 

360 PRINT _ USING “ 半 半 せ /:B 
370 PRINT | 
380 GOTO 350 





だ た と えば , 4536 を 入力 する と , 4,536 と 表示 され ます 
(演習 





360 行 の 引用 符 の 中 を 后 壮 壮 斗 ,. 壮 井 と し て 2456.7 
を 入力 で みみ まし よう .。 
(演習 〕 
3456 と 入力 し た ら \3.456 と 表示 する プロ グラ ム を 考え ま 
8 の 














400 INPUT A 

410 PRINT USING “ 笠 導 寺井 寺 キ の ェ A 
420 PRINT 

430 GOTO 400 | 





〔 注 意 〕 
大 き な 桁 数 の 数 値 を 入力 する に は ., 次 の よう な 型 宣言 女 
字 を 使い ます . 




















代 精 度 型 | 8 拝 以 上 年 
単 精度 型 | 7 桁 ーー 
牧 数 型 | 32768-+32767 % A% | 
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書式 記号 と し て は , 以上 説明 し た も の の ほか に 以下 の よ 
うな 記号 が あり , それ ぞ れ の 処理 が で きま す . 





























 。 能 | 書式 記号 | 。 例 
符号 を 表示 し た い 場 合 二 十 韻 半 , 半 半 十 
/ ( 負 の と きだ け ) ー | 半 キ ー 
頭 部 の 余っ た 桁 を * 記 号 で 埋め る ネネ ネネ 半 十 
上 数 型 の 表示 に する 和信 信人 人 | 半井 音信 信人 人 
婦 定 デー タ の 最初 の 1 女 字 だ け |  」 | jrz.As 
女 字 デー タ の 表示 桁 数 を 指定 | & & | '&&/iA$ 
| 注 . ! と を の 記号 は 女 字 デー タ 用 の 書式 記号 で す . 














7| カ セッ ト テ ー プ に よる デー タ の 入出 力 


いま まで は , 画面 へ の デー タ 出 力 , キーボー ド か ら の デ 
ー タ 入力 を 説明 し て きま し た が , デー タ を カセ ッ ト テ ー プ 
へ 記録 (出力 ) し た り , カセ モット テー プ ブ か ら デ ー タ を 読み 
込む (入力 ) こと に つい て 説明 し ます . 
⑱ カ セッ ト テ ー プ へ の デー タ の 書き 込み (出力 ) 

ステ ー ト メン ト は な は 














PRINT キー ぐ 出力 並び > 


1 カセ モッ ト テ ー プ を 意味 する . 





と いう 形式 で す . 

〔 例 〕 プロ グラ ム 3-13 
100 A=1234 : A$= ニ “ABC” 
110 INPUT “SAVE OK" : RS 
120 PRINT #ー1, A, A$ 

130 END 














この プロ グラ ム の 120 行 より A と A$ が テー プ に 読み 込ま れ , 
1234 と ABC が 記録 さき れ ま す . 
〔 注 意 〕 

女池 列 の 入力 で , 先頭 に 意味 の ある 空 向 が ある と き と 欧 
字 列 の 中 に コン マ が 含ま れ て いる と き は , CHR$(34)( こ れ 
は 引用 符 を 意味 する ) で 囲ん で 書き 込ん で くだ さい . 
〔 例 〕 


140 AA$ 王 "ABC” | BS"D、 ET iC5 ニ "FEGH" 
150 PRINT キー1, A$, C$ 

160 PRINT キー1, A$ j OS$ 

170 PRINT #ー1, A$ 

180 PRINT キー1, CHRS(34) : A$ : CHRS$(34) 
190 PRINT キー1, B$ 

200 PRINT # CHRS$(34) : BS : CHRS$(33) 
210 END 





= は 











160 行 の PRINT 壮 文 で は A$ と C$ が セミ コロ ン 記 区 切ら 
れ て いる の で , ABCFEGH の よう に 連続 し た 文字 列 と し て テ 
ー プ に 書か れ , まだ , この テー デブ を 読む と き に は , ABCFG 
芋 と いう 1 個 の デー タ と し て 読ま れ ま す . 

170 行 で は , A$ の 先頭 の 空白 が 書き 込ま れ な いで , ABC 
だ けが 書き 込ま れ ま す . 180 行 の よう に 両側 に CHR$(34) が 
ある と き に は , A$ の 先頭 の 空白 も 書き 込ま れ ま す . 

190 行 の PRINT 半 女 で は , D と E が 分 離さ れ て 2 個 の プー 
タタ と し て 書き 込ま れ ま 対 . し か し , 200 行 で は , 3 六 字 の 列 
D, 互 と し て 分 離さ れず 1 個 の デー タ と し て 書き 込ま れ ま す 
カセ ッ ト テ ー プ か ら の デー タ の 読み 出し (入力 ) 


ス デ ー ド デント は 





| 


TINPUT # 一 1, < 入力 並び > | 








と いう 形式 で す . ここ で , INPUT 半 文 の 入力 並び は PRIN 
〒T# 文 の 出力 並び と 対応 し ます . 

すなわち , 個数 ,. 順 訟 ,。 デ ー タ の 型 ( 女 字 型 か 数 値 型 ) 
が , 一 致し て いる こと で す . 





PRINT ミ ー1, A,、 AS B, BS$ 
5 員 


INPUT キ ー1。 C, C$, D, D$ 





変数 名 は 必ず し も 一 致し て いな く て も よい . 
〔 演 習 〕 

250 INPUT “LOAD OR”: TLS 

260 INPUT #ー1, B, B$ 

270 PRINT B, B$ 

280 END 











〔 例 〕 
な プ ( ー タ を 書き 込ん を で お いて か ら , テ 
を 巻き 戻し , っ 人 6 13 を 実行 し て みて くだ さい . 
還 和 人 1234 と ABC が 表示 され る こと を 確認 し て くだ さい . 


ンダ 
ノ く 


_ ター 


10 


0 
コー ビー タイ ム 人 @ シレ 


PRINT _ USING 文 の 復習 で す 後 利 計算 で の 元利 合計 を 
画面 に 表示 し ます . 

10,.000 円 を 利率 8.2 の で 5 年 間 預 けた らい くら に な る で し 
EE2 





プロ グラ ム 3-14 





10 REM *** ガン リ ゴウ ケイ *※※ ネ 

20 INPUT “ガン キン ハ イク ラ デ ス ガ '?X 半 

30 INPUT “キン リ ハ ナン デス カ "jR 

40 INPUT “ナン ネン マデ ミ マ スカ "ijY 

50 PRINT : PRINT 

60 PRINT "ガン キン ニ 

70 PRINT _ USING" MR 半井 韻 半井 "XX 本 
S0 PRINT “円 " 

90 PRINT "キン リ =" ロ RiP% り " 

100 PRINT 

110 PRINT "年 ": TAB(7) :“ が ガン リ ゴ ウ ケイ ”" 

120 FOR A=1TOY 

130 C キ ニーINT (10*X キ * ネ (1 十 R/100) へ A)/10 

140 PRINT A:TAB(6) : 

150 PRINT USING “ 北 壮 半 半 半井 半 半 半 ,"jC 壮 : 
160 PRINT “円 " 

170 NEXT A 

180 PRINT :PRINT : GOTO 20 














(人 放し 





名 ll 有 用 目 上 四 
(目標 〕 計 
顧客 管理 と か , 会 計 処 理 , 実験 デー タ 処 理 な ど で は , 多 
量 の デー タ が 取り 扱わ れる と と も に , その 種類 も 多 項 目 で 
す . た と えば , 顧客 1 人 に つい て , 住所 , 電話 番号 , 職業 , 
令 , 性 別 な どの 項目 が あり ます . また , 毎月 の 会 計 処 理 
で は , 月 々 の 交通 費 , 食費 , 消耗 品 費 , 会 費 , 図書 費 な ど 
の 項目 が あり ます . 
これ ら の 多 項 目 の デー タ を 効率 よく , メモ リ に 格納 し , 
取り 扱う に は デー タ を 配列 と し て 取り 扱う よう に し ます . 
すなわち , 1 次 元 の 表 や 2 次 元 の 表 を 操作 する こと に な 
り ま す 。 
ここ で は , 表 の 作成 , 表 の 中 へ の デー タ の 格納 , 表 か ら 
の デー タ の 取り 出し に つい て 理解 し ます . 
吊 有 用 用 用 川 還 還 


1] 1 次 元 の 配列 素 の 作り 方 


1 月 か ら 6 月 まで の 各 月 の 収入 金額 を 1 つの 変数 名 で メ 
モリ の 中 へ 格納 し て お くに は , 次 の よう に し ます . 
プロ グラ ム 4-1 









II 上 田 胃 臣 

















10 DIM A(6) 

20 READ A①), A(2),A(3)、A(④, A(⑤), A(6) 

30 DATA 1000, 2000,3000、4000, 5000, 6000 

40 PRINT A(1) : A(2) : A(3) : A(4) : A⑤) : A(6) 
1000 END 








と の デ ロ グ ラム に よれ ば , 月 の デー タ が 


格納 され ます . 


トド 表 の よう に 各 














行 番号 10 の DIM 廊 は メモ リ に デー 


タ を まとめ て 格納 する 
これ を 配列 と いい ます が 
A(6) ま で に 7 


領域 を 確保 むる と き に 使い ます . 
A(6) は 配列 変数 と 呼ば れ ,. ここ で は , A(0) 一 
つの デー タ を 格納 で きま す . 
プロ グラ ム 4 - 1 で は , A(0) は 使用 し て いま せん . 
行 番号 40 で は , READ, DATA 廊 で 読み 込ま れ た デー タ 
を 確認 する 意味 で 出力 し まし た . 
(演習 〕 


プロ グラ ム 4 - 1 を 改造 し て , 1 月 一 6 月 の 任意 月 を 
キー 入力 する と その 月 の 収入 金額 が 表示 さき れる プロ グ 
ラム を 作り , 実験 し て み ま し ょ う . 

50 INPUT “ナン ガツ デス カ ”": M 























60 PRINT M : “月 ノシ ュ ウ ニ ウ バ "j A(M) j “円 デス ツ 
70 PRINT 
80 GOTO 50 
以上 の 行 番号 50 一 70 を 追加 し て RUN し ます . 
(演習 
配列 変数 N$(5) に 商品 名 を 5 種類 , 格納 し , 商品 コー ド を 
キー 入力 し た ら 商 品名 が 表示 され る プロ グラ ム を 作り まし 
貼 玖 叶 


表 2 


変数 名 
商品 コー ド 
商 品 名 
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10 


プロ グラ ム 4-2 





100 DIM N$(5) 

110 READ NS1),NS(2)、NS$(3), NS(④, NS$(⑤) 

120 DATA イチ ゴ , リン プ , ミカ ン , スイ カ , ブドウ 
130 PRINT NS(1) : N$(2) : N$(3) : N$(3 : N$⑤) 
140 INPUT “コー ド ハ ” CC 

150 PRINT "コード" Ci ハハ ヒン メイ "5 NS(C) : デス" 
160 PRINT 








170 GOTO 140 







交 字 デー タ は 引用 符 よ "で デー タ を 囲い ます .。 また 
変数 は 廊 字 型 を 示す $ 記 号 を 使い ます . 
RESTORE 文 は 、 READ 文 が 実行 され る と き は DATA 女 
の 最初 か ら 読み 込ん で くる こと を 指示 する も の で す . 
(注意 〕 
配列 変数 A1), A2) A(3)……… は 
数 値 変 数 A1, A2, A3 と は 意味 が 違い ます . すなわち 
配列 変数 で は ( ) の 中 も 変数 に な りえ ます (添字 と いう )、 
添字 が 1 個 の 配列 を 1 次 元 の 配列 と いい ます . 


[2] 2 次 元 の 配列 表 の 作り 方 


1 月 か ら 3 月 まで の 各 月 の 収入 , 支出 を メモ リ の 中 へ 格 
納 す る に は , 次 の よう に 2 次 元 の 配列 を 使う こと に な り ま 
すず 


表 3 
了 二 NAS SI 















だ た と えば, 
- B(2, 3)=300 
収 入 | 1000 2000 3000 | B(1 5)=2000 
支 出 100 200 300 を 意味 し ます . 


DIM B(2, 3) は , 
左 の よう に 2 次 元 の 表 
B(0,0) | B(0 1) を メモ リ の 中 に 作り ま 


B(1, 0) 1) | B(1. 9 
B(2、 0 H 


な わ ち , 配列 変数 B(2, 3) で , 2 個 の 添字 の うち , 
添字 で 月 を , 左 の 添字 で 項目 を 示し ます . 
残高 は , 1 月 の 分 を B(0, 1), 2 月 分 を B(0, 2), 
3 月 分 を B(0, 3) に 計算 し て 格納 し ます . 
プロ グラ ム 4・-3 























10 DIM B(2,3) 

20 READ B(1.1), B(2.1) 

30 READ B(1.2), B(2,2) 

40 READ B(1,.3), B(2,3) 

50 DATA 1000, 100 

60 DATA 2000, 200 

70 DATA 3000, 300 

80 RESTORE 

150 INPUT “ナン ガツ デス カ ”" ji M 

160 PRINT Mi “月 " 

170 PRINT “シュ ウニ ュ ウ ハ " 5 B(1LM) “円 " 
180 PRINT “シシ ュ ツ ハ " 5 B(2.M) “円 " 
190 B(0,M)=B(1,M) 一 B(2,M) 

200 PRINT "ザン ダ カ ハ "』 B(O,M) : す 円" 
210 PRINT 

220 GOTO 150 

1000 END 
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(演習 〕 
プロ グラ ム 4- 3 の うち , 各 月 の 収入 , 支出 金額 を キー ボ 
ー ド より 入力 で きる よう に し ます . 
プロ グラ ム 4- 4 





10 DIM B(23) 

20 INPUT “ナン ガツ デス カ ” j M 

30 INPUT “シュ ウニ ウ ハ " 5j B(1, M) 

40 INPUT “シシ ュ ツ ハ " j B(2,M) 

50 B(0, M)=B(1、M) 一 B(2, M) 

60 PRINT M : B(1, M),: B(2,M) : B(0,M) 
70 PRINT : GOTO 20 

1000 END 


〔 演 習 〕 
次 の プロ グラ ム を 格納 し て , 数 値 型 と 文字 型 の 配列 変数 
の 取り 扱い に つい て 確か め て くだ さい . 
プロ グラ ム 4-5 














100 DIM Ns(3), T(⑬) 

110 READ NS1⑪), T(1), N$(2②), T(2),N$⑬③), T(⑬) 
120 DATA メロ ン , 800, スイカ, 500, ブドウ , 350 
130 PRINT N$⑪①), TQ) 

140 PRINT N$(②⑫, T(②) 

150 PRINT Ns$(3), T(⑬) 

160 INPUT “コー ド ハハ 1-3" : 1 

170 PRINT I : Ns() :“ タ ンカ ” ji TO “円 
180 PRINT : PESTORE 

190 GOTO 160 

1000 END 











この よう に 配列 変数 は ひと つの 導 数 名 で 深 字 を 付け る こ 
と に よっ て 数 多く の デー タ を 取り 扱う こと が で きま す . 毎 
月 の 電気 料金 、 ガス 料金 , 電話 料金 な どの 一 覧 表 や , 生徒 
ご と の テス ト 結 果 の 集計 表 な ど , 実用 プロ グラ ム で は 表 の 
使用 が 必ず あり ます . 

配列 変数 を 使っ た プロ グラ ム で は , 実際 に は , ここ て で 述 
べた よう な READ, DATA 廊 の 形 で は を なく , 繰り 返し 実行 
女 を 使っ た も の に な り , ずっ と 短い プロ グラ ム に な り ま す 
これ に つい て は , 次 の FOR 一 NEXT 文 で 説明 し ます . 


















省 川上 貞 上 川上 川上 川 上 川 川 川 川 腹 眉 
目標 

前 日 の 配列 の と ころ で READ, DATA 文 に より , 何 度 も デー 
タ を 読み 込む と ころ が あり まし た . プ ログ ラム を 設計 する と き 
ひと つの 文 を 繰り 返し 何 度 も 実行 する よう な こと が 多い こと 
に 気がつき ます . 繰り 返し の 回 数 が あら か じ め 確 定 する 場合 
に は , FOR NEXT と いう 文 を 使っ て プロ グラ ム を 作る 
と 便利 で す . また , プロ グラ ム の ステ ッ プ 数 も 少な く な り ま す . 

ここ で は , 繰り 返し 処理 の プロ グラ ム , すなわち , ルー プ 
の ある プロ グラ ム の 作り 方 に つい て ,『 単 二 レ ループ 』 と 『 多 重 
ルー プ 」』 を 例 に 理解 し ます . そし て , まとめ と し て , 『 仕 入 作 
業 の プロ グラ ム 化 』 と 『 仕 入 フ ァイル の 作成 プロ グラ ム 例 』 


に つい て 研究 し ます . 
MI 用 用 腹 用 有 有川 和風 出 四 罰 


1 | 単 一 ルー プ の プロ グラ ム の 作り 方 


プロ グラ ム 4 - 1 で ルー プ ' を 使っ て 改良 する と , 1 の よう 
に な り ま す . 6 個 の デー タ を 配列 変数 A(6) の 中 へ 格納 する 
に は 添字 が 1 一 6 まで 変る こと に 注意 し まし ょ う . そし て , 
添字 の 増分 単位 は 1 で ある こと を 理解 し ます . ある 廊 を 繰 
り 返 し , 繰り 返し 実行 させ る と き , その 繰り 返し 回 数 が あ 
ら か じ め 確 定 する 場合 に は , 次 の よう な 形式 で ルー プ を 作 
り 。 ま : す 。 


世 










沼 II 




















1 

















制御 変数 三 初期 値 加 最終 値 増分 
この 間 に , 繰り 返し 実行 され る 文 を 書く . 
INEXT 語 店 早生 


この FOR 一 NEXT 文 を 使っ て プロ グラ ム 4- 1 を 改良 
し た も の が , 次 の プロ グラ ム 5 - 1 で す . 実際 に プロ グラ ム 
を キー 入力 し て 実行 し て みて くだ さい . 
〔 演 習 〕 
プロ グラ ム 5- 1 


SS 


2 の S の SS の SOS2SSS25S32S65S つ SS の 3 くう 9 くう 22332S32S223200 
0000220020000200 ボ ボ ギ ぱ 000 ぼ ぱぱ 0 


だ < . 守 6 の 1 pー に 
OCS 








10 DIM A(G) 

20 FOR エー1 TO 6 STEP 1 

30 READ AI) 

40 PRINT AU) : 

50 NEXTI 

60 DATA 1000, 2000, 3000, 4000, 5000, 6000 
70 RESTORE 

1000 END 















AS 


ら の 









em 


% 


ペン ッッ 


> 





レミ ん / 迷 の 46 の 4 グ 
レン SA ジ 


OSASSSOS 
> AO の 
4 ん は グフ ム 









この プロ グラ ム で は , 配列 変数 の 添字 が 変数 1 に な り , 
その 変数 1 を 1 か ら ル ー プ を 廻る ご と に 1 ずつ 増分 し , 6 
に な る まで FOR 女 と NEXT 文 で 囲ま れ た 廊 を 繰り 返し 実行 
し ます . 行 番号 30,. 40 の READ 文 , PRINT 娘 は それ ぞ れ 6 
回 実行 きま れ ま す . 

添字 変数 Th が 1 か ら 6 ま で 変っ て いく 様子 は 次 の ブログ 
ラム で 確 め て み ま し ょ う . 

〔 演 習 〕 


プロ グラ ム 5-2 





100 FOR 』=1 TO 6 STEP 1 
110 PRINTI: 

120 NEXT 1 

1000 END 











プロ グラ ム 5 - 1 が 格納 され て いる 場合 に は RUN100 と し 
て 実行 し ます . 行 番号 100 の STEP 1 は 増分 が 十 1 の と き に の 
み 省 略 で きま す . 省略 され て いる 場合 は 増分 は 1 と な り 
ます . 

1 回 日 の 実行 で は PRINT 1 廊 で 1 が 表示 され ます . NEX 
T 1 文 で [が 1 され ITー2 と な り , 再び PRINT 1 が 実行 
され , 2 が 表示 され ます . 次 の NEXT 1 廊 で きら に T が 1 
され 3 と な り , 以下 6 に な る まで 繰り 返し ます . この 様子 
を 図 2 に まとめ て お きま し た . 

PC-8001 で の FOR 一 NEXTT 廊 で は どん な 制御 変数 の 値 で も , 
1 回 は FOR 一 NEXT 文 が 実行 きれ ます . 
2 制御 変数 の 増分 の 様子 
制御 変数 。 | 表示 内 容 | 増分 


PRINT I 


| 


1=I 二 1 




















の | の 心 oO も | ピロ 
の ひ 心 oO いも や 
で の の 心 の いう 


























〔 演 習 〕 
次 の プロ グラ ム を 制御 変数 の 値 と 増分 に 注意 し て 実験 的 
に 確か め て くだ さい . 
プロ グラ ム 5-3 





150 FOR エニ 10 TO 1 STEP 一 1 
160 PRINT 1: 

170_ NEXT I 

1000 END 





プロ グラ ム 5- 4 





200 FOR エー1 TO 20 STEP 2 
210 PRINTI: 

220 NEXT TI 

1000 END 











表示 結果 を よく 見 て 制御 変数 1 の 変化 する 様子 を 理解 し 
まじ の 
〔 演 習 〕 

10 個 の デー タ を キー ボー ド か ら 配 列 変 数 DAT⑩ に 格納 
する と と も に 総和 を 求め る プロ グラ ム を 作り まし ょ う . 


』O 


プロ グラ ム 5-5 





250 DIM DAT(10) 

260 FOR エニ =1 TO 10 

270 INPUT “デー タ オ イレ ョ ヨ ” : DAT①) 

280 DAT(0)=DAT(0)+DAT(I) 

290 NEXT 1 

300 PRINT “10 コ ノ デ ー タ ハ ツ ギ ノ ト オ リ デス " 
310 FOR T=1 TO 10 

320 PRINT “DAT(":T:7)= ニ "DAT(T) 

330 NEXT 1 

340 PRINT 

350 PRINT “デー タ ノ ゴウ ケイ パ の" : DAT(0):“ デ ス ツ 
1000 END 











(演習 〕 
10 種 類 の 商品 名 を 商品 コー ド と と も に メモ リ に 格納 する 
プロ グラ ム を プロ グラ ム 5- 1 を 参照 し て 作り ます . 
プロ グラ ム 5-6 





400 DIM N$(10) 

410 FOR T=1 TO 10 

420 PEAD N$(⑪) 

430 PRINT NSH) : 

440 NEXT 1 

450 RESTORE 

460 DATA “イチ ゴ ッ “ブドウ ウッ ミカン ウパ リン ゴウ バナナ” 
470 DATA “レモ ン う “メロン ウス イカ ウッ "モモ ウラ “ナシ” 
1000 END 











ここ で , 1 は 商品 コー ド の 役目 を し て いま す . 

商品 名 が メモ リ に 格納 され た 様子 を 図 3 に 示す . DATA 
娘 で の 文字 型 の デー タ は 6 桁 と する た め , 6 桁 に 満た な い 
モモ , ナシ , メロ ン な ど は , 空白 を 後に 入れ て 引用 待 で 囲 
ん で お く と 表示 する と き に 便利 で す . 





540 INPUT “1-40 マ デ ノ ドレ カ ”: N 
550 FOR 1=1 TO N 

560 PRINT CHR$(135) : 

570 NEXTI 

580 PRINT 

590 GOTO 510 

1000 END 





この プロ グラ ム は キー 入力 され た 数 だ け 画 記号 で 横 に 棒 
グラ フ を 表示 する も の で す . 行 番号 560 の PRINT 女 で CHR 
$(135) の 代わ り に 引用 待 を 使っ て グラ フィ ッ ク 記 人 号 園 を 囲ん 
で 560 PRINT “ 画 " : と し て も , 同じ こと で す . 


2| 多 重 ル ー プ の ある プロ グラ ム の 作り 方 


FOR 一 NEXT 娘 は ルー プ の 中 に も また FOR 一 NEXT 文 が 
く る 場合 が あり ます . この 様子 は 図 4 に 示す ご と く で す が 
この よう な プロ グラ ム の 例 に つい て 実験 し て み ま し ょ う . 














図 4 





FOR Il TO 10 


FORJ=1 TO 5 
FOR K=1 TO 3 


NEXT K 
NEXT J 








| NEXT I 





(演習 〕 

この ブログ ラム は , 商品 コー ド , 単価 , 数 量 表 を 作る プ 
ログ ラム で , FOR 一 NEXXT 文 で 作る も の で す . 

表 は 図 5 に 示す よう な も の で す . 配列 変数 を T(1, J) と し 
I を 商品 コー ド , J を 1 が 単価 、 2 が 数 量 と し ます . デー 



























































タ を 読み 込む 順 庁 は まず , コー ド 1 の 単価 。 数 量 を 読み 込 
変数 名 コー ド | 品 。 名 み , 次 に , コー ド 2 の 単価 と 数 量 を 読み 込む よう に し ます 
N $(0) 0 この 配列 要素 と 添字 の 動か し 方 に つい て 図 6 に 示し まし た . 
N $1) 1 イチ ダ 図 5 
N $(2) 2 ンド EZ 項目 
N $(3) 8 ミュ か と コー ド ol 数 量 
N $(3) 4 り 22 衣 っ 
N $(5) 5 バナ ナ 9 0. 0 
N $(6) 6 レ モン 
N $(7) 7 メ ロン 1 1, 0 
N $(8) 8 スイ カ 
N $(9⑨) 9 モ 鬼 研 2 2. 0 
N$(⑩ 10 ナ シ 

3 SCO 





プロ グラ ム 5-7 





500 CONSOLE, ,,1 
510 C=RND(1) * 7 十 1 
520 CC=INT(C) 

530 COLOR CC, 233,0 


と を! 














図 6 





T(1, 1)= 50 T(1, 2)=500 
T(2, 1)=100 T(2, 2)=300 
T(3, 1 )=200 T(3, 2)=150 
上 受 訓 | 三 2 1=3 

り 三 1。 2 りー1。 2 J ご 1.4i2 














1 の 


プロ グラ ム 5-8 9 キー 入力 作業 の 正誤 を 確認 し て , 仕 入 金額 
を 計算 し , また , 仕 入 総数 量 SS# (N), 仕 入 総 金額 

SD (N) に つい て , 商品 ご と に 計算 し , 仕 入 フ ァイル 

覧 表 を 作成 する . 全 商 品 の 仕 入 総 金額 8Z# を 算出 する . 





10 DIM T3. 2) 
20 FOR エ =1 TO 3 
30 FOR J=1 TO 2 | 
















































40 READ TL 出力 結果 例 を 図 8 に 示し ます . 
50. ERINT TOT TA な) な どう 45.J) | ブロ ジグ ラム 510 
60 NEXTJ 10 DIM ST(10), SS キ ($0), SD#(10): NS10) 
70 NEXT 1 40 SZ#ー0 
80 DATA 50, 500, 100, 300, 200, 150 7 
90 RESTORE 
1000 END 96 の 1 9X1=9 
この プロ グラ ム で は 2 重 の ルー プ と な り ま し た . す な わ 4 
ち 。 行 番 号 20 一 70 と 30 一 60 の 範囲 で す . DATA 女 は , 単 価 トリ 
数 量 。 単価 数 量 の 順序 で 並べ て お く 必 要 が あり ます . ea 
1x5=5 9X5=45 
1x6=6 9X6=54 
(演習 1X7=7 9X7 ニ 63 
九 九 表 を 作る プロ グラ ム を 考え て み ま し ょ う . 1X8=8 9X8 三 72 
プロ グラ ム 5-9 1x9=9 9X9=81 
100 FOR I=1 TO 9 」 
110 FOR J=1 TO 9 図 8 
120 PRINT Ii “XP オー リュ エネ J シイ レ ファ イル イチ ラン ヒョウ * ネ ネネ ※ ネ 
130 NEXT J: PRINT 暫 ジ 2 イ ドス ウリ ラウ キン ガク 
140 NEXT1I ィ イチゴ 100 1000 
1000 END プ ド ウ 200 PUUU) 
s ミカ ン 300 OU 
千 果 は 図 7 の よう に な り ま す . リン ゴ 
バナ ナ 
(演習 〕 た ネ ク 
10 品 目 程 度 の 商品 を 例 と し て 商品 の 仕 入 作 業 を 行 な の 
仕 入 フ ァイル を 作る プロ グラ ム を 考え て み ま し ょ う . E 王 コ 


仕 入 の 作業 設定 は 次 の 通り で す . 








| 商品 コー ド (1 一 10) N, 仕 入 単 価 ST(N), 仕 入 数 量 記 4 県) 
ブロ グラ ム ゴリ ズ ト 


キーーー 
1500 CONSOLE , 1730 INPUT“ Y/n" 者 
1510 FOR 1=1 TO 0 1740 IF AS= ニ "mn' GoTO 1660 























1520 READ NSI) 1750 Y キ ST(N)*S 

1530 NEXT I: RESTORE 1760 SS キ (N)= ニ SS キ (N) 十 S 

1540 1 が ゴ 1770 SD(N)=SD キ (N) 二 YY 

1550 1780 GOTO 1660 

1560 2000 REM * ネ ネネ シイ レ ファ イル * ネ ※ 玉 

1570 2010 LPRINT : LPRINT "* ネ ネネ シイ レ ファ イル イチ ラン ヒョウ ネネ ネリ 
1580 2020 LPRINT 

1590 2040 LPRINT "コー ド ヒン メイ スウ リョ ウ キン ガク " 

1600 2050 LPRINT 

1610 2060 FOR X=1 TO 10 












1620 2070 LPRINT USING 上: を み 導 1 衣 、 坦 】 

1630 DATA "ナシ 2070 

1640 PRINT の の ファ イル サク セイ ”" 2080 井 斗 半 斗 韻 壮 韻 寺 半 。" j SS 韻 (X), SD 六 (X) 
1650 PRINT 2090 SZ 

1660 INPUT "コー ド " ji N 2100 NEX 

1670 IF N=999 GOTO 2000 2110 

1680 INPUT "シイ レ タン カ " ji ST(N) 2120 LPRINT SPC(17) : 

1690 INPUT "シイ レ スウ リョ ウ "j S 2130 LPRINT USING "年 半 せ 韻 半 壮 半 半 韻 半 。 ) SZ 閉 
1700 COLOR 4 2140 INPUT "OK" : AS 

1710 PRINT Ni " “ji NS(N) : ST(N) : S 2150 GOTO 1640 

1720 COLOR 0 3000 END 











NN が 
ルン 
























の 


ey 


< 
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(目標 四 

計算 結果 や 入力 し た デー タ が ある 値 よ り 大 きい か 小さ いか , ま 
た , ある 範囲 内 に ある の か な い の か を 調べ , その 結果 それ ぞ れ 該 
当 す る 処理 を する プロ グラ ム へ 分 岐 し て いく よう な 場合 は た くさ 
ん あり ます . 

『 も し 一 な ら ば ーー する 』 と いう よう な 廊 は , マイ コン で は IF 文 
と いう 比較 ・ 判 断 命 令 が あり ます . 

この IF 婦 を うま く 使 いこ な す と , あたかも , マイ コン が 複雑 か 
つ 高 機能 な 判断 を し て くれ る と 錯覚 し て し まう ほど 素晴らし い プ 
ログ ラム を 作る こと が 可能 で す . 

ここ で は , 数 値 の 大 , 小 や , 壇 字 の 判断 が で きる プロ グラ ム の 
作り 方 に つい て 学習 し , IF 文 を 理解 し ます . 全 
山 用 用 用 


[1 数 値 の 判断 


キー 入力 し た 数 値 が 100 よ り 大 きい か , 小さ いか を 判断 す 
る プロ グラ ム を 作っ て 実験 し て みる . 
プロ グラ ム 6- 1 


II 





10 INPUT "x=”: 駐 

20 IF ※>=100 GOTO 50 
30 PRINT “チイ サイ ョ " 

40 GOTO 10 

50 PRINT “オオ キイ ョ " 

60 GOTO 10 











20 1F メ >ー100 GOTO 50 の 廊 は 、 X の 値 が 100 に 等 し 
いか それ 以上 な ら ば , 行 番号 50 へ ジャ ンプ し て , PRINT“ オ 
オキ イ ヨ ”" を 実行 する . 100 未 満 の 場合 は この 文 の 次 の 文 , す 
な わ ち 行 番号 30 の PRINT“ チ イサ イ ヨ " を 実行 する . 

この 黄 の 型 は , IE 論理 式 GOTO 行 番号 と な っ て いる . 論 
理 式 で 使え る 関係 演算 子 と し て , 


… 等 し い 
く >,。 > < く … 等 し く な い 
ぐ … 小 さい 

>… 大 きい 
に 
ンタ 





ー, 三 ぐ … 等 し いか 小さ い 
三 ,。 テン … 等 し いか 大 きい 











な ど が あり ます . 
(演習 〕 
0 か ら 7 まで の 数 値 を 受け 付け る プロ グラ ム を 作り まし 
ょ う . それ 以外 の 数 値 は プリ ント し ませ ん . 
プロ グラ ム 6-2 





100 INPUT “スウ ジ オ イレ ョ ヨ ” : XX 
120 IF X ご 0 GOTO 100 
130 IF X>7 GOTO 100 
140 PRINT “カズ ハ ” ェ 
150 GOTO 100 


XX : デス” 








ある 範囲 の 数 値 し か キー 入力 で 受け 付け な いよ うに する 
に は 上 の よう な プロ グラ ム と し じ ま す . 
〔 演 習 〕 
9|- 思 ま で の キー 入力 し か 受け 付け を な いよ うな プロ グラ 
ム を 作る に は プロ グラ ム 6- 2 の どこ を 改良 すれ ば よろ し い 
で 02 よう 5 
〔 演 習 〕 

数 あて ゲー ム の プロ グラ ム を 作っ て み ま し ょ う . 当て る 




















26 





と SSRSSXS2XS2AS2AS2XS2XSSXSXSSXSSXSXSKSOSSKSOXSXSSKSXSxS、 
02220 
SS 
> の ノリ 比 証 


AX CO 
まこ と 


SGX 














2 


0 


ンタ 
させ < 


0 


SS 
。 章 用 


と 
8 次 けい | 
















数 は 最初 に 前 も ちっ て プロ グラ ム の な か で 代入 廊 で 定義 し て 
お きま す . 
プロ グラ ム 6-3 





200 A=135 

210 INPUT “カズ オア テテ クダ サイ ” : XX 
220 IF X<135 GOTO 260 

230 IE X>135 GOTO 270 

240 IF メニ 135 GOTO 280 

250 GOTO 210 

260 PRINT “チイ サス ギ マ ス ” : GOTO 210 
270 PRINT “オオ キス ギ マ ス " : GOTO 210 
280 PRINT “アタ リマ シタ ” 

290 END 


[2 文字 の 判断 


アル ファ ベッ ト ・ キ ーA 一 妥 だ け を 受け 付け る よう な プ 
ログ ラム は よく あり ます . た と えば , 2 者 択 一 の 場合 。 Y 
ES の と き は |IYI の キー を , NO の と き は IN の キー を 入力 さき 
せる と き が あり ます . この よう な と き は [YlI の キー を 押し た 
か IN の キー を 押し た か 調べ 判断 し な けれ ば な り ま せん . 

文字 を 判断 する と き は 次 の よう な プロ グラ ム に な り ま すず す 
〔 例 〕 





















































プロ グラ ム 6-4 





300_ INPUT “YES ナラ (Y), NO ナラ (N) オイ レ ヨ ”: A$ 
310 1F A$= ニ "YY GOTO 340 

320 1F AS$="NY GOTO 350 

330 GOTO 300 

340 PRINT “YES" : GOTO 360 

350 PRINT “NO" 

360 PRINT : GOTO 300 








入力 女 字 の 判断 や 文字 列 の 判断 に は IF 廊 の 論理 式 は , 判 
断 す べき 廊 字 列 を 引用 符 “ ” で 書き , 関係 演算 子 で 廊 字 変 
数 と 結び ます . 

(演習 〕 

アル ファ ベッ ト ・ キ ー の AZ まで を 
ー 入 力 は 受け 付け な いよ うな プロ グラ ム 
(演習 〕 

商品 名 、 メ ロン を キー 入力 し た ら 商品 コー ド 7 と メロ ン 
を 印刷 する プロ グラ ム を 作っ て くだ さい . それ 以外 の キー 
入力 は 受け 付け な いも の と し ます . 

次 の プロ グラ ム を 比べ て , TTF 文 と 先 に 学習 し た FOR 一 N 
EXT 文 の 相違 点 に つい て 考え て みて くだ さい . プロ グラ ム 
は 2?" を 計算 する プロ グラ ム で す . 結果 を 図 1 に 示し ます . 

プロ グラ ム 6-5 


受け 付け , 他 の キ 
を 作っ て くだ さい . 








10 N=1 : 1 ニ =1 

20 N=N*2 

30 PRIHNT “2 ヘタ ェ 
40 TI 二 1 

50 IF 1 ユマ =16 THEN GOTO 20 
60 END 


Ti “ニッ:N 























プロ グラ ム 6-6 





10 N=1 

20 FOR 1=1 TO 16 

30 N= ニ N*2 

40 PRINT 2 へ " ェ エ ュ ョ ドー" ョ N 
50 NEXTI 

60 END 








図 1 結果 


2 へ 1 三 2 

2 へ 2 三 4 

2 へ 3 三 8 
AZ 二 王 引 () 

2 へ 5 三 32 

2 へ 6 三 64 

2 へ 7 128 
23: 全 ニル 4 リリ 
23: 記 二 】 ル 4 
AI ん 1 
2 へ 11 三 2048 
23 ル 4 リト 
2 へ 13 三 8192 
2 へ 14 三 16384 
2 へ 15 三 32768 
2 へ 16 三 65536 














『 も し 一 な ら ば - - - - を する . さも な けれ ば を す 
る 』 と いう よう な 論理 を すす め と き に は IF 一 THEN- --- 
ELSE 一 廊 を 使い ます . 

プロ グラ ム 6 - 1 の 数 値 の 大 小 を 判断 する プロ グラ ム を こ 
の 形 で 書い て み ま す . 

〔 例 〕 





プロ グラ ム 6-7 





3 中 訟 疾 思 NSE = ES 上 語 一 





410 A=100 

420 INPUT "x=" ji 駐 

430 IF ヌメ > テ A THEN M$=" オ オキ イ ョ "ELSE MS= ニ "チイ サイ ョ ト 
440 PRINT MS 

450 GOTO 420 

460 END 











PRINT 文 と GOTO 文 の 数 が 1 つ ず つつ 合計 2 行 減少 し まし 
だ . 条件 が 成立 し た と き (ここ で は , X メ が A に 等 
また は それ 以上 の と き ) は THEN の 次 の 文 を 実行 し , 条件 
が 成立 し な いと き は ELSE 以 下 の 文 が 実行 され ます . 

〔 例 〕 

プロ グラ ム 6-2 を IP 一 時 EN - ----- ELSE 

書き 直す と 次 の よう な プロ グラ ム に な り ま す . 
プロ グラ ム 6-8 








XS 








500 INPUT “スウ ジ 1-7 オ イレ ヨ ” : 

510 1F X<0 OR X>7 THEN 500 ELSE PRINT 
ドカ ズ ハロ X 9 デ スジ 

520 PRINT : GOTO 500 








論理 式 及 <0 OR X>7 は , 2 つの 式 が 論理 演算 子 OR 
で 結ば れ て お り , また は の 意味 と な り ま す . この ほか に 議 
理 演算 子 と し て は , NOT, AND, XOR, IMP, EQU な ど 
が あり ます が , これ ら に つい て は 後述 し ます . THEN の 後 
に は この よう に 行 番号 だ け を 書く こと も で きま すす 虹 ES 也 の 
後 も 同様 に 行 番 号 だ け で も 書け ます . 


0 


|4] 条 件 が 多 合 の IF 文 に よる 処理 


TEF 文 で は , THEN や ELSE に さら に IF 文 を 書く こと が で 
きま す . その た め , 複雑 を 条件 判断 を 行なう と き は 多重 の 
IF 文 に よっ て 処理 する プロ グラ ム を 作り ます . 

〔 例 ) 

プロ グラ ム 6- 3 に は IF 文 が 3 つも あり ます . これ は , 条件 
と し て 双 <135, X>135, 双 ー ニ 135 の 3 つが ある こと に な り ま 
す . この プロ グラ ム は 次 の よう に 書く こと も で きま す . フ 
ロ チ ャ ー ト を 図 2 に 示し ます . 

プロ グラ ム 6-9 





い 場 





550 A=135 

560 INPUT “カズ オ アテ テ クダ サイ ”j え 

570 IF X<135 THEN 600 ELSE IF メー135 THEN 
620 ELSE 610 

580 GOTO 560 

600 PRINT “チイ サス ギ マ ス " : GOTO 560 

610 PRINT “オオ キス ギ マ ス " : GOTO 560 

620 PRINT “アタ リマ シタ “" 

630 END 




















(例題 〕 
売上 伝票 の 発行 

取扱 商品 数 10 種 類 の 売上 伝票 発行 プロ グラ ム を 考え て み 
る . 伝票 1 枚 に 取引 商品 件 数 は 5 件 まで と する . 売上 デー 
タ と し て は 商品 コー ド , 単価 , 数 量 を キー 入力 する . 伝票 
は 何 枚 で も 発行 で きる も の と し , 伝票 No を 印刷 する も の と 
する . 

発行 する 伝票 の 印刷 項目 は 商品 コー ド , 単価 , 数 量 , 金 
額 と し , 伝票 1 枚 ご と の 小計 を 計算 し て 印刷 する と と も に 
数 枚 の 伝票 に わた る 同一 取引 に 対し て は 各 伝 票 の 総合 計 を 
計算 し て 印刷 する . 

また だ , 売上 ファ イル を 作成 する た め に , 各 商 品 ご と の 売 
上 総数 量 , 売上 総 金額 の 配列 を 用 意 し , 伝票 発行 の 時 点 で 
積算 し て いく も の と する . CM 

ここ で は , 小計 の 指示 , 合計 の 指示 を * キ ー, \ ギ キー を 
入力 する こと で 行ない , IF 廊 を 使っ て 判断 する よう に プロ 
グラ ム を 作り ます . プロ グラ ム 例 を 次 に 示し ます . 


2 ィ 7 
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プロ グラ ム 6 -10 


ーー 
10 DIM N⑤), T⑤⑮), 8S⑤5), Y ミ (⑮) 


20 DIM S キ (10), D(10) 
30  G せ 0 : P=1 





500 キー0 : 1=0 売上 倒 寺 1 枚 乱 の 小計 下 を =0. 商品 人 数 1 
510 T=I+1 

520 INPUT “ヒン メイ ハ " ェ NT) 面 品 コ ー ド 入力 

530 INPUT “タン カ ハ " : TU) 単価 入力 

540 INPUT “スウ リョ ウ ハ ”" ji SU) いす 


550 Y#(1)=T(1) *S(I) 仙人 9 
560 N=N(I) 
570 SR せ (N)=S キ (N) 十 S(I) 
580 D#(N)= ニ D#(N)+Y ミ (1) 
585 IF エニ =5 GOTO 610 
590 INPUT “ショ ウケ イ ナラ (*) ヲ イレ ル ": AS$ 
600 IF A$< >"*” GOTO 510 な けれ ば 。 次 の 商品 を 入力 する 
610 LPRINT “no. : P:PRINT 表 NaFM 
615 LPRINT "コード" : SPC(10): “タン カ " : SPC(6) : "スウ リョ ウ ” : SPC(10) : “キン ガク "iiLmm 
620 FOR N=1 TOI 
630 LPRINT USING " せ キ キ 斗 壮 韻 弟 革 后 半 半 斗 半 装 壮 斗 壮 韻 半 ": 

: N(N), T(N), S(N), Y せ (N) 
640 キーT キ 二 Y キ (N) 
650 NEXT N 







僚 の 売上 総数 某 、 総 害 上 例 依 





族 5 件 な ら 小 計 
を キー 入力 


660 LPRINT “ーーー ーー ニーーーー ニ ニニ ーー -ーーーーーーーーーーーーーーーーーーーーーー- 一 ーーーーーーーーーー 2 

670 LPRINT TAB(33) : LPRINT USING "\\ キ キキ キキ せ エ キキ 925 地 生 壮 

680 G せ ニキ 十 呈 壮 :Pー ニ P 十 1 人 才 導 。1 入 分 の 総合 計 
690 INPUT “ゴウ ケイ ナラ ( ぎ ) ラ ヲ イレ ル ": AS$ 1 人 分 合計 な ら \ 入 用 


700 IF A$="\" GOTO 720 

710 GOTO 500 

720 LPRINT SPC(14) : LPRINT "マイ ド アリ ガト ウ ゴザ イマ ス ”: TAB(25) : 
725 LPRINT USING “" 壮 寺 半 半井 壮 壮 半 井 ,, ツェ G 壮 

730 クキ ニク キ 二 G 革 : G キ 0 





























740 END 
し 
図 3 プロ グラ ム 6 -10 の 出力 例 
no. 1 
コー ド タン カ スウ リョ ウ キン ガク 
1 10 10 100 
3 30 150 3500 
IM MMHUMM UNIONMNg \4.600 
7 0 こと トン Sa し ー ア テア ェ 
SEK タン カ スウ リョ ウ キン ガク 次 の プロ グラ ム を 実行 し て , 楽し ん で くだ さい . 正確 な 
9 20 60 1200 相 6 > つい: 
8 10 5 50 判断 を する 式 で は な い の で 念 の た め 申 し 添え ます . 
人 NEW 3 ie プロ グラ ム 6 -11 
マイ ド アリ カト ウ ゴブ ザイ マス \5、850 こ デ 
700 INPUT "アナ タ ノ ネン レイ ハツ ェ A 
710 INPUT "アナ タ ノ シン チョ ウ ハ " ij B 
(演習 〕 720 INPUT "アナ タ ノ タイ ジュ ウ ハ ”"iC 
5 1 * 730 INPUT "アナ タ ノ ケツ アツ ハ "jD 
較 3 に お いて , 商品 コー ド の 光 に 商品 名 を 印刷 で きる よ 740 PRINT 
うに プロ グラ ム 6 -10 を 改造 だ さい 750  C$ ニ "アナ タ ノ タイ ジュ ウ ハ セイ ジョ ウデ ス " 
うに プロ グラ ム 6-10 を 改造 し て くだ さい . 760 DS=" ア ナタ ノ ケツ アツ ハ セイ ジョ ウデ ス " 
〔 注 意 〕 770 ES$=" ア ナタ ハ ヒマ ン デス ” 
ラ - デリ ンタ 出力 に な ヽ > 780 F$=" ア ナタ ノ ケツ アツ ハ タカ スギ デス " 
プロ グラ ム 6 -10 は 、 プ リン タ 出 力 に な っ て いる の で , ディ 790 IF C>(B-100) *0.9 THEN PRINT RS ELSE PRINT CS 
スプ レイ 上 へ 出力 する と き に は , LPRINT 文 を PRINT 廊 に 800 IF D>120+(A20)/2 THEN PRINT FS ELSE PRINT DS 
直し て くだ さい . また , 画面 は 1 行 80 字 と し ます . 2 






















































2 で 時 まま 2 基 4 ダグ 
の も の パプ el だ お 2 ネプ シシ プイ ンク 









NO の OOmm ぴ げ ソ 和 
0 語 7 11 詳 の TT4 ミ 2 が 9, 























BUUUUUUUIIIIUUIUUIUI 有 昨 加 加 四 

三 三 フン ドニ で 

計 (目標 - 6 0 き 1 算術 演算 

言 四則 演算 や べ キ 乗 計 算 , 分 数 計算 な どの 数 値 計算 か ら , 大 小 の 三 

言 比較 演算 , 論理 演算 , 三角 関数 や 対数 関数 な どの 関数 計算 な ど が 三 こ が 

言 日 常 計算 で は よく 使わ れ て いま す 。 ここ で は 。 これ ら の 初等 演算 iSCSI 

主 に つい て , 整数 , 固定 小数 点 , 浮動 小数 点 の 場合 な ら び に 6 桁 表 三 和 足し算, 引き算, 掛け算 , 割り 算 を ダイ レク ト ・ モ ー ド 
言 示 の 単 精度 計算 , 16 桁 表示 の 倍 精 度 計算 に つい て ダイ レク ト ・ モ 写 で 実験 し て みよ う . 

宇 ー ド に よっ て 名 命 令 を 実行 し , 実験 的 に その 命令 の 機能 に つい て 詞 【 例 1 〕) print 25 二 3OOO | RET 

言 学習 し ます . 計 3025 

言 また , 売上 一 覧 表 の 作成 と 在庫 ファ イル の 作成 プロ グラ ム を 通 計 人 に. 

計 じ て , 横 の 計算 と 縦 の 計算 の 実例 を 理解 し , 配列 を 使っ た 計算 と 計 答 の 3025 は 符号 の 填 が 表示 され て いま せん . 
語 印刷 の プロ グラ ム 作 成 技法 を 理解 し ます . 計 〔 例 2 ?230 一 5OO「RErT 

曲 ll ー270 


28 


ここ で , ? は PRINT の 省略 形 で す . 
【 例 3 ) ?35*1O[RET 


掛け 算 の 記号 々 は マイ コン で は *( ア スタ リス ク ) に な り ま 
9 
〔 例 4〕 





?1/3| RET 
.833333 
割り 算 の 記号 エ こ は マ イコ ン で は (スラ ッシュ ) に 
@ べ キ 乗 の 演算 (*") 
べ キ 計算 の 記号 と し て は へ を 使い ます . 
〔 例 5 ?2 へ 8|RET| 
256 
以上 は 単 精度 と いっ て , 6 桁 ま で 表示 し ます が , 
大 き な 数 を 取り 扱う に は 倍 精度 と いっ て , 16 桁 まで 表示 で 
きる 記号 間 を 数 字 の 最後 に 付け ます . 
⑥ 倍 精度 計算 (16 桁 ) 
【 例 6 ) ?1 キ 3 キ |RETI| 
.3333 3333 3333 3333 
《⑳ カ ッ コ の つい た 計算 
は X(8 一 2) は , まず カッ コ 内 の 計算 8 一 2 を 行ない 
の 結果 に 3 が 掛け られ ます . 
0 ?3* ネ (8 一 2) | RET 
18 
分 数 の 計算 
す 士 芝 の よう な 分 数 の 計算 は 次 の よう に 
算 が 先 に それ ぞ れ 行なわ れ , その 後 足 し 算 が 行 な 
【 例 8 ] ?1/2 十 3/5 | RET| 
jl 
演算 の 優先 順位 
計算 の 順序 は ,. まず ( ) の 中 の 計算 が 行 
後 。 べ キ 乗 , 掛け 算 か 割り 算 , 
同じ 順位 の と き は 左 か ら 順 々 に 行なわ れ ま す . 











な り ます . 


も っ と 





な り ま す . 割り 





な われ , その 


【 例 9 ) ?2*(5 十 3)/2 一 2* (アー5) 
4 
(5 十 3) 三 8, (7 一 5)= ニ 2 と な り , 2X8 テ 16, 16 二 
2 ニ 8,2X2ー4 と な っ て , 最終 的 に 8 一 4 三 4 となり ます . 
め 整 数 の 計算 


整数 形式 の 定数 や 変数 の 取り 得る 
,767 ま で の すべ て の 整数 で あり , 


値 は ー32.768 か ら 十 32 
整数 は コン マ や 小数 点 を 


合 み ませ ん . 整数 型 変数 の 型 宣言 文字 は 多 で す . 
〔 例 10) A= ニ 45.36 : ?A22 [RET| 
45 
〔 例 11〕 
整数 の 除算 ほ \ 記 号 を 使い ます . その 商 は 整数 に 丸め ち 
れ ま す . ?15\4 | RET | 4 い N 以下 匠 セ 
3 YA | 
〔 例 12〕 


整数 の 剰余 計算 は 除算 の 剰余 が 整 表 で 得 ら れ ま す . 演算 
記号 と し て MIOD を 使い ます . 
?17.4 mod 5|RET 
2 
固定 小数 点 の 計算 
【 例 13〕 ?4.63 * 8.15 | RET | 
37.7345 
? 6.28/2.31 [RET 
2.71861 
? 8.2653 プ 48593/⑨9.21RET 
-8984108294193665 
? フ 7.2* O.384621538 |RET 








〔 例 14〕 














〔 例 15〕 














〔 例 16〕 
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足し 算 か 引き 算 の 順 座 で す . 


10 


2.769275000239264 
例 13, あま の ま 
うに 6 桁 以 上 の 数 を 入力 する と 結果 は 自動 的 に 
が ます 、 
⑥ 浮 動 小 数 点 の 計算 
指数 形式 で 表現 され た 2.323 107 x7.25xX10 と いう よ 
うな 計算 で す . マイ コン で は 組 数 部 分 を で 表現 し ます . 
その 秋 囲 は ー38 か ら 土 88 まで で す . 
[ 例 17〕) ?2.323E ア * ブ フ .25E 一 2 |RET 
1.68418E 十 06 
ここ で , E は Exponential (指数 ) の こと で 10 の ベ キ 乗 を 
意味 し ます . 2.323 や 7.25 の 部 分 は 仮数 部 と いい ます . 答 は 
1.68418x106 を 意味 し ます . 


例 15, 16 の よ 
こ 16 桁 表示 さ 














倍 精 度 の 浮動 小数 点 形 式 の 計算 に は E の か わり に D を 使 
いま す . 
【 例 18〕 倍 精度 の 浮動 小数 点 の 計算 
っ 1 .258694235D8*3.568143621D1O 
[RET | 


4.491201805404725D 十 18 
E 層 者) 数 値 定数 と 数 値 変数 


整数 See 
園 定 小数 点 | 288 
浮動 小 数 点 1 














103E5 
10 進 。 | 100 
16 進 。 &H64 
8 進 。 語 144( 吉 0144) 














性 謝 :>) 交 数 と 形 家 言 文字 


各 数 変 数 
清 度 
精度 変 有 











単に 。 DATA と いう 形 宣言 娘 字 の な い 数 
変数 と みな し ます . 
ここ で , 単 精度 と は 有効 桁 7 桁 以 下 の 数 , また は , E を 
使っ た 指数 形式 表現 。 最後 に 感嘆 待 / を 付け た も の を 示し 
ます . 
方 , 倍 精度 と は ,、 有効 桁 8 桁 以上 


値 変 数 は 単 精度 


(17 桁 まで ) の 数 , 


り また は , D を 使っ て 指数 表現 きれ た も の , 最後 に ナン バー 


記号 半 を つけ た も の を 示し ます . 
(注意 〕 

格 数 が 7 桁 を 起 を る 大 き な 数 に な る と き は 倍 精度 変数 を 
使っ て 計算 し た り し ます . 台数 数 を 使う と 小数 点 以 下 は 
丸め られ て 計算 きれ る の で 注意 し て くだ さい . 

(演習 

32,767 円 以上 の お 金 は 倍 精度 計算 が 必要 と 

の プロ グラ ム を 実験 し て みて くだ さい . 
プロ グラ ム 7- 1 


な り ま す . 決 





10 INPUT “Aa キー ニー": A 革 

20 PRINT USING "\ せ キキ キキ キキ キキ 。。 "人 A 半 
30 PRINT 

40 GOTO 10 
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,0 


〔 例 ) 
\ 記 号 に よる 整数 の 除算 
2?15.6\W 4 はい くら に な る か ドド ino (4) 
〔 例 〕 整数 の 剰余 計算 
〔 例 ] ? 27.8 mod 5 は いく ら に な る か …… ( 3) 
〔 例 ] a 壮 三 5 せ /3 : ?a 壮 は いく ら か …… 
(1.666666666666667) 
〔 例 〕 a 王 5 韻 /3 : 2a は いく ら か …(1.66667) 
〔 例 ] b 多 三 657.842 : ? b 多 は いく ら か …(658) 
【 例 ] x = ニ 1.05y せ ーx : ?x, y 韻 は いく ら か … 


(1.05 1.049999952316284) 

2 関係 演算 
2 つの 値 を 比較 する と き に 使わ れる 演算 で 演算 子 と し て 
は 2 つの 値 が 等 し いか , 2 つの 値 の 大 小 比 較 な ど を 行なう 
も の が あり ます . 比較 の 結果 は ^ 真 ? な ら ば ー1, び 偽 ” な 
ら ば 0 に な り ま す . IF 女 の 中 で 条件 式 と し て 使い 、 プ ログ 


ラム の 流れ を 決定 する の に よく 使わ れ ま す . 
で ヾ 大, 小 の 比較 
〔 例 19〕 9 は 5 より 大 きい こと は 





?9>5 [RET 正しい こと を 示し , その 
ー1 値 は ^ 真 ?ー 1 ) で す . 























〔 例 20〕 9 は 5 より 小さ いこ と は 
?9 ご 5 [RET 間違い で あり , その 値 は , 
0 * 偽 ?(0) で す . 
@ 等 し いこ と の 比較 
〔 例 21〕 9=5 は 偽 ′ (0 で , 9 
?9ー5,。 9=ー ウ =9 は “ 真 ? (一 1) で あ 
0 ー 1 る こと を 示す . 
9=5 は パ 偽 "(00 で, 9=9 は ヾ 真 ? (1) で ある こと 
を 示す . 
その 他 の 関係 演算 子 


>, > く は 等しく な い , こく =。 = テマ 等 し いか 小さ い 
> テ , = テ > は 等 し いか 大 きい を 意味 し ます . 


(演習 
10 INPUTA 
20 PRINT “こく >" 』A く >100 
30 PRINT “<=" AA<=100 
40 PRINT “>=" AA> テ 100 
50 GOTO 10 


プロ グラ ム 7 - 2 














上 の プロ グラ ム を 実行 し , A の 値 を 50, 110, 100 な ど を 
与え て , 結果 を 比較 する と , 50 の 場合 -1, 一 1, 0, 110 
の 場合 1, 0, 一 1, 100 の 場合 0, 一 1 一 1 と な る こ 
と を 確か め て くだ さい . すなわち , 条件 が 成り 立っ た と き 
は 一 1, 成り 立た な いと き は 0 と いう 値 を と る こと が わか 
が ま 69 記 
〔 例 題 ] 

売上 一 覧 表 の 作成 

下 の 図 に 示す よう な 売上 伝票 が 発行 きれ, 売上 商品 の コ 
ー ド {[, 数 量 S#①, 金額 D# ①) が 判っ て お り , すでに 配 
列 S# (1), D#(I) に デー タ が 格納 され て いる 状態 を 想定 し 
て 売上 一 覧 表 の 作成 プロ グラ ム を 作る . 取扱 商品 コー ド は 
1 一 10 ま で ある と する . 





1 売上 伝票 
no. 1 
コー ド タン カ スウ リョ ウ キン ガク 
1 10 20 200 
を SE の 3 \200 





マイ ド アリ カト ウ ゴザ イマ ス 





ブログ ラム 例 を 図 2 に 示す . ここ で ZZ は 売上 総合 計 金 
額 で ある . S 失 (1①), D#①), 2Z# の 計算 式 は , 前 述 し た 第 
6 日 目 の プ ログ ラム 6-10 を 参照 し て くだ さい . 3 に その 
出力 結果 を 示す . 

図 2 売上 一 覧 表 プ ログ ラム 





1000 LPRINT : LPRINT "ネネ ネ ウリ アゲ イチ ラン ヒョウ -* ネ ネネ *"j LPRINT 
1005 LPRINT : LPRINT "コー ド スウ リョ ウ キン ガク " : LPRINT 

1010 FOR !=0 TO 10 

1020 LPRINT USING “" 半 半 韻 半 半 半 半 社 
1030 NEXTI 

1040 LPRINT "ーーーーー 
1050 LPRINT SPC(10) : 
1060 LPRINT USING " 宇 裕 祝 半 半 祝 壮 井 六 人 。。"7 の 半 


キキ キサ キキ キサ キリ : 1 S キ (1 D#(⑪) 





1070 INPUT "スミ マシ タラ キー イン ", BS 
1080 END 








3 出力 結果 






ネネ ホネ ウリ アゲ イナ ラン ヒョウ * ネ ネネ 





コー ド スウ リョ ウ キン ガク 

0 0 0 
1 20 200 
2 0 0 
3 0 0 
4 0 0 
5 0 0 
6 _ 0 0 
7 0 0 
8 5 

9 0 

0 0 









\1,450 





〔 例 題 〕 在庫 一 覧 表 の 作成 


唱 演 習 1 

『 5 日 目 』 の 演習 1 で 作っ だ 仕 入 フ ァイル 一 覧 表 か ら 
売上 後 の 在庫 ファ イル を 作る プロ グラ ム を 作成 する . 

在庫 数 量 ZS キ (J) = 仕 入 数 量 SS 寺 (J) 一 売上 数 量 S せ (J) 

在庫 金額 ZD#(J) 三 在庫 数 量 ZS 寺 (J)* 仕 入 単価 ST(J) 

総 在庫 金額 ZZ キテ 仕 入 総 金額 3 アキ ー 売 上 総 金額 
と し ます . そし て , これ ら の デー タ の うち , SS 半 (J)。 S 半 
③)。 STJ), 商品 名 N$ (J), SZ 半 , Z 寺 は すでに 他 の プ 
ログ ラム の 実行 に より その 値 が 確保 きれ て いる も の と し ま 
29 

『5 日 目 』 の 『 仕 入 フ ァイル 作成 プロ グラ ム 』, 『6 日 目 』 の 
『 売 上 伝票 作成 プロ グラ ム 』, 『 7 日 目 』 の 『 売 上 ファ イル 作 
成 プ ログ ラム 』 を 参照 し て くだ さい . 

在庫 一 覧 表 を 作成 する プロ グラ ム 例 を 図 4 に 示し ます . 
また , その 出力 結果 例 を 図 5 に 示し ます . 

図 5 出力 結果 



































ネネ ※ ネ ザイ コ イナ ラン ヒョウ * ネ ネネ 
コード ビン メイ クン カス ウリ ラウ ョ エン が ク 
+1 の だこ 10 80 800 
2 プ ブドウ 20 100 2.000 
3 ミカ ン 30 100 3.000 
4 リ ジ ゴ ) 40 _400 16,000 
5 ゲタ サミ 500 55 27.500 
6 レモ ン 100 50 5,000 
が メロ ン 200 50 10,000 
8 スイ カ 250 35 8,.750 
9 モモ 84 925 2100 
10 ナシ 150 35 5.250 





\S0,400 
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4 在庫 一 覧 表 作 成 プ ログ ラム 








2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2600 
2610 
2620 
2630 
2640 
2650 
2660 LPRINT SPC(17) : 

2670 LPRINT USING "\ ギ \ ま キキ キモ サモ 
2680 INPUT “スミ マシ タラ キー イン ", BS 
2690 END 


PRINT CHRS(12) 


LPRINT 

LPRINT “コード ヒン メイ タン カ スウ リョ ウ 
LPRINT 

FOR J=1 TO 10 
ZS$(J)= ニ SS#(J) 一 S モ ( け ) 

ZD キ (J)= ニ ZS キ (J) * ST(J) 
LPRINT USING "キキ" ュ ゴ 
LPRINT NS(J) : 

LPRINT USING "圭二 革 革 
NEXT J 

ZZ 一 SZ キ 一 ク キ 


せ 寺 キ キ 





し ーー 


REM * ネ ネネ ザイ コ イチ ナラ ン ヒョウ サク セイ * ネ ネネ 


LPRINT "** ネ * ネ ザイ コ イチ ナラ ン ヒョウ ネネ ネリ 


LPRINT "ーーーーーーーーーーーーーーーーーーーーー 一 


キン ガク ”" 


半 半 半 半 半 半 半 半 せ , "1jSTOJ), ZS#③), ZD#③) 











(演習 〕 
売上 一 覧 表 ( 図 3) の 出力 形式 を コー ド , 商品 名 , 数 量 
単価 。 金額 と 売上 総 金額 と な る よう , プロ グラ ム を 改良 し 


て くだ さい . 





コー ヒー タム お 


20 IF X<0 OR 9<X THEN 10 ELSE 30 
30 PRINT X 
40 END 





すなわち , OR は 『 ま た は 』」 と いう 意味 で 。 双 が ゼロ より 
小さ いか , また は , 9 より 大 きい な ら ば , すなわち , ど ち 
ら か 一 方 で も 成り 立て ば , 行 番号 10 の 文 へ 飛び , どちら も 
成立 し な けれ は 行 番号 30 の 文 へ 飛び ます . 
@- で な いり い 場合, NOT の 使用 














プロ グラ ム 7-3 〔 例 〕 プロ グラ ム 7-6 
10 WIDTH 80, 25 : CONSOLE 0, 25, 0, 1 10 INPUT 
20 PRINT CHRS(12) 20 IF NOT X=0 GOTO 10 
30 LINE(0, 0) 一 (159, 99), PSET, 1 B 30 PRINT X 
40 LINE(20, 10) 一 (50, 30), PSET, 4 B 40 END 
50 LINE(80, 50) 一 (140, 80), ESRT, 6, BEF 
60 FOR I=1 TO 1000 : NEXT I ビッ ト 演 算 
70 LINE(20, 10) 一 (50, 30), PRESET, , B 〔 例 〕 
80 LINE(80, 50) 一 (140, 80)、PRESET, 、BF AND 操 作 
90 GOTO 40 ?15 qand 12 

人 220oexksa3s 結果 

















3 論理 演算 


AND, OR, NOT な どの 論理 演算 子 も 前 述 の 関係 演算 子 
>, く , 三 な ど と 同様 。 2 つの 変数 や 定数 , 式 の 間 で 使わ 
れ ま す . 

人 数値 変 数 X の 範囲 を 制限 し た い 場 合 , 

た と えば , 双 が 0 か ら 9 ま で の 範囲 の 値 を と る よう に 制 
限 を する に は , 次 の よう に する (AND). 

〔 例 〕 





プロ グラ ム 7-4 





10 INPUT 

20 IF 0= ニ <X AND X マ <=9 THEN 30 ELSE 10 
30 PRINT X 

40 END 











すなわち AND は 『 か つ 』 と いう 意味 で , ここ で は , X が 
0 より 大 きい か 等 し い , か つ , X が 9 に 等 し いか それ より 
小さ い の ど ちら も 同時 に 成り 立つ な ら ば , すなわち 0 ミ X 
ミ 9 の 範囲 内 な ら ば 30 の ステ ー ト メン ト へ 飛び , そう で な 
けれ ば 10 の ステ ー ト メン ト へ 飛ぶ こと を 意味 し て いま す . 

〔 例 〕 プロ グラ ム 7-5 


10 INPUT X 





2 つの 数 値 の 共に 1 の ビッ ト が その 答 と な る . 
〔 例 〕 

OR 操作 

3?5 or 3 


ここ で 5 王 0101( 2 進 ), 3 一 0011( 2 進 ) で 表わさ れ , 2 
つの 数 値 の すべ て の 1 の ビッ ト が その 答 と な る . 
〔 例 〕 
NOT 操 作 

?not 5 

oss 結果 

王 0101 (2 進 ) で あり , NOT メーー ( 又 二 1) と な っ て , 

2 の 補 数 表示 と な る . すなわち ー6 と な る . 


まとめ ) 
以上 の 論理 演算 を 2 変数 ん , B に つい て まとめ る と 次 の 
よう に な り ま す . 
〔 注 〕 
^ 真 ? また は 偽 ” の 値 を 計算 する 論理 演算 子 や 関係 演算 
子 を 含ん だ 式 を 論理 式 と いい ます . 論理 式 の 値 は 0 の と き 
* 偽 ?。 0 で な いと き “ 真 ” と 判定 され ます . 
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図 6 昔 種 の 府 商 理 演算 
論 理 演 算 








まとめ 演算 の 優先 順位 





(GOGGS < られ た 

② 人 ( べ キ 乗 ) 

③ - e 

④ *, 算術 演算 子 
⑤ \ SN 

(⑥ MOD (整数 の 剰余 ) 

⑦ +, 一 

⑧ 関係 演算 子 
⑨ 

⑩ AND 

上 XOR 論理 演算 子 
Q⑬ IMP 
⑬ EQU 











同 順位 の も の は 左 か ら 右 へ 向っ て 実行 され る . 


4 数値 関数 の 計算 
初等 関数 で ある 三角 関数 や 対数 関数 は すでに BASIC の 中 
に 組み 込ま れ て お り , これ ら を 組み 込み 関数 と いっ て いま 
す . sin cos tan な ど は すでに , 第 2 日 目 の プ ログ ラム 2-5 で 
も お 目 に か け ま し た が , その ほか 絶対 偽 を と る も の や , 整 
数 化す る も の が ある の で , これ ら に つい て 実験 し て み ま し 
よ " づ 3。 
〔 例 〕 

絶対 値 化 

?qbs(3 一 8) | RET | 

5 OPDPLYY YYYY で 1 結果 
〔 例 〕 

整数 化 

? int(2.25), inf( 一 4.32) | RET | 

2 ーー 5 ーー ドー ドー ドーー…ー 結 5 
〔 例 〕 

引数 の 整数 部 分 の み 整 数 化 

?fix(3.1 4),fix( 一 4.32) | RET | 




















3 PPPPPPPPPPPTPPP 結果 
〔 例 〕 

平方 根 

?sqr(2)。 sqr(3) | RET 

1.41421 1.78205…………… 結果 
〔 例 } 

指数 関数 (eg の ベ キ 乗 ) 

? exp(3.4) | RET | 

29.9641……………ー 結果 の * の 意味 
〔 例 〕 

自然 対数 

? log(3) | RET | 

0980 必 ニタ 入 > 結果 
〔 例 〕 


符号 の チェ ッ ク 
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? sgn(5) : ?sgn(O) : ?sgn( 一 3) 


1 一 - 








0 et…… 結果 
この 1 
〔 例 〕 
三角 関数 


引数 は ラジ アン 単位 な の で 度 で 表わす と き は , ラジ アン 
の 値 一 度々 ァ /180 に 換算 し た も の を 引数 に する . 30* の 場合 , 
プロ グラ ム 7-7 





10 KK=30 *3.14159/180 

20 PRINT “SIN=" : SIN(K) 

30 PRINT “COS=” : COS(K) 

40 PRINT “TAN=” : TAN(K) 
| 50 END 








結果 は 次 の 通り と な る . 演算 は 単 精 度 で ある . 


SIN 三 .5 
COS 三 .866026 


TAN 三 .57735 


〔 例 〕 
数 値 の 形式 変換 
小数 点 以 下 切 り 捨 で の 整数 化 "CINT(X) 
単 精度 形式 の 数 値 化 ……… の iieeeimteetn CSNG(X) 
億 精度 形式 の 数 値 化 …… パ ドド oo nn CDBL(X) 
(1) ? cint(84.36) 
BSezs et282 結果 
(2) x キ ー496.12348 土 : ? csng(x 半 ) 
496. 123 COCCOCOPPCLK で で 結果 
(3) x ニ 432.1 : ? cdbI(x) 
432.1000061035156…………… バ | 結果 
(演習 〕 
INT, FIX, CINT の 各 関 数 の 相違 点 に つい て まとめ る 
(演習 
SEC, CSC, COT (モカ ント , コモ カント, コタ ンジ ェ ン 
ト ) な どの 関数 を 作れ . 
(演習 
0 と 1 の 間 の 乱数 を うる RND 関 数 を 用 いて 0 一 100 ま で 
の 乱数 を 10 個 作れ . 











素数 を 求め る プロ グラ ム で す . 
100 ま で の 数 の うち どの よう な 素数 が あ 
プロ グラ ム 7-8 


の ACE うい 





10 REM *** PRIME NUMBER *** ネ 
20 REM * ネ ネネ Eratosthenes' sieve **※* 
25 INPUT “カズ ノ 1 J り ij U : V=INT(U/2) 

26 PRINT “"U=" H 名 20 

30 DINI N(U)、 py 

10 FOR IT=0 TO TU 

50 NG⑪)=0 

60 NEXTI 

70 K=0 

80 FOR P=2 TO U 

90 IF N(P)<0 THEN 150 

100 K ニ KK 士 1 : P(K)=P 

110 IF P>SQR(U) THEN 150 

120 FOR 1=P TO U STEP P 

130 NG)=ー1 

140 NEXTI 

150 NEXT P 

155 PRINT 

157 PRINT "ネネ ネネ ネリ jU : リ マデ ノ ソス ウ ヒョウ *** ま ※ り iPRINT 
160 FOR 1=1 TO K 人 

170 PRINT USING "# キ サキ " j ェ PT) : 








180 NEXTI 








図 7 


1O 


出力 結果 


ネネ ネネ * ネ 100 マデ ノ ソス ウ ヒョウ ネネ ネネ ネ 
2 3 5 7 11 13 17 19 28 29 31 87 旬 48 47 53 59 61 67 71 


73 79 88 89 97 











の AS の OS の SS の SASSSAS2 の SAS の SS.S の SASSS2SSS く SS の SS の 
第 8 日 コー ザー 上 筆 じ 息 数 。 」 
の ここ この の グン Mk 人 氏 ノン 





BI 有用 用 四 腹 四 
【 目 的 〕 

同じ 式 を プロ グラ ム の 中 て で 何 度 も 使用 する よう な 場合 に は , D 
EF FN を 使っ て ユー ザー 関数 を 定義 し ます . sin や cos な どの 三角 
関数 は 組み 込み 関数 と いっ て , すでに BASIC イ ンタ ー プ リタ の 
中 に 準備 され て いま し た . これ ら 組 み 込 み 関 数 以外 の も の は ユー 
ザー が 作る 関数 と いう こと に な り ま す . 

関数 を 使う こと の 利点 は 引数 を 与え る だ け で , その 式 の 値 が 得 
られ る こと で あり , また , 引数 の リス ト の 中 に 式 も 書く こと が で 
ある ご CI で ず 。 

つぎ に , 乱数 の 発生 に つい て は RND 関 数 を 用 いま す . 引数 の 値 
が 正 , 負 , ゼロ に より , 発生 する 乱数 の 系 列 が 違っ て くる の で , 
これ ら に つい て , 実験 を し ます . ここ で は , ユー ザー 関数 の 定義 
の し か た と 乱数 の 発生 プロ グラ ム に つい て 学習 し ます . 
富川 川 II 風 風 川 車軸 


1] ユ ー ザ ー 関 数 


川上 上 上 峯 風 
富川 川上 上 上 風 上 上 上 上 故 


当 














数値 関 数 の 作り 方 
jp) ココ 語 SCAN に 2 ここ 


ユー ザー 関数 名 


引数 は 変数 名 で す . 複数 個 の と き は カン マ で 区 切り ます 
定義 きれ た 関数 を 呼び 出し て 使う 方 法 は 組み 込み 関数 の と 
き と 同 じ で す . 
〔 例 〕 





プロ グラ ム 8-1 





10 DEEF FNA(X) ニ A*X* ネ XX 十 B※X 十 C 
20 INPUT A, B, C 

30 FOR X メ =1 TO 10 

40 Y=FNA(X) 

50 PRINTX:Y | 
60 NEXT 又 

70 END 











この プロ グラ ム は Y テ eg 之 二 pz 十 c と いう 関数 を 行 番号 10 
で 定義 し , 係数 x。 ぬ c を 入力 し , 双 を 1 か ら 10 ま で 増分 1 
で 変化 させ な が ら ヶ の 値 を 求め た も の で す . 定義 し た 関数 
の 呼び 出し は 行 番号 40 で 行なっ て いま す . 
〔 例 〕 

プロ グラ ム 8- 2 





100 DEEF FNB(X,Y)= ニ ミ へ 3 二 Y へ 2 
110 INPUT A, B 

120 氏 =FNB(A,B) 

130 上 ニーFNB(2, 3) 

140 PRINT K,L 

150 END 






































この プロ グラ ム で A=4, B=2 を 入力 する と , 行 番号 
120 の 関数 FNB の 実 引 数 は 4、 2 と な り , 仮 引数 X。Y と 半 
き 替 えら れ ま す . ま た. 行 番 号 130 の 関数 呼び 出し で は 実 引数 





注意 し な けれ ば な ら な いこ と は , 関数 定義 文 , 

は , 関数 呼び 出し 婦 よ り 以 前 に 定義 し て お く こ と が 必要 
LCa 5 
@ 文 字 関 数 の 作り 方 

ユー ザー 関数 名 と し て 廊 字 型 も 許さ れる の で 女池 関数 も 
作る こと が で きま す . すなわち , 
と な り ま す . 
( 例 ) プロ グラ ム 8- 3 





200 DEE FNPS(X$) ニ CHRS(7) 士 X$ 二 CHRS$(13) 
210 FOR 1=1 TO 3 

220 READ X$ 

230 PRINT FNPS(X$) 

240 FOR J=1 TO 500 : NEXT 了 

250 NEXTI 

260 DATA TOKYOP FNAGOYA"。 “TOSAKAP 
270 END 








この プログ ラム を 実行 する と 画面 に TOKYO, NAGOYA, 
OSAKA と 順 々 に 改行 し て 出力 し ます . 出力 の 都度 , 内 蔵 の 
プ ブザー を 鳴ら し ます . この 関数 呼び 出し で は , プ ブザー を 鳴 
ら す こと , 引数 X$ を プリ ント し , 改行 する こと を 行なっ 
て いま す . 
〔 例 〕 プロ グラ ム 8-4 








| 300 DEF FNTS(X$. N$)=STRINGS(5, 42)"、" 二 XS 
すこ " 土 NS 二 "この 填 STRINGS(5, 42) 二 CHRS$(13) 
| +DATES す "ここ ツキ TIMES 


310 INPUT XS, Ns 
320 PRINT FNTS(X$S, NS) 
330 END 


っ 





この ブロ グラ ム は プロ グラ ム 作 成 時 に プロ グラ ム ・ リ ス 
ト の 先頭 に プロ グラ ム 名 と 作者 名 年 月 日 時刻 を 出力 す 
る 女 字 関数 で す . X$ に プロ グラ ム 名 を N$ に 作者 名 を 入 
妨 財 お 、 


2 乱数 の 作り 方 


ゲー ム で の サイ コロ の 目 , トラ ンプ な どの 切り 札 , その 
スー パー の レジ 吉 の 行列 を など マイ コン で これ ら の 現象 
シミ ュ レ ーション する と き に よく 使わ れる 乱数 に つい て 














眉 
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学習 し まし ょ う . 


〔 例 ) プロ グラ ム 8-5 





100 FOR 1=1TO5 

110 PRINT RND(1) 

120 NEXTI 

140 PRINT “ーーーーーーーーーーーーーー 4 
150 FOR J=1TO5 

160 PRINT RND(0) 

170 NEXTJ 

180 PRINT "ネネ ネネ ネネ ネネ ネネ ネネ ネリ 
190 FOR K=1TO5 

200 PRINT RND(-1) 

210 NEXT K 

1000 END 








この プロ グラ ム は , RND(1),、RND(0). RND( 一 1) を 確 
か め て みる も の で す . 実行 結果 は , 図 1 の 通り で す . い ず 
れ も 0 と 1 の 間 の 乱数 を 与え を ます. 

引数 が 負 の と き は , 新しい 乱数 の 系 列 を 作り , 正 の と き 
は 同じ 系 列 の 次 の 乱数 を 与え . ゼロ の と き は 1 つ 前 に 発生 
し た 乱数 を 与え を て いま す . 通常 は 乱数 と し て 正 の 数 , RND 
(1) を 使い ます . 

〔 演 習 〕 

500 個 の 乱数 を 発生 する よ 

し て みて くだ さ v 


うに プロ グラ ム を 改良 し , 実験 


RIU) 
.207991 
.550967 に lp】@) 
635863 


に lp】( り ) 


ホホ ネ ボ ポポ ポポ ボボ 水玉 玉 玉 
.522223 

ア アルル) 

.522223 に Np! を 記 り ) 

周 リル ルル) 

.522223 





〔 例 ) 

金貨 を 投げ て 裏 か 表 の 出現 する 現象 を マイ コン で シミ ュ 
レー ショ ン す る プロ グラ ム を 作っ て みる と , 次 の よう に な 
り ま す . 


プロ グラ ム 8-6 





400 IF RND(1)<1/2 THEN 410 ELSE 420 
410 COLOR 4 : PRINT “オモ テ ダ !! ア 7: 
420 COLOR 2 : PRINT “ウラ デス ヨ " 

430 IF INKEYS=" "THEN 400 ELSE 430 
1000 END 


GOTO 430 








行 番 品 400 で は , RND(1) の 値 が 0.5 以 下 か どう か を 判定 し て , 
いま す . 行 番号 430 の INKEY$ 関数 は キー 入力 と し て この 
場合 、 スペース ・ キ ー を 押す と 行 番号 400 へ 分 岐 し ます . キ 
0 いき ヌル を 入れ て つき ぎの 文 に 進み ます の 
で , この 場合 は , キー 入力 を し な い 限 り , 行 番号 430 へ 分 
虚 も | プロ グラ ム を この 位置 で 停止 きせ て いる よう な 状 右 
に し て いま す . 


〔 例 〕 プロ グラ ム 8- 7 








240 FOR IT=1 TO 50 

250 ミー テ INT(RND(1) * 100) 

260 PRINT USING “ 壮 后 壮 壮 " ) 
270 NEXTTI 

1000 END 








この プロ グラ ム は 10 進 数 2 桁 の 乱数 を 50 個 発生 し , 印 届 
する も の で す . 行 番号 250 の 文 は , RND(1)* 100 で まず 0 一 
99.9999 ま で の 乱数 を 作り , し か る 後 , INT 関数 で 整数 化し 
て いま す . 

出力 の 結果 例 を 図 2 に 示し て お きま す . 


2 2 桁 の 乱数 


59 20 55 63 1080 4 955544 1 54 53 31 46 10 97 14 
28 23 11 45 55 80 12 47 86 18 61 57 62 74 61 39 32 0 


51 39 35 67 66 4 33 74 19 39 42 83 48 





(演習 

サイ コロ を 、、 
サイ コロ の 目 は 1 か ら 6 の いずれ か な の 
*6 十 1) と し ます . ここ で 1 を 足し て いる の は , 0 を 
せな いた めで す . プロ グラ ム は つぎ の よう に な り ま す . 


る 現象 を シミ ュ レ ーション し て み ま し ょ う . 
で , INT(RND(1) 
出現 き 


プー グラ 人 : 8 


300 FOR 』 ニ 1 TO 200 

310 メーINT(RND(1) *6 十 1) 
320 COLOR X 
330 PRINTX: 
340 NEXTI 
1000 END 








行 番号 320 の カラ ー 廊 を 入れ る と , サイ の 目 と カラ ー の 人 色 


が 一 致し て 表示 され ます . 


(演習 〕 
4 桁 の 乱数 を 100 個 発生 で きる プロ グラ ム を 作っ て くだ さき 





妥当 で て ゲー ム の プロ グラ ム 


プロ グラ ム 8-9 








100 ぶ ニ INT(RND(1) *100) 

MiO 1HNEOUTR サ テイ クツ ジン ョ 5 N 

120 1FN>X THEN PRINT “オオ キイ ヨ " : GOTO 110 
130 1F N<X THEN PRINT “チイ サイ ヨ ” : GOTO 110 
140 1F N=X THEN PRINT "アタリ" : PRINT 

150 INPUT “モウ イチ ド ヤリ マス カ (Y)/(N)” : A 

160 1EF A$=“Y” THEN 100 

170 PRINT “ゲー ム オォ ワリ" 

180 END 


















ROCK 
00882020 ボ 00020000000 ぴ 


く の くう へ くう へ く ク スム く ク へ 



















必 


II 上 上 III 
(目標 


中 


計算 機 は 数 値 を 使っ て いろ いろ な 計算 を し , 実用 に 供 さ 
れ て いま す . これ ら の 分 野 は 数 値 処理 分 野 で す が , 数 値 ば 
か り で な く , 文字 や パタ ー ン な ど 非 数 値 デ ー タ を 処理 する 
こと も で きま す . 

マイ コン て 実用 化 が 急速 に 進ん で いる 電子 翻訳 撲 や , 音 
声 出 力 機器 で の 処理 は , 娘 字 処理 が 中 心 に な り ま す . その 
ほか , 最近 。 にぎやか に な っ た OA 機 器 の うち ワー ド ・ プ 
ロ セ ッ サ (文章 作成 機 ) は まさ し く 文 字 処 理 が 中 心 的 技術 
に な り ま す . 

ここ で は , 文字 列 の 交換 , 挿入 , 切り 出し , 置換 . な ど 


を 行なえ を る いろ いろ な スト リン グ 関 数 に つい て 学習 し ます . 


最後 に 文章 を コー ド 化 し て 発信 し , 数 値 で 受信 し た も の 


用 婦 字 コード を 文字 に する に は 
計算 機内 郡 で の 文字 コー ド “65? を 文字 に 変換 する に は 
*CHR$(65)* と し ます . する と 文字 *A” と な り ま す . 
(演習 ) CHR 関 数 

プロ グラ ム 2 を 実行 し て くだ さい . ここ で 行 番号 “C 再 民 
$(34)” は 引用 符 (^) で す . 行 番号 30 の RIGHT$, STR$ は 
後述 し ます . 出力 結果 例 を 図 2 に 示し ます . CHR$(49) は 
数 字 * 1 ?。 C 古 R$(42) は ヾ *? な ど と な り ま す . 

プロ グラ ム 9-2 (CHR$) 





10 C$ 三 CHRS(33) 
20 FOR =32 TO 63 


30 1$ 三 RIGHTS(T "上 STRS$(1D,3) 
40 LPRINT “CHRS("15)ー"C$CHRS$(1)C$, 
50 NEXT 1 


を 再び 文章 化す る プロ グラ ム に つい て 少し ふれ ます . 
ll 用 IIIMIIIIIIIIIIIIIIIIIIIIIIIIUIMIIMIIIMI 吊 肌身 胃 自 上 


戸 Neo 
[1 文字 を 文字 コー ド (ASCII コ ー ド ) に する 
計算 機 の 内 部 で は 文字 は 定め られ た 文字 コー ド で 格納 さ 
れ ま す . た と えば キー ポー ド か ら “AA を 入力 する と \65? 
に 変換 され て 記憶 され ます . 
〔 演 習 〕 A SC 関数 


川 川上 II 


川 IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII 


コ 





回 | 文字 型 デ ー タ と 数 値 型 デー タ の 変換 
文字 型 デ ー タ X $ と 数 値 型 デー タ X は X$ 十 又 な どの 式 
プロ グラ ム 1 を 実行 し て いろ いろ な キー 入力 を 行ない . と し て は 許さ れず , エラ ー に な り ま す . 次 裕 型 ア 三 多 を 数 

出力 結果 を 確か め て くだ さい . 1 は 出力 結果 例 を 示し ま 値 型 デ ー タ に 変換 する に は VAL(X$) と し ます . 

39 逆 に , 数 値 型 デー タ を 廊 字 型 デ ー タ に 変換 する に は 。 ST 

プロ グラ ム 9-1 (ASC) R$(X) 寿し ます . 

(演習 ] VAL 関 数 , STR 関 数 
プロ グラ ム 9-3 を 実行 し て くだ さい . A テ 十 12345, E$ 

=ー“12345" で 前 者 は 数 値 で す . 後者 は 文字 列 と し て の 12345 

人 です 。 3 に 出力 結果 列 を 示し ます . 

プロ グラ ム 9-3 





10 INPUT "TA- の 5AS 
20 PRINT ASJASC(A$) 
30 GOTO 10 











10 5 王 "12845" 
20 Xー67890 

30 A ニ VAL( RS) 
40 BS$ 三 STRS(X) 
50 LPRINT A,BS$ 
60 LPRINT ES$,X 

















70 END 
3 出力 結果 
12345 67890 
12345 67890 





ーー 
還 廊 字 の 切り 出し 
文字 列 の 中 か ら 任 意 の 廊 字 を 取り 出し た り , その 文字 列 
を 前 後に 分 解 し た り , 先頭 か らい くつ か の 廊 字 を 取り 出し 
たり, 訪 字 列 の 最後 か ら 任意 個 の 文字 を 取り 出し た り で き 
図 2 プロ グラ ム 9 - 2 の 出力 結果 例 








CHRS( 32) 王 " " CHRS$( 33) 王 “! 6HR$( 32) や パ ツ CHR$( 35) ニ " せ ” CHRS$( 36) 三 "$7 
CHRS( 37) 三 "の" CHRS$( 38) 王 "を C 理 RR$( 39) 三 ウ 
CHR*( 40) 三 “)” CHRS$( 41) 王 “) ” CHRS( 42) 三 “ ネ アワ CHRS$( 43) ニ “+” CHRS( 4 ニニ “,”" 
CHRS$( 45) ニ “ー ツ CHR$( 46) 王 ", CHR$( 47) 三 “/ ツ 
CHRS$( 48) 三 “07 CHRS$( 49) ニ “1” CHRS$( 50) 三 “2” CHR$( 51) 三 "37 CR$( 52) 三 " 47 
CHRS( 53) 三 “5! CHRS( 5 王 "6” CHRS( 55) 王 “7” 
CHRS( 56) 三 “87 CHRS$( 57) 王 “9” CHRS$( 58) ニ “・ ツ CHRS$( 59) ニ "ツア C 左 R$( 60) 三 "<" 
CHRS( G1) "デニ ソ CHRS$( 62) ニ “ ッ >” CHR$( 63) 三 “? 7 











きら 


10 


る 関数 が あり ます . 
〔 演 習 〕 RIGHT 関 数 , LEFT 関 数 


プロ グラ ム 9 - 4 (RIGHT, LEFT) 


10 S$ 王 “123456789" 

20 FOR ュー0 TO 15 WM 

30 PRINT RIGHTS(SS,T), LEFETS(SS, 1) 
40 NEXT I 

50 END 








図 4 出力 結果 

9 1 

89 比 4 

789 123 

4 1234 
12345 
123456 
1234567 
12345678 
123456789 
123456789 
123456789 
123456789 
123456789 

s123456789 
123456789 


56789 
456789 
9456789 


23456799 
123456789 
123456789 
123456789 
123456789 
I ル KTG174t り 
123456789 
123456789 





プロ グラ ム 9 - 4 を 実行 し て くだ さい . 
RIGHT$(S$,T) は 文字 列 S$ ( 三 123456789) の 右端 か 
ら 1 個 ず つの 文字 を 切り 出し ます . 
LEET$(S$,T) は 女 字 列 S $ の 左端 か ら 1 個 ず つの 文字 を 
切り 出し ます . 出力 結果 例 を 図 4 に 示し ます . 
[演習 ] MID 関 数 


フ ョ ッ ラ ム 9-5 (8 





10 SS ニー"123456789" 

20 FOR T テ 0 TO 15 

30 XS$ 王 MIIDS(SS, 3, 1) 
40 PRINT XS、LEN(X$) 
50 NEXT I 

60 END 


の 並び の うち * 番 目 か ら ヵ 文字 を A$ の 並び で 置き 替え ま 
9-。 
プロ グラ ム 9-6 





100 X$ 王 "123456789" 

110 MIDS(XS$.3.4)= "BOOK" 
120 Y$ 三 123456789":A$ ニ "IT/07 
130 MIDS(YS5) 三 AS 

140 PRINTXS:PRINTYS:END 


出力 結果 





図 6 


12BOOK78 9 
の 所: 


12341I 





行 番号 130 の よう に MID 関 数 の 第 3 番目 の 引き 数 を 省略 
する 場合 も あり ます . 


回 文字 列 の 長き 


女 字 列 の 廊 字 数 を 知り た いと き が あり ます . その と き に 
使う の が LEN 関数 で す . 
(演習 ) LEN 関 数 
プロ グラ ム 9-5 の 行 番号 40 に よっ て LEN(X$) が 表示 さき 
れ ま す .。 5 の 出力 結果 例 の 右側 が LEN(X$) の 値 で す . 


| 同じ 廊 字 を いく つか 並べ た いと き 

タイ トル な ど を 表示 する と き に .*? 印 や バー” 印 を い 
くつ か 使用 し て 枠 を 作っ た り し ます . また , 特に , プログ 
リス ト を 見 や すく する た め に も よく 使い ます . その 
よう な と き に STRING 関 数 を 使う こと も で きま す . 
(演習 〕 STRING 関 数 

プロ グラ ム 9-7, 9-8 を 実行 する と , 
8 の よう な 結果 が 得 ら ちら れ ます . 

ここ で , STRINGS(10, 45) と は 文字 コー ド 45” の 入 字 
を 10 個 出力 する と いう こと で す . 
プロ グラ ム 9-7 





Ns 


それ ぞ れ 図 7 , 





5 出力 結果 例 


3 

94 

345 
3456 
94567 
345678 
3456789 
3456789 
3456789 
3456789 
3456789 
3456789 
3456789 
3456789 
Ert174) 





ここ ル ニ ミ ー】 


プロ グラ ム 9-5 を 実行 する と , 5 に 示す よう な 結果 が 得 
られ ます . MIDS (SS, 3, 1) の 意味 は 廊 字 列 S $ の 左端 か ら 
3 番目 の 廊 字 か ら 1I 個 取り 出す こと を 意味 し ます . I が 0 
か ら 15 ま で 変化 し て いき ます が , 婦 字 列 の 並び が IT よ り 小 
さい と き は 右端 まで すべ て 切り 出さ れ ま す . 


な お , MID に は MID*(S$,+ の ) ニ A$ な る 型 の も の が あり , 
婦 字 列 の -- 部 を 置き 換え を る こと も で きま す . すなわち S$ 


36 





10 TS$ ニ STRINGS(10、45) 
20 PRINT TS STRINGS(10.45 ) TEST 全 T$ 
30 END 





図 7 


出力 結果 





プロ グラ ム 9-8 





10 T$=STRINGS(10,42 ) 
20 PRINT TS STRINGS(10.42 ) TEST T$ 
30 END 





8 出力 結果 


** ネ ネネ ネネ ネネ ネネ STRING$(10,42 ) TEST * ** ネ ネネ ネネ ネネ 


(演習 〕 
プロ グラ ム 9 - 9 は STRING 関 数 の 引数 の 値 を キー 入力 す 
る よう に し た も の で す . 任意 の 文字 , 文字 数 を 入力 し , 表示 
3 さ の 3 ここ と の 5 で ささ: ボ 3 す : 9 は 錠 、 * の 出力 結果 を 示し 
まし た . 文字 と し て 廊 字 コー ド “32” を 与え る と 空白 を 意 
味 し , 次 の SPACE 関数 と 同じ 結果 に な り ま す . 





プロ グラ ム 9-9 
10 INPUT “STRINGS(N,C$) TEST ペニー,SS ニ 5N,C$ 
20 T$ ニ STRING$(N,C$) 
30 PRINT TS"STRINGS(PNi"5CS) TEST'5TS 
40 END 








図 9 出力 結果 


7022224222221 に INCt1 人 [上 22 有 351B22222222222222272224 





ネネ ボネ ネネ ネネ ポ STRING$( 10,*) TEST * ネネ ネネ ネネ ネネ キネ 


(演習 〕 SPACE 関 数 
プロ グラ ム 9 -10 





10 FOR 1=0 TO 2 

20 A$= ニ SPACES$(I) 

30 PRINT AS: CHRS (! 寺 65) 
40 NEXT I 








図 10 出力 結果 





トー 
[文字 列 の 探索 
文字 列 A $ の 中 に 文字 列 B $ が 含ま れ て いる か どう か 調 
べた いと き は INSTR(A$B$ ア 関数 が あり ます . 


この 関数 は 女 章 の 中 で 人 名 を 探し た り , Ms - 覧 表 か ら , 


特定 の 商品 が ある か な な いか を 探し た りす る な ど に 使わ 
れ ま す . 含ま れ て いれ ば その 廊 : Sb 
含ま れ て いな いと き は ゼロ を 値 と し ます . 

[演習 〕 INSTR 関 数 


プロ グラ ム 9 -11 





100 AS 王 "ABCDEFGABCD" 
120 BS 三 “"H エ ーINSTR(AS, BS) 
130 C$ ニ "DJ ニーINSTR(A$, C$) 
140 D$ 王 "FIK ニ INSTR(AS$, D$) 
150 PRINT EJ:K 

160 END 





プロ グラ ム 9 -11 を 実行 する と , 図 11 の よう な 出力 結果 に 

が" り iz ま 9 計 
図 11 出力 結果 
0 4 6 
ぃ 3 

プロ グラ ム 9 -11 で は D を 見 つけ 出す の に 行 番号 130 で HIN 
STR 関 数 を 使い まし た . し か し , 4 番目 の D だ けが 探し 出さ 
れ ま し た が , 最後 の 位置 に ある D は 探し 出さ きれ ま せん で し 
た . 任意 の 位置 か ら 探索 を 始め る 関数 が INSTER(P,A$,C 
$) で す 

P は 廊 字 列 A $ の P 廊 字 目 か ら 探 索 を 始め る 位置 を 指定 
に XSMS ま Ss 

プロ グラ ム 9 -11 の 行 番号 130 を 次 の よう に 変更 し て 実行 
結果 を 確認 し て くだ さい . 


1O 








130 CS= ニ "DJ ニ INSTR(7, AS$, C$③) | 
表示 結果 は 0 11 6 と な り ま し た が , D の 位置 を すべ て 
表示 させ る に は 次 の よう に し な けれ ば な り ま せん . 
(演習 


プロ グラ ム 9 -12 





200 AS= ニ ABCD ABCD ABCD" 
210 1=0 

220 1ーINSTR(I 十 1. A$. “7) 
230 PRINT 1 

240 IF 1< >0 THEN 220 

250 END 








この プロ グラ ム で は 出力 結果 は 図 12 の よう に な り A$ の 
中 の D” の 位置 が 複数 個 み つか り ま す . 
図 12 





4 8 12 


日 付 と 時 刻 の 表示 


81 年 09 月 30 日 と 画面 に 表示 させ る に は DATES$ を ,-12 時 
30 分 50 秒 と 表示 さき せる に は TIME$ を 使っ て , 日 付 や 時 刻 
を 文字 型 デ ー タ と し て 切り 出し ます . 


〔 演 習 〕 
プロ グラ ム 9-13 





300 INPUT “年 / 月 / 晶 5AS 

310 INPUT "時 / 分 / 秘 BS 

320 INPUT "ナマ エ NS 

330 DATES 一 AS:TIMES 王 BS 

340 PRINT DATES 

350 PRINT TIMES 

360 YS=LEFTS(DATES、2) 

370 MS= ニ WIIDS(DATES,4.2) 

380 D$= ニ RIGHT$(DATES,2) 

390 HS 一 LEFTS(TINES.2) 

400 FSーWMIDS(TIWIES、4.2) 

410 Ss RIGHTS(TINES,2) 

420 PRINT 

430 PRINT YS" 年 MS 月 当 DSTH7 
440 PRINT HS7 時 生 FSIT 分 生 SS:7 秘 " 
450 PRINT “BY、 NsS 

460 END 

















プロ グラ ム 9 -13 は プロ グラ ム 開 発 時 に プロ グラ ム ・ リ スト 
を と る た 93 日 付 、 時 刻 , 作成 者 名 を 最初 に 印刷 し て お く 


た め の も の で す . 
プロ グラ ム ・ リ スト の 整理 の なめ に も る 便利 な プロ グラ ム で す . 


女 字 列 を 処理 する た め の い ろ い ろ な 関数 を まとめ だ た も の 
が 素 :1 で す : 


〔 演 習 ] 
デル ファ ベッ ト 大 廊 字 内 | 一 区 ] と [スペ ー ス | を 入力 する 
が で き 。 スペ ー ス は 00, A は 01 に B は 02 に, る は 26 ま 
で , それ ぞ れ 数 値 に 変換 する プロ グラ ム を 作っ て み ま し ょ う . 
出力 は , 入力 し た 文 字 列 (発信 文 ) と その 長 さ で す . 変 
換 し た 数 値 は 配列 P(X) へ 格納 し ます . 
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表 1 


文字 列 処 理 の た め の 関 数 , ステ ー ト メン ト 






娘 字 を 入力 する INPUT A$ 





255 文 字 ま で の 文字 デー タ を 入力 で きる 





.CR 


, コン トロ ー ル ・ コ ー ド 入力 不可 











LINE INPUT As PE まり リッジ リタ ー> 


ン ・ キ ー が 押さ れる まで の 1 行 全部 を 入力 で きる . 








キー が 押さ れ て いれ ば その 文字 を , 押さ きれ て いな けれ ば え ヌル ・ 


A$ =INKEY$ Reo 


0 に 2 人 8 の 








READ AS$ DATA 文 で 与え られ た 文字 デー タ を 入力 する . 

















) 長 さ N 廊 字 の 文字 列 を 入力 する . N 廊 字 入 力 す る まで キー 


A$ =INPUT$(N の 








ボー ド 待 ちと な 











LEN(A$ ) 娘 字 列 の 長き に は プリ ント され な い 符 】 








号 や スペ ー ス な ども 数 える . 









災 字 の コー ド 化 
婦 字 コー ド の 婦 字 へ の 交換 


ASC(A$ ) 
A$ 三 CHR$ (N) 


文字 列 A$ の 最初 の 文字 の コー 上 く 
ーー ニー ーー 与え る . 


られ る . 





















数 値 を 数 字 列 に 変換 
数 字 列 を 数 値 に 変換 


文字 列 の 左 部 分 の 取り 出し 





A$ 三 STRS (N) 
N=VAL(A$ ) 
LEFT(A$, N) 


数 値 N を 文字 列 A $ に 変換 し ます . 
文字 の 並び を 数 値 に の しま 
左端 か ら N 文 字 を 取り 出す . 































文字 列 の 右 部 分 の 取り 出し 
叫 の 抜き 出し 













RIGHT(A$, N) 
MID$(A$, N, X) 


右端 か ら N 文 字 を 取り 出す . 
六 字 列 4$ の N 番 目 の 文字 か ら X 個 の 文字 を 抜き 取る . 


文字 列 A$ の N 番 目 の 廊 字 か ら X 文 字 を 廊 字 列 B$ で 置き 換え る 
文字 列 A$ の N 番 目 か ら 文 字 列 B$ を 挿入 する . 
















文字 列 の 挿入 , 置き 換え MID$(A$, NX) 三 B$ 





まな は 。 










女 字 列 A $ の 中 で 記 字 列 B$ と 同じ 文字 列 部 分 を 探 


4 池 が 、 A $ の 何 番目 か を 与え る 。 





文字 列 の 探索 





し , 合致 し た 最初 の 文 












人 B$ と 同じ 婦 字 列 が ある 
探す . 結果 は INSTR(A$, B$ ) と 同じ . 


娘 字 コー ド N の 文字 を X 個 並べ る . 


INSTR(N, A$, B$ ) 








同 - 文字 の 並び を 作る A$ = ニ STRING$(X, N) 














うか 

















SPC(X PRINT 廊 中 で X 個 の 空白 部 分 を 
スペ ー ス を 複数 個 作る こ 0 

A$ =ーSPACE $ (X) X 個 の 空白 か ら な る 文字 列 を 与え 了 、 
指定 位置 まで 空自 を 作る TAB(X) PRINT 文 中 で カー ソル を X 桁 まで 移動 する . 
16 進 変換 A$ =ーHEX$ (N) N の 16 進 表現 を する ーー 

















8 進 変 換 A$ 三 OCT$ (N) N の 8 進 表現 を する 廊 字 





プロ グラ ム 9 -14 


DIM P(260) 

PRINT CHR$(12) 

INPUT “ハッ シン ブン ヲ ニュ ウリ ョ ク シテ クタ サイ MS 
エニーLEN(M$):PRINT 

PRINT の 5MS"/ 5 の 5 で モジ デス ” 

B=L MOD 2 


P( 0 ) 
選 人 5) 
E( 2 ) 
T( 3 ) 
PF( 4 ) 
P( 5 ) 
P(6 ) 


IF B <>0 THEN MS 三 IM$ 寺 “ 
FOR X メ テー1 TOL 


バル エール 十 1 


MIS ニ MIDS(MS, ,1) 

IF MS ニー“" "FTHEN P(X)=ASC(MIS) 32:GOTO 1100 
P(X) ASC(M1$) 一 64 

NEXT X 








入力 され た 文字 列 は M $ に 格納 され , LEN(M$) で 長 さ 
が 与え られ ます . 

1040 一 1050 で は 文字 列 の 廊 字 数 が 奇数 個 の と き は スペ ー 
ス を 1 個 追 加 し て いま す . 

1060 一 1100 は MIDS(MS$,X,1) を 使っ て , 入力 し た 文字 列 
か ら 1 文字 ずつ 切り 出し ASC(MI$) に よっ て 文字 コー ド に 
変換 され , 0 一 26 の 数 値 に 変換 し て いる と ころ で す . 

1090 で 変換 され た 数 値 は 配列 P(X) に 格納 し て いま す . 

(演習 〕 

配列 P(Y) に 格納 され て いる 数 値 を 引き 続く 2 組 を 単位 
と し て , 数 字 列 に 変換 する . 変換 し た 結果 を 表示 し , スペ 
ー ス ・ キ ー が 押さ れる まで 画面 を 保持 し て いる プロ グラ ム 
を 作り ます . 数 値 範 囲 は 0 一 26 と し ます . 


図 13 M$=ABC---DE を 入力 し た 場合 の 出力 結果 





ABC DE/6 モ ジ デ ス 


P(260) 








プロ グラ ム 9 -15 は 1140 で , STR$(P(Y)) に よっ て まず 数 値 
ひと つ を FE $ と いう 数 字 列 に 変換 し て いま す . いま , 
で は 数 値 は 0 一 26 の 範囲 と する の で , 変換 され た 数 字 列 は 
00 一 26 の いずれ か に な り ま す . LEN(F$) の 値 が 2 と いう こ 
と は 数 値 が 1 桁 と いう こと で , MID$ 関数 を 使っ て ババ オ ? 
符号 桁 の と ころ を 0? と 置き 換え を てい ます . 

同様 に LEN(F$) の 値 が 3? と いう こと は 数 値 2 桁 で あ 
る こと を 意味 する の で , この 場合 は 右 か ら 2 文字 分 を 取り 
出し て いま す . 数 字 列 に 変換 され た ら 配 列 M$(J) に 格納 し , 
画面 に その 結果 を 表示 し て いま す . 

プロ グラ ム 9-16 は 画面 出力 結果 を 保持 する た め の も の で 
9 

配列 P(Y), 

(演習 〕 

数 値 配列 M( 1 ) の 値 を 廊 字 列 に 変換 し ,. 受信 文 を 作る プ 

ログ ラム を 考え る . 数 値 は 4 桁 以内 と し , 00 は スペ ー ス , 


ーー 


MS (J) の 対応 例 は 還 15 に 示す 通り です. 


プロ グラ ム 9-15 


1O 


図 17 プロ グラ ム 17 の 内 容 





20 DI MS(150), P(260) 

1110 Y=0:W= ニ L/2:PRINT 

1120 FOR J=1 TO W 

1130 Y ニ 1+(』ー1) *2 

1140 F$ 三 STRS(P(Y)):IF LEN(F$)=2 THEN MIDS(FS,1,1="0" 
1150 IF LEN(F$)=3 THEN F$ 一 RIGHTS(FS, 2) 

1160 B$= ニ STR$(P(Y+1):IF LEN(BS$)=2 THREN MIDS(BS,1.1) ="0" 
1170 IF LEN(B$)=3 THEN BS$ ニ RIGHTS(BS, 2) 

1180 MIS(J)=FS$+BS 

1190 PRINT MSJ) 

1200 NEXT J:PRINT 

1210 GOSUB 4500 

| 1220 END 





プロ グラ ム 9-16 


数 値 配列 WO①) 


女 字 贅 換 置換 
ーー STRS(M(⑪))102 一 MIDS(MR$)0102 


分 離 
VAL(S) LEFTS(IMRS) 
女 字 コー ド 化 RIGHTS(MRS) 


CHRS(X) 65 66 01 02 





文字 AB 





4500 COLOR 5 


4520 IF INKEYS< >" "THEN GOTO 4520 
4530 COLOR 7:RETURN 





図 15 





配列 P(Y) 配列 W$J) 


WIS(0) 
WS(1) 
MS(2) 











図 16 A BC 一 DE に 対す る 出力 


(UM 


0300 0405 0102 0300 0405 





の ロジ グラ の 39 己 17 








30 DIM M(150) 
3000 REM ジュ シン ブン ノ サク セイ 
3010 PRINT “ジュ シン ブン ハ ツ ギ ノ トウ リ デ ス " :PRINT 
3020 FOR 1=1 TO W 
3030 MIR$=STRS(M(I)) 
3040 LR= ニ LEN(MR$) 





3050 IF LR>=5 THEN K=3:GOTO 3090 

3060 IF LR=3 THEN MIDS(MRS1.1)= ニ “0: 氏 = ニ 1 GOTO 3090 

3070 IE LR=4 THEN MIDS(MRS1.1) ニ K=2:GOTO 3090 IF 
3080 IF LR=2 THERN MIDS(MRS.1.1) ="O":MRS ニ "00" 填 MIRSK ニ 2 


3090 L$=LEFT$(MRS$,K):R$ 三 RIGHTS(MLRS$,2) 

3100 ドニ VAL(L$) 十 64:B ニ VAL(R$) 十 64 

3110 IF F= ニ 64 THEN F=32 ELSE IF B ニ 64 THEN B ニ 32 
3120 COLOR 3 

3130 PRINT CHRS(TF):CHRS(B): 

3140 NEXT IECOLOR 7 

3150 END 


1 は A に , 2 は B に 以下 26 は Z に 変換 する も の と する . 配 
列 M(I) の 1 つ に は 2 文字 分 が 格納 され て いる も の と する 、. 
プロ グラ ム は プロ グラ ム 9 -17 の と お り で す . ここ で は , 






















〔 目 標 〕 

マイ コン で 絵 を 描く に は どう し た ら よ い の で し ょ う . 幸 
い , PSET と か , LINE GET。 PUT な ど と いう グラ フィ 
ッ ク 命 令 が 準備 され て お り , これ ら の 命令 を 使用 する と , 
簡単 な グラ フィ ッ ク が 容易 に 実現 で きま す . 

ここ で は , これ ら の グラ フィ ッ ク 命 令 の 機能 に つい て 学 
習 し ます . 実際 の 複雑 な 絵 は こ れ ら の 命令 を 組み 合わ せ て 
創作 し ます . 各 命令 の 機能 が 確認 で きた ら , 一 度 , 各自 が 
実際 に 絵 を 作っ て みる こと を お 推 め し ます . 

GERT, PUT は PC-8001 独 自 の グラ フィ ッ ク 命 令 で す . 


III 上 


[1] 文 字 デ ー タ の 配列 へ の 記憶 と 再 出 力 


4510 PRINT: PRINT: PRINT “ハジ メニ モ ド ル ニハ スペ ー ス キー ヲ オシ テク ダサ イ ~ 


22ARAARARSARROORSRAORAROAOROA 


SSC 


捉 II 用 II 月 IUIUHUUIUIUUUUUIIUIIIIUIUIIUIIIUL 吊 








処理 
3030 で 数 値 配列 の 要素 を 文字 に 変換 し て いま す . 
文字 の 長 さ を LEN(MR$) で 調べ 符号 を 考慮 し て 3059 一 
3080 で 4 文字 に な る よう に 置換 し て いま す . 
3090 で それ ぞ れ 右 2 女 字 , 左 女 字 を 分 離し , 文字 列 を 数 
値 に 3100 で 変換 し て いま す . 
3110 は スペ ー ス を 検出 する も の で す . 
3130 で は ASCIL コ ー ド に 変換 され た F や B が 文字 に な っ 
て 表示 され ます . 図 17 に は この 様子 が 図式 で 表わさ れ て い 
ます . 








文字 列 M$ の 中 か ら 次 字 列 X$ を 探し て , 廊 字 列 Y$ と 
入れ 替え る プロ グラ ム . 








プロ グラ ム 18 
に テー | 
100 M$= ニ “ミカ ン レ メロ ンコ スイ カー トマ トー アデ 
110 PRINT MS 
120 INPUT “X$ー":X$ 
130 INPUT “Y$= ニ 5Y$ 
140 1=1 
150 1= ニ INSTR(I, MS.A$) 
160 IF I THEN MIDS(MS.D =YS:GOTO 150 
170 PRINT:PRINT MS 
180 END 





















プロ グラ ム 10- 1 


10 WIDTH 40.25 
20 CONSOLE 0.25.0.0 呈 史 

30 COLOR 0,0.0 

40 DIM B%(40) 

50 LOCATE 0.0:PRINT " 画 画 画 画 " 

60 LOCATE 0.1:PRINT " 男 較 園 男 画 " 

70 LOCATE 0,2:PRINT " 男 画 国 園 " 
S0 GET @(0.0) 一 (4.2), B% 

90 PU @(10,10) 一 (14,12). B2% 

100 END 


この プロ グラ ム い GBPUT を 使っ て 配列 2 に ` 男 " 





6) 





計 を 格納 し 。 再 び 出 力 す る プロ グラ ム で す . す が わ ち , 面 画 上 


EC 05 
を 表示 し, 


0) と (4, 
(50 一 70 の 行 番号 ), 行 番号 80 で , 


2 ) の 座標 で 囲ま れ た 領域 に ~ 較 ” 
その 領域 の 画 
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面 表示 パタ ー ン を その まま , 配列 B 多 に 格納 し ます . そし 
て 行 番号 90 で 配列 B 2 の 中 味 を (10, 10), (14, 12) の 
領域 へ 表示 し ます . 座標 値 は キャ ラク タ 座 標 で す . 


2 グラ フィ ッ ク ・ デ ー タ の 配列 
へ の 記憶 と 再 出力 
〔 演 習 〕 プロ グラ ム 10- 2 


10 WIDTH 40.25 

20 CONSOLE 0,25, 0.1 

30 COLOR 5,0.1 

40 DIM B2%(100) 

50 LINE (10.20) 一 (40,50)。 PSET、、 BE 
60 GET @(10, 20) 一 (40,50)、B2。@ 

70 FOR エ =0 TO 1000:NEXT 

80 COLOR 4,0.1 

90 PUT @(30,40) 一 (60,70), B2, OR 
100 END 


行 番号 50 で 画面 に 四角 形 を 描き ます . 行 番号 60 の GE 
娘 は ドッ ト 座 標 値 で 配列 B の に 画面 領域 を 格納 し ます . 行 
番号 90 で は ,、 ドッ ト 座 標 値 の 領域 (30, 40)、 (60, 70) に 
演算 OR で 出力 し ます . 

〔 演 算 〕 プロ グラ ム 10- 3 


10 WIDTH 40.25 

20 CONSOLE 0.25,0,1 

30 COLOR 5.,0,1 

40 DIM B2(100) 

50 LINE (10,20) 一 (40.50), PSET., BF 
60 GET @(10,20) (40,50), B2.G 

70 FOR 1=0 TO 1000:NEXT 

S0 COLOR 4,0.1 

90 PUT @(30、40) 一 (60,70).B%, AND 
100 END 





























この プロ グラ ム も 演算 し て 出力 する プロ グラ ム で す . 行 
番号 90 で は AND を と っ て いま す . 
〔 演 算 〕 プロ グラ ム 10- 4 


10 WIDTH 40,25 

20 CONSOLE 0,25、0,1 

30 COLOR 5.0.1 

40 DIM B2(100) 

5( LINE(10,20) 一 (40.50). PSET,, BEF 
60 GET @(10,20) 一 (40.50), B2,G 

70 FOR エニ 0 TO 1000:NEXT 

80 COLOR あ 0.1 

90 PUT @(30,40)--(60、70). B%, OR 
100 END 











この プログ ラム は XOR 演算 を 画面 領域 上 で 行ない 出力 
getsd- 
LINER 六 中 の PSET は ドッ ト を 表示 する こと を 示し ます . 
PSET は その ほか に 単独 で 使わ れ ま す . 

PSET(X  Y, C) 

どこ ss 座標 MX の と ころ に みみ ラ es で 
に ピット を 表示 と まう 2 CC (は ーー ド で は COLOR 文 
の と き と 同 様 な 機能 と な り ま す . 


画面 の ドッ ト 表示 を 消す に は BRESRT(R Y) を 使い ます . 





3 動く 図形 


行 番号 40 で ドッ ト 指 定 で 箱 を 書き ます . 行 番号 50 で 配列 


古 第 1 日 


目標 〕 
第 1 日 か ら 第 10 日 まで いろ いろ な 命令 や プロ グラ ム を 学 








と 50) 








の 





B 2 に 箱 を 格納 し ます . 行 番号 55 で は 画面 の 箱 を 消し ます . 
行 番号 60 で 配列 B 多 か ら 箱 を 出し て き て , 違っ た 領域 へ 出 
カカ し ます . あたかも 箱 が 移動 し た か の よう に 表示 され ます . 
(演習 〕 プロ グラ ム 10-5 

10 WIDTH 40.25 

20 CONSOLE 0,25.0,1 

30 COLOR 5 0,1 

35 DIM B%(50) 

40 LINE (5,.10) (10, 22), PSET,, BE 

50 GET @(5,10) 一 (10, 22), B22, 

52 FOR 1=0 TO 1000:NEXT 

55 PUT @(5, 10) 一 (10.22), B2, PRESET 

60 PUT @(45,50) 一 (50, 62), B%, PSET 

70 END 


[4 色 の 変わ る 図形 
己 n SO 旦 へ 、 圭 三 

(文字 と ドッ ト の 混合 表示 ) 
〔 演 習 〕 プロ グラ ム 10-6 

10 WIDTH 40,25 

20 CONSOLE 0,25, 0, 1 

30 COLOR 5,0.0 

40 DIW BB2(150) 

45 XーRND(1) *6 二 1 

50 LINE (10,20) (40,50), PSET, 民 , BF 

60 GET @A(10, 20) 一 (40, 50), B め 

70 FOR 1 コ =0 TO 1000:NEXT 

90 PUT @A(30.40) 一 (60.70), B2 

100 END 


この プロ グラ ム は IN 也 交 の 機能 コー ド に 乱数 を 使い , 
いろ いろ な 色 で 箱 を 書く よう に し た も の で す . 

GET@A。 PUT@A は 文字 と ドッ ト 混 合 表 示 の と き に 使 
いま す . 

















2 ログ ラ 


10 WIDTH 40,25 

20 CONSOLE 0,25,0, 1 

25 DIM _B(150), A%(10) 

30 COLOR RND(1) *6 十 1.0.1 

50 LINE (10.20) 一 (40,50), PSET, BF 

60 GET @ (10,.20) 一 (40,50), B22, で 

90 PUT_@ (30,40) 一 (60, 70), B%, XOR 

100 LINE (0.0) 一 (5.5), PSET , BF 

110 GET_ @(0.0) 一 (5.5), A% の , G 

120 PUT @(0,0) 一 (5,5), A%, PRpspT 

125 XX1 三 0:Y1=0 

130 素 1 三 区 1 十 1:Y1ーY1 十 1 

135 COLOR RND(1) *6 十 1,0,1 

150 PUT @(X1, Y1) 一 (X1 十 5, Y1 +5), A%, PSET 
160 FOR 」=1 TO 300:NEXTFT 

165 PUT @(X1, Y1) 一 (XX1 二 5, Y1 5), A, PRESET 
170 IF X1<76 GOTO 130 

180 GOTO 30 


ム 10- 7 











どん な 絵 が 出 て くる で し ょ うか , 楽し み に プ ログ ラム を 


実行 し て みて くだ さい . 
SYS CSY2SCoSY3 ぐ CS SNS AS 3 

と っ mm 
〆 プ ログ ラム 制御 0 2 
ログ フラム 


習 し て きま し た . 実用 的 な か が プログ ラム を 作る に は , これ だ 
け の 知識 で は まだ 大 変 だ と 思い ます . プロ グラ ム は 機能 別 














、 吊 件 の 





AS 
則 人 名 の 方 法 レノ 


SS の 





に で きる だ け 小 さく 作っ て これ ら の 小さ な いく つか の プロ 
グラ ム を 上 手 に 結合 し , ひと つの 大 き な プ ログ ラム に し て 
いろ いろ な 機能 を 実現 する プロ グラ ム に まとめ 上 ば げ て 作り 
ます 才 

ここ で は , 小さ な いく つか の プロ グラ ム を まとめ て ひと 
つの 大 き な プ ログ ラム と し , まとまっ た プロ グラ ム に 作り 
上 げ る た め に 必要 な 命令 を えい くつ か 学習 し ます . 

具体 例 と し て は いま まで に 使っ た いく つか の プロ グラ ム 
を 結合 し た 売上 ・ 在 庫 管理 プロ グラ ム の 模型 と , 暗号 処理 
プロ グラ ム を 作る こと に し ます . 

プロ グラ ム 制 御 の 要点 は サブルーチン の 作り 方 と プロ グ 
ラム の 流れ の 作り 方 で す . 

[ 和 ] プ ログ ラム の 流れ を 変え る 

プロ グラ ム の 流れ を 変え る に は 無 条件 分 岐 す る GOTO 交 
と 条件 に よっ て 分 岐 す る ON< 条 件 >GOTO 廊 が あり ます . 

その ほか , サブ ルー チン を 使用 し た と き の GOSUB 女 と 
ON < 条件 > GOSUB 娘 が あり ます . これ ら 2 種類 の 文 は サ 
プル ー チ ン へ 分 岐 す る か 否 か の 違い で す . 

サ プ ル ー チ ン は , プロ グラ ム の 中 で 繰り 返し 何 度 も 使わ 
れる , まとまっ た 小さ な プロ グラ ム だ と 思っ て くだ さい . 
そし て , 必 ら ず , 分 岐 し て いっ て も サブ プル ー チ ン ・ ブ プロ グラ 
ム で の 処理 が 終り 決 第 。 分 岐 し た 直後 の 命令 の と ころ に 実 
行 の 順番 が 自動 的 に 戻っ て くる も の で す . GOTO 交 は 戻っ 
て こない の で , ここ ら あ た り が 違い ます . 

この よう す を 図 1 に 示し ます . サブルーチン か ら 戻 る に 
は RETURN 命令 が 必要 に な り ま す . 

図 1 





く ( 1000 


1000 へ cosns 0/ 
ゲー プ RETURN 


トン 2000 で eosos no 2 


ca 
ン 00 へ cosos zo クン RETURN 
GOTO 女 


ly 午 | 


〔 演 習 〕 ON X GOSUB 





GOTO 1000 2 





GOTO 3000 











プロ グラ ム 11- 1 





100 INPUT “XXー リ 5 骨 
110 ON X GOSUB 200.300.400 

120 GOTO 100 

130 REM *** サフ ルー チ ナン ネ ※*※ ネ 
200 PRINT “SUB-1" 

210 RETURN 

300 PRINT “SUB-2" 

310 RETURN 

400 PRINT "SUB-3" 

410 RETURN 

500 END 











この プロ グラ ム を 実行 し て みる と メー1 の と き 200 へ 分 
岐 し 。 SUBー1 と プリ ント し て きま す . メー デー2 の と き 300 
へ 分 岐 し SUB- 2 と プリ ント し て きま す . 

メー3 の と き 400 へ 分 岐 し SUBー3 と プリ ント し て きま 
3 お > 

それ ぞ れ 戻る た め に は RETURN 命 令 が 必要 で す . 戻っ 
て きた と き は 120 の GOTO100 へ 戻り ます . 
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急 プ ログ ラム の 構成 法 
【 演 習 〕 仕 入 , 売上 , 在庫 処理 プロ グラ ム 
仕 入 , 売上 , 在庫 の 処理 プロ グラ ム を まとめ て ひと つの 
プロ グラ ム に し て みよ う . プロ グラ ム を 機能 別に 箱 に 書き , 
それ を 結合 する . そし て , 各 機 能 プ ログ ラム を どの よう に 
し て 選択 し て 実行 きせ る か を 考え る . 
図 2 仕 入 , 売上 , 在庫 処理 プロ グラ ム の 構成 





ーー 


(STAR リ 











棋王 ーー っ | 
プロ グラ ム の 構成 は 図 2 に 示す よう に , 6 個 の ブロ ッ ク と 
プロ グラ ム に な り ま す . これ ら 機 能 プ ロッ ク は それ ぞ れ サ 
プル ー チ ン 化 し , 行 番号 を 適当 に 割り 付け て コー ディ ング 
し ます 。 
この よう に し て いま まで 学習 し て きた プロ グラ ム を ま と 
め て みる と 行 番号 は 図 2 に 示し た も の と な り ま す . 
すなわち , 





10 一 40 初期 化 ル ー チ ン 
50 一 70 メニ ュー 選択 ルー チン 
500 一 730 売上 伝票 作成 サブ ルー チン 
1000 一 1070 | 売上 ファ イル 作成 サブ ルー チン 
1500 一 2140 仕 入 処理 サブ ルーチン 
2500 一 2680 在庫 ファ イル 作成 サブ ルー チン 
3000 一 3090 ファ イル 問い 合せ 処理 ルー チン 














と な り ま 。 ボ 。 
プロ グラ ム ・ リ スト を 図 3 に 示し ます . 
〔 演 習 〕 暗号 処理 プロ グラ ム 
図 4 暗号 処理 プロ グラ ム の 構成 





ロー 











入力 処理 














全 1 


ん 


図 6 出力 結果 例 
ネネ ネ ゼン ブン ノ シュ ツリ ョ ク ** ネ キネ 
2 ベツ ョ ンション シン ハ 

(0 記 ド 芝 : 才 り 0(0COL000H0MUO 二 0KG%Y4 い 60045 に ネン yaaz< 
0 ニク 邊 / 

Ui 624 5) 

(UI 2072 9 

1900 1900 

0100 II 

5 5 

|53 318 

51() 15151 

15)E1 1531 

Uiy Ii 

2005 2005 

IN) 1S00 

1301 1301 

UMAUiI 7(() 

2609 2461 2609 

Pl5) 2641 PUU5) 

ンコ ョ ンス シン 9222 の ペン ド シア ダス: 
(6 思 ド 世 :V0(0 い 60000M0MMOI( 作 (みり V4 い 0 


PU 
1665 





行 番 号 | 

100 一 150 初期 化 ル ー チ ン 

160 一 230 プロ グラ ム ・ メ ニュ ー 表 示 ル ー チ ン 
240 一 270 プロ グラ ム 選 択 ル ー チ ン 
1000 一 1220 発信 文 入力 処理 サブルーチン 
2000 一 2190 | 吐 号 化 処 理 サ プル ー チ ン 
2500 一 2620 復号 処理 サブルーチン 
3000 一 3160 受信 文 出力 処理 サブ ルー チン 
4000 一 4140 全文 出力 処理 サブ ルー チン 
4500 一 4530 | 画面 表示 保持 サブ ルー チン 
5000 一 END 














な お , 出力 結果 リス ト の 例 は 図 6 に 示し ます . 
女 字 処理 シス テム の 応用 例 と し て 吐 号 処理 プロ グラ ム を 
考え て み ま す . ここ で は ,1976 年 に ヘル マン が 発表 し た 公開 
鍵 嗜 号 系 に つい て RSA 法 に よる アル ゴリ ズム を プ ブログ 
ラム 化し た 例 を 図 4 に プロ グラ ム の 構成 を , 図 5 に プロ グ 
ラム ・ リ スト を 示し まし た . 
人 
字 の みか ら な る 廊 間 が 許さ れ ま す . 

暗号 鍵 e, n は 公開 で n は 素数 p と q の 積 で , 
か ら 作 られ ます . 

秘密 に し て お く 復 号 鍵 qd は e 
(qー1)〕) か ら 選 ば れ ま す . 


AA 一 選 の 文 


e は 乱数 


・d 圭 1 mod〔(p 一 1)・ 


この プロ グラ ム を 実行 する た め に 
三 2773 が 例 と し て 示さ れ て いま す . 


3 プログラム の デバ ッ ク に つい て 
プロ グラ ム は 一 度 に 正しい も の が で きる と は 限り ませ ん . 
度 も 何 度 も 手直し し て で き あ が り ま す . 特に , BASIC の 

プロ グラ ム は その よう な こと を 前 提 に シス テム が 作ら れ て 

ち おり, プログ ラム の 手直し が 非常 に や り 易 く な っ て いま す . 
次 に , 2 一 3 ご 参考 まで に プロ グラ ム ・ デ バッ ク の や り 

方 を 紹介 し て お きま す . 

⑯STOP 婦 を 使う 
プロ グラ ム の 途中 に 適時 STOP 廊 を 挿入 し 途中 結果 を 確 

認 し ます . この と き , 変数 の 値 を 調べ る に は ダイ レク ト ・ 

モー ド で PRINT 文 な ど を 使い ます . 

@TRON/TROFF を 使う 
実行 し た 行 番号 を 表示 させ れ ば プロ グラ ム が どの よう に 

走っ た か (実行 され た か ) 判り や すく な り ま す . 実行 順に 

2 の RE 

る に は TROFTE 命令 を 使い ます . FOR 文 や , GOTO 交 な 

200u85429 プ ポラ 0 の ドル く どん 人 1 は oe 

す . 

PRINT 廊 を 使う 
変数 の 値 を プロ グラ ム の 実行 を 中 止 す る こと な く , 順次 

続け て 監視 し た いと き は 適当 な 個所 に PRINT 文 を 入れ て 

出力 させ ます . デバ ッ ク の た だ ため に 挿入 し ます . 
SEN PRINT 文 が 不要 に な っ た ら す ぐに 消す こ 

な く REM 文 に 置き 換え て お く の も また , 必要 に な っ た 

0 

REM PRINT X と か REM STOP と し て お く こ と を 意味 

し ます . 最終 的 プロ グラ ム が 完成 し た と き に は も ちろ ん 抹 

消し て お きま す . 

@⑳BEEP の 使用 
ルー プ の 中 や 分 岐 先 に BEEP を 使っ て , そこ に プロ グラ ム 

の 実行 が 移っ た こと を 知ら せる 音 を 鳴ら すこ と は デバ ッ ク 

の 手助け に な り ま す . 

ON ERROR GOTO, ERROR 廊 を 挿入 する 
エラ ー が 起き た ら そ の 分 岐 先 を 決め て お き , エラ ー の 内 

容 を 調べ る よう に し ます . 

最後 に 初心 者 の 方 に 多く み ら れ ます が , プロ グラ ム を 訂 

正 し た 場合 は 必 ら ず [RETURN] キ ー を 押し て お く こ と を 志 

れ な いよ うに し まし ょ う 


e 三 17。 d 三 157, n 























ーー エー ニテ ーー ) RESET ニコ = 
1OO_REFH pub1ic key cFvptosv=tem (RSA) 1060 FURX=1T ロ L 
110 REN 玉水 Gimulatton ロ ソ V ド 、 に aai 水素 水素 1070 NT ま =MTD ま (MM ま 。X。1 ) 
120 1OBO IFNMTI$ ま = "THENP(X) =ASC (MT まあ) 一 さ つ 2: GUTD 11o00 
13O0_ DIM F(255) 、 ま (1 さ 0) 、C(13O) 、 (1 さり ) 、F ま (1 ) 109O P(X)=QSC(HT* ま ) 一 64 
140_DEF FNMF(X) = メーITNT (X/N) *N 1100_ NEXTX 
150_FRINTCHR ま (12) 111O Y=OiM=L/SPRINT 
160 FRINT" ポ ※ ポ PD11c key と FvDtOsy5Eem *※※ り PRTNT 1120 FOURJ=1TOM 
179 FRINT"1 と 2 の 113O Y ニ 1+( ゴ ー1 ) ※ つ 
1 ヨ 8O_ FRINT"2: / ん) の 1 1140 F ま =STR$(F(Y) ) = TF LEN(F ま ) = ニ 2 THEN MID ま (F あ 。1 1 ) ="O" 
190 PRINT "3= フワ コ " ウー ノ サキ " ョ ウ 115O_ IFLEN(F も )= さ THEN F ま =RTBHT ま も (F あ 。 つ ) 
SOO_PRTINT"4: シド ュ シ フ フー ンー ノ サウ セイ 116O 昌和 $=STR ま (F(Y+1 ) ) : TF LEN(B ま ) = コ THEN MID ま (B$、1.1)="O" 
210 PRTNT" 品 = セ " シ フン シュリ リョ ク 1170 IF LEN(H ま )= さ THEN も =RTGHT ま (日 あつ) 
FRTNT "6: ワリ 11O 生 (J) ニ F ま + 日 ま 
う FRINT 119O_ PRINTM ま (J) s 
0 INPUTT ラ ザウ 1-6 ノ ト " し カカ ヒト リ ヲ キー ニュ ウリ ョ ワ シテ "サイ リュ A 1200. NEXTJi FRINT 






O BHTO 15o 
1ooo FRTINTCHR ま (12) :N=O 











1010 TINPUT "リリ ツタ シ フフ トン ラニ ニュ ウリ ョ フ シテ フウ ト サイ " ュ M 針 
= L=LEN (も ) :FRTNT 
FRTNT"/ リ ュ M ま リノ リュ リ リュ し ュ に モト テー ラリ 
1040 BB= ニ LHD2 
| 105O IF HB:O THEN 本 = すり リュ レー ニレ +1 














GOSUB45OO 

RETURN 

O REI *※※ PuD11C に らら V ヒレ ソロ モロ = ソ 5= モ ら m ポポ ※ 
REM _ Encryption and Decryntion program 






REI1 E= ニ 1 ア 。 d=157。 n ロ = ニコ フフ さ 。 from (RGBA) 
INFUT "EncFy ロ tion ビー<17 テ > リツ s 

INPUT "DecFypntion D= く 15 ア 

INPUT "Composite Number 2773> "3N 





206o 


PRTINT:FRINT"※※ ポ アッコ" ウ サウ セイ ポ 氷 ボリ 
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1 の 















































5 
2070 FRINT:FRINT"m( む ) 官民 か 遇 | ュ O60 IF LR= さ THEN HID ま (MR*$、1、1)=" BOTO さ O5O 
2o ヨ O FOR J=1 TO WM ミ O7ZO IF LR=4 THEN FID*(ITR。1.1) OTD さ O9O 
209O NHN=VAL (NM (J) ) ミ OBO IF LR=4 THEN HID ま (MR ま 、1、1) 三 ! 0 
210O ビニ NM ュ O9O し ま =LEFT$ ま (MR も ま 、 ド に ) : 民 まあ =RTGHT$ ま (MR つら) 
FOR エ =1 TO Eー1 - ミ 1OO F=VQL (し も ) + ら 64: HVL (R も ) キ 6 人 4 
DO ビ =FNHF (CH) ミ 110 IF F=64 THEN F= さ 2 ELSE TF B=64 THEN 日 = さ = 
NEXT 1 ロ 
C(J) = ビ O PRINT CHR$(F) : CHR$(B) = 
> NEXT 1 
DO FRINT USING" 半音 EE は UMHIM 由 り Oo BngUB 45oO 
70_NEXTJ RETURN 
O FRINT: GOSUB 45OO O REN "セト ンプ リー 9 リョ フリ 
O RETURN > 
25O0O FRTNT CHR ま (12) :FRTNT:FRTNT" ポ ポポ フフ コ " ウー ポ ポポ リ 
2510 PRINT:FRINT " C(T) RED" 
2520 FOR J=1 TO UM PRINT CHR ま (12) :FRINT "セッ ズン ジリ リョ フリ EPRINT 
P=C (JJ) FRINT " ハッジ ッ ズン "EPRTNT 
FOR =1 T ロ D-1 4060 PRTNT "7 リュ M ま ュ リ / し ュ に "モテ トス "5PRTNT 
P=FNHF (FC(J) ) 407O_ PRINT "コー ト " アッ ゴウ フ 2 コ ゴウ " 
NEXTI 40 ヨ O FOR J=1 TO WU 
M 4090 * 
O PRTNT USTNG' 半 半 間 匠 拉 持 "= ビ (d) 、 ピ 4100 PRINTM*(J) 
0 NM(9)=P 4110 PRINTUS TNG 折半 半音 韻 提 電 菩 !s ビ (J)。4( け ) 
NEXTJ 4120 NEXTJ 
O PRINT :BUSUE 4500 41 さ 3O FRINT: GOSUB3O1O 
O_ RETURN 4140 RETURN 
ュ リ リョ ウ " 4500O REM "ウエ イト リ 
ッ ルリ ギフ トウ 9 デス リュ PRTNT 4510 PRINT:PRTNT:PRINT" ジ "メニ モト ドル ニハ SBpace Rey ラオ シテ フ の サイ リ 
EO FOR I=1 TO WU 4520 人 $=INKEY$:TF まく >V ! THEN BOTO 452Q 
KO MR*=STR$(M(T) ) 453O RETURN 
| seoe END 











40 

5o 

60 

70 

8O 

100 
119 
120 
2OO 
210 
220 
230 
240 
250 
260 
270 
2 ヨ O0 
300 
310 
320 
100 
1155 
116 
ey 
118 
の / 
120 
121 


15 
1 
154 


155 


1 紀 7 


159 
16Q 
161 
16 人 2 


164 
16 
199 
200 
201 


204 
320 








DO_REM 炒 ※※ 


156O9 


158QO 








REIM ポポ ※ ミ コ 1 ド に ロ ※※※※ ポ ロ ソ ド 。 ド は ゆら 1 
REM ポポ イレ ルー ウリ アド ー サ ドイ コート ゴ アワ セー ウリ アカ "7" ラフ ポポ 
X=10:DIH N(X) .T(X) 。5S(X) 。Y 社 (X) 


Y=1OsDIM US(Y) 。D 手 (Y) 。T 析 (5O) 。 (5O) 
N=O : 日 井 = り : ェ ビデ 1 : 7 昔 モ 

ド =10: MM=O 

DIM N$(E) 。SBT(E) 。SS (FE) 。SD#( ド ) 
GOSUE 900Q 

FRINT CHR$ ま (1) 
PRINT "X*※ 27 ロ の "ラム 
FRTINT 
FRINT 
FRTINT 
FRTINT 
FRINT 
FRTINT 








ポポ 氷 り 


1 シイ ルリ 
ルン 
SM ア が 0 
2 コリ 
9 ト d ア ワウ セリ 

FRINT "6, す の 9! 

INFUT リト "レニ 1-6"』 全 

ON Q BUSUE 1000.2O00. さ 000. 4000.5000。6000 
GOTO 2OO 
0 REM ポポ ※ 氷 シイ レポ ボボ ポポ 
O_PRINT CHR も (12):FRTNT 
0 _ INPUT "コート" " ョ N 
O IF N=999 THEN 1S500 
0 _TNFUT" シ f レ タン カリ " ョ ST (N) 
OTNFUT "ジイ ル ヌ ウリ ョ ウ " ョ Ss FRTNT 
QO FRINT Ni"/"gN ま (N) "7/ リ sgBT(N) "7/" ュ BsPRINT 
O INFUT" カ 2 ニー "イーy/ マ チカ "イー ns 全 
0 IF Q$="n" BHTO 1160 





"ジイ ル サ キ " ョ ウリ ェ PRTNT 








30 SS(N) =SS(N) + 


O Y#=ST(N) *%S 

O SD#(N) =BD#(N) +Y 栖 

O BOT 1150 

シイ レフ ァイル 米 玉 束 
GZ##=O 

O PRINT" 
O_PRINT "コー ト “ 
O FRINT 

QO FUR X=1 TO 109 
FRINT USTING" 振 提 
O_ PRINT N ま (X) iTaB(14)s 
FRTINT UING "音韻 拓 提 
OZ#=7Z 提 TSD 后 (X) 

O NEXT X 

の ひ PRTNT "ーー ニーーーーーーーーーーーーーーーーー デ ーーーーーーーーーーー デ ーー デー デーー 上 
D PRINT TAB(6) "コト ウケ 0 4 TAB(E ら ) s 
) FRINT USTING" 半 半 幸 韻 電電 中 』 ロ Z 提 
O_ PRINT INPUT "マミ マミ ッ タラ ー キー イフ リョ 日生 
O_ RETURN 

の RENM \ ポ ポポ ポポ ポポ ポポ ポポ ボボ 洲 素 玉 米 ポポ 

O_ REN ※※ テン フ ヒ 5 ョ ウ サキ "ヨウ 素 涼 

〇 圭三 O ェ エーロ 

ェ =1+1:PFRTNT CHR 和 (12) :FRTNT" 
INFUT "コー トド TV IN(E) 

O INFUT "ター カバ リョ T(1) 

0 INFUT "マウ リョ ウリ ュー( エ ) 


シゴ イレ ファ イル パチ ラッ ヒョウ "sg PRTNT 
5 タン カ スウ リョ ウ 





キッ が の リ 






音韻 韻 提 韻 韻 井 韻 井 基 井 井 "= BT(X) 。BS(X) 。SD 音 (X) 


テン ヒ S ョ ウ ハリ コウ "sgPRTNT 
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図 3 








SO6O 
2070 
207 
2O8O 


2O09O 
2100 





さ Q さ O 
さ 3940 
さ 05O 
さ 060 
さ 3070 
さ 308O 
3090 
さき 10O 
さき 110 
4000 
4010 
402O 
40 さ 0 
4040 
405O 
4060 
4070 
408O 
4090 
4100 
人 4110 
412O 
41 さ 0 
人 414O 
415QO 
44160 
人 4170 
418O 
OoQO 
010 
5020 
5030 
旨 040 
505Q 
5060 
507O 
508BO 
5O9O 
10O 
110 
6000 
9000 
90109 
9020 
90 さ 3O 
9040 
905O 
9060 
907O 
908Q 
9090 
9100 
9110 
9120 
91 さ 3O 
9140 





Y#( エ ) =T(T) *S(T) 

N=NI( 1 ) 

UT (N) =T(1 ) 

US (N) =US (N) +(1) 

D##(N) =D#(N)+Y#(T ) 

IF 1 エ =5 GOTO 2O2O 

TNFUT "ショ ウケ サイ ナラ (※) ラ イレ ルリ ェ 全 各 

TF まぐ >!※ り BHTU 202O 

FRINT CHR$(12) FRTNT "no. "FEFRTNT 
FRINT リ コート” "ミリ ヒン メ Y リュ SPC ( さ ) : リ マウ リョ ウ " ュ SFPC (7) : "キー ンカ" 2" 
FR _N=1 TO r 








=N(N) 

FRTNT USTNG" 半 拉 拉 圭 音 震 半音 電 持 " ょ T(N) 日 (N) 、Y#(N) 
T#=T 半 +Y 韻 (N ) 

NEXT N 

FRTNT "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー * 






FRINT TAB(25) :FRTNT USTNG " 壮 半 拉 提 電電 寺井 。" は 韻 

は 半井 年 : ビニ ピエ 1 

FRTINT: INPUT "コウ ケイ ゴー ナラ ( 学 ) ヲ イレ ルリ ョ 谷 生 

TF も = リ 潮 り BHTH 228O 

(PF) =T: 征 補 (F) =T#: BODTU 2O10 

FRINT:FRINT "イト" アリ が リト ウー コ サバ イッ マタ リョ BFC (6) 

FRINT US TNG " 六 半 提 電電 盾 持 。!! 。 は 韻 

Z 提 7 提 二 牛 =: 昌 井 = 

INFUT" 22 1 客 っ EANUSYE 昌 に 

RETURN 

REI 水玉 洲 涼 水素 水素 ポポ ポ 洲 ボボ 求 ポ ポ 玉 玉 

FRINT CHR ま (12) ょ FRINT" ポポ の ウリ アリイ チラ ン ヒ ョ ウー ポポ ※ り PRINT 
ERONSM 思 EMB ヒン メイ リュ SBFC( さ ) 』 リ ワー カカ リョ PC ( さ ) リマ ウリ ョ ウリ ョ FC (日 ) 』" キ ンカ " 2" FRTNT 
FOR TI=1 TO 109 

FRTNT USING" 拉 拉 "リュ aTs 

FRINT _N ま (T)』TAE(11 

FRTINT USTNG " 拉 音 間 # 韻 提 拉 振 韻 提 間 井 拓 提 電電 振 "! =UT(T) US(T ) 。D##(1) 
NEXT 

FRTNT リーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 8 

PRINT FC(25) は 
FRTNT USTNG " 党 党 提 韻 提 拉 寺 井 。"*Z 揚 

INFUT "スミ マシ タラ キー イン リョ も 

RETURN 

REN ポポ サリ イコ パチ ラン ヒョウ ポポ ※ 

FRINT CHR も (132) ょ ZZ 半 =O 











FRINT " ポポ サー イコ ゴチ ラフ ヒョウ ポポ ポリ 

PRINT 

FRTNT リ コー ト ~ ヒン タゴ ヲ ン カ ヌ ウ リョ ウ キジ シカ” グッ 
FRINT 


FOR J=1 TO 10 

ZS (J) =SS (J) 一 US (J ) 

ZD 失 ( ゴ ) =Z8 (J) *※BT (J) 

ZZ 提 =ZZ 提 +ZD 提 () 

FRTINT USTNG" 韻 韻 リョ ゴ ョ 

FRINT _N$ も (J) 』TAB(14) * 

FRINT USTING" 拉 提 韻 菩提 半 拓 井 半 拉 音 井 井 牛 。" GT (J) 。 ZS (J) 、ZD#(J) 
NEXT J 

FRTNT "ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 一 上 
FRINT SPC(26) * 

FRTNT USTNG " 党 井 電電 電装 寺 。!! = ZZ 革 

TINFUT "スミ マシ タラ キー イン フリ ョ 日 も 

RETURN 

REM 氷水 ファ ゴル モニ 7 ポポ ※ ボ 氷 

FRTINT CHR$*$(12) 

FRTNT "※ 水 水 水素 ファ ゴル モニ 水玉 水 氷 ※ リ 


FRTINT 
FRINT " シイ レ ファ イル (1)" 
PRINT " ウリ アグ” ファ イル (2) " 
FRINT " サド イコ ファ ィ イル ( さ 3) " 
FRINT 


INFUT" (1) 一 (3) フト ドレ し テ * カリ 
PRTNT CHR$(12) 

ON Q GOSUB 15O0。 さ 000。4000 
RETURN 

FRINT" ワリ ":END 

REM X 水 ショ ウ ヒ コメ イー./ ヨミ コミ ポポ 
FOR 1=1 TO1O 

READ N$(T) 

NEXT 1 

RESTORE : RETURN 

DATA"T チ コリ 

DATA" フ トト * ウリ 

DATA"z イ カリ 

DATa" 
DaTA" 
DATA"YY ナナ " 
DATA" ナ シリ 
DATA" そ モモ" 
DATA" カ キリ 
DATA" メ ロフ" 
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ウフ ロク ラバ の 解 枯 
モニ タク ・ サ フル ー チ ン の 利用 法 
Monitor-2 …… 
PC-ASM-… 
2 パス ・ ア セン プラ 
BASIC に よる 逆 ア セン プラ 1 
BASIC に よる 改良 版 逆 アセ ジン ラ シラ ラ 


BASIC COMPILLER 
ンド ・ コ ン バ イ ルス 問 
grem lk 9 aeー ジ 

バリ アラ フル リス ョ トド 
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0.9K バ イト に 収め られ て いる モニタ 
内 の サブ ルー チン を 活用 し よう / 


モニ タブ ログ ラム の 丹 析 


PC-8001 





Mr. AHIRU 一 急 





PC-8001 は , 相変わらず 人 気 が あ り ま すね . 私 も ユー ザー 
の 1 人 で す . し か し , あの ハー ド を BASIC だ け で 使用 す 
る の は も っ た いな い の で す . 

そん な わけ で , PC の モニ タ ・ プ ログ ラム (MON コマ 
ンド て 起動 する モニ タ の こと ) を 調べ た の て 報告 し ます . 

PC- 8001 で は 1/O の サブ ルー チン な ど は , N-BASIC イ 
ンタ ー プ リタ の 中 に 入っ て お り , モニ タ は その サ プ ブルー チ 
ン を コー ル し て 使っ て いま す . 

これ は 通常 の プロ グラ ム か ら み れ ば 逆 で すね . 

モニ タ ・ プ ログ ラム の 開始 番地 は , 5C 2C 番 地 か ら で , 
5FFF 番地 まで を 使用 し て いま す . 


モニ タ に つい て 一 言 


] モニ タ を 強化 し た い 方 


モニ タ ・ プ ログ ラム は 約 0.9K バ イト の 容量 な の で , どう 
し て も 機能 不足 に な っ て し まい ます . 

この モニ タ は スタ ー ト 時 に 7FFF 番 地 の 内 容 (この ア 
ドレ ス は 4 個 目 の R OM の 最後 の と ころ ) を チェ ッ ク し , 
その 内 容 が 55H で あれ ば 7FFC 番 地 に ジャ ンプ する よう 
に な っ て いま す . 

4 個 目 の R OM は , 現在 , 販売 され て いま せん が 。 拡張 
で きる よう に な っ て いる の は , 間違い な い の で その うち 販 
売 さ れる の か な ? 

それ は さて お き , 現在 販売 され て いる PC-8011, PC-80 
12 を 使っ て この アド レス に PROM を 入れ , その プロ グラ 
ム (モニ タ で な く て も いい ) を MAON コマ ンド て で 起動 で き 
る の で す . 

これ を 利用 し て , オリ ジ ナ ル な 強力 モニ タ を 装備 し まし 
由 近 2 計 
刀 N-BASIC に 戻る に は … 


モニ タ は N-BASIC か ら CALL で 呼ば れ て , 起動 する み 
た いで す . 

N-BASIC に 戻る と き 、 リ ター ン で 戻っ て いる の で , 問 
違い な いと 思い ます . 

その と き 問 題 に な る の が , スタ ッ ク と テキ スト (N-BAS 
IC) ポイ ンタ で す .。 

N-BASIC で は テキ スト ・ ポ イン タ は HL レジ スタ を 使 
っ て いる みた だ たい で, モニ タ の 最初 で SAVE し , N-BASIC 





に 戻る と き に セッ ト さ れ て いま す . 

この 内 容 を お か し くす る と , BASIC に 戻っ た と き お か し 
く な り ます . 

また , スタ ッ ク で 示さ れる メモ リ に は BASIC へ の 戻り 番 
地 が 入っ て いる の で す . 

HL と SP が SAVE さ れ て いる 番地 は 次 の よう に な っ て 
いま す . 





HL 中 FEF34 番 地 
SP 中 FF36 番 地 





これ を 利用 する と. 
に 戻れ る は ず で す . 
HE と SB を セッ トビ で RE お れれ ば WW の で お 


マシ ン 語 プロ グラ ム か ら 直 接 BASIC 


モニ タ に よっ て , マシ ン 語 を メモ リ に 書き 込む の は いい 
の で す が , モニ タ へ 戻せ な いと , 非常 に 不便 な 場合 が あり 
まま 9 

その 場合 、 5@66 番 地 に ジャ ンプ すれ ば , スタ ッ ク を 再 
セッ ト し,。 コマ ンド 入力 待ち に な り ま す 。 


ま 472 引 Be 張 D8BNfR 了 (に 3 れれ 陣 の IRM 月 後 だ 寺 2 7 を 
表示 し コマ ンド 入力 待ち に な り ま す . 
米 3 玉 
次 に ,. サ プ ブル ー チ ン の 説明 を し ます . 3 し < 











サブ ルー チン の 内 秦 


アド レス : 5FD4 番 地 
入力 パラ メー タ : な し 
出力 パラ メー タ : な し 

機能 : 画面 に スペ ー ス を 表示 し ます . 


CR/LF 出力 


アド レス : 5FCA 番 地 
入力 バラ メー タ : な し 
出力 パラ メー タ : な し 
機能 : 画面 に CR/LF を 出力 , す な わ ち 復 改 を 行ない ます . 


う 1 文字 表示 & カ ー ン ル 表 示 


アド レス : 5FBO 番 地 

入力 パラ メー タ : Acc に 廊 字 コー ド 

出力 パラ メー タ : な し 

機能 : Acc の 内 容 を 画面 に 表示 し , カー ソル も 表示 し ます . 
ペア ・ レ ジス タ の 比較 


アド レス : 5ED3 番 地 
入力 パラ メー タ : 是 世 と DE レジ スタ に 比較 し た い 値 を セ 
ッ ト 
出力 パラ メー タ :C/ ニ 1 叶 HL く DE 
*YZ/ テ 1 中 HL テニ DE 
機能 : HL レジ スタ と DE レジ スタ を 比較 し . HL し レジ ス 
タ の 方 が 大 きけ れ ば キャ リー フラ グ が セッ ト き され ま 
す 。 また 。 等 し けれ ば ゼロ ・ フ ラグ が セッ ト さ れ ま 
す . 


日 コー ド 変 換 (BIN-HEX ) & 表示 


・5EC5 番 地 

入力 パラ メー タ : Acc に バイ ナリ ・ 

出力 パラ メー タ : な し 

機能 : Acc の バイ ナリ ・ コ ー ド を HEX コ ー ド に 変換 し , そ 
の コー ド を 画面 に 表示 し ます . 


HL レジ スタ の 内 容 を 表示 


アド レス : 5EC0 番 地 

入力 パラ メー タ : 語 軸 レ ジス タ に バイ ナリ 

出力 パラ メー タ : な し 

機能 : HL レジ スタ に セッ ト さ れ て いる バイ ナリ ・ コ ー ド 
を HEX コ ー ド に 変換 し て 画面 に 表示 し ます . 


プ メモ リ の 内 容 を 表示 


アド レス : 5EBD 番 地 
入力 パラ メー タ : 表示 し な た ない メモ リ の 番地 を HH し レジ スタ 
に セッ ト 
出力 パラ メー タ : な し 
機能 : HL レジ スタ で 示さ れる 番地 の 内 容 (バイ ナリ ) を 
画面 に 表示 し ます . 


日 コー ド 変 換 (HEX-BIN) 


アド レス : 5EA0 番 地 
入力 パラ メー タ : DE レジ スタ に HEX コ ー ド 


ンー 


・ コ ー ド 
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出力 パラ メー タ : Acc に バイ ナリ ・ コ ー ド 
機能 : DE レジ スタ に セッ ト さ れ て いる HEX コ ー ド を バ 
イナ リ ・ コ ー ド に 変換 し Acc に セッ ト し ます . 


コー ド 変 換 (BIN~HEX ) 


アド レス : 5E83 番 地 

入力 パラ メー タ : Acc に バイ ナリ ・ コ ー ド 

出力 パラ メー タ : DE レジ スタ に HEX コ ー ド 

機能 : Acc に セッ ト さ れ て いる バイ ナリ ・ コ ー ド を HEX 
コー ド に 変換 し ,。 DE レジ スタ に セッ ト し まず 。 


アド レス : 5E39 番 地 

入力 パラ メー タ : Acc に コー ド 

出力 パラ メー タ :“C/ 三 1 叶 NOT 

機能 : Acc の コー ド を チェ ッ ク し て , それ が HEX コ ー ド か 
どう か チェ ッ ク し , その 結果 が キャ リー フラ グ に セ 
ッ ト さ れ ま す . 

玉 ポ 玉 
以上 が 、 モ ニタ ・ ブ ログ ラム の 中 の サ プ ブルー チン の 1 部 
で す が , 次 に モニ タ が 使用 し て いる N-BASIC イ ンタ ー フ 
リタ の サ プ ブルー チン を 説明 し ます . 


1 1 文字 画面 表示 


アド レス : 257 番 地 

入力 パラ メー タ : Acc に 出力 する 廊 字 コー ド 

出力 パラ メー タ : な し 

機能 : Acc に セッ ト さ れ て いる コー ド に 対応 する キャ ラク 
タ を 画面 に 表示 し ます . 





この サブ ルーチン で 表示 きれ る 女池 の 位置 は , 現在 の カ 
ー ソ ル の ある 位置 に 行なわ れ , カー ソル は 次 に 進み ます . 

PC- 8001 の キャ ラク タ ・ コ ー ド は 表 1 の よう に な っ て い 
事 入 。 

この サ プ ブルー チン を 使用 せ ず に , 直接 メモ リ に スト ア す 
る 場合 は 、 現在 の 画面 が 80 廊 字 or40 婦 字 の どちら に な っ て 
いる か 知る 必要 が あり ます . 

80 交 池 の 場 合 は 、F300 番 地 (V-RAM) か ら 央 番 に スト 
ア す れ ば いい の で す が ., 40 女 字 の 場合 は F 300 番地 の 次 
に F 302 番地 と いっ た 内 合 に 1 つ お き に な る か ら で す . 

いま の 画面 の 状 能 は , E A65 番 地 の 内 容 を チェ ッ ク す れ 
ば わか り ま す . 


アド レス : F75 番 地 
入力 パラメータ : な し 
出力 パラ メー タ : Acc に 廊 字 コー ド 
機能 : キー が 入力 され れ ば Acc に 女 字 コー ド が セッ ト きれ 
で ひみ ー ジ し ます 
18 SsToP キ ー チ ェ ッ ク 


アド レス : CF 1 番地 

入力 パラ メー タ : な し 

出力 バ パラメータ: いび C/ー1 叶 STOP KEY ON 

機能 : [STOP| キー が 押さ れ て いる か どう か を チェ ッ ク し , 
押さ きれ て いれ ば ,. キャ リー フラ グ が セッ ト さ れ ま す . 
押さ れ て いな けれ ば , キャ リー フラ グ = テ 0 で リタ 
ジ し まず 。 





人 47 


表 1 PC-8001 キャ ラク タ ・ コ ー ド 表 0 も ak リッ クス 


















































Mell 9 と ea 2 X 
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IN8 


1]4 カーン ル 表 示 IN9 


アド レス : BE 2 番地 
入力 パラ メー タ : 
出力 パラ メー タ : な し 

機能 : カー ソル の 表示 を 行ない ます . 


(イン プッ ト ・ ア ドレ ス ) 


























リス ト 1 プリ ンタ 1 文字 出力 サ プ ブルー チン 

j カー ン ル の 消去 

を 語 人 0: き 中 時 ポー IS 

入力 パラ メー タ : な し AND 1 

出力 パラ メー タ : な し は MS LPOT1 Ready? 

機能 : カー ソル の 消去 OUT 10H、A デー タ ・ セ ッ ト 

PUSH AF 

| キン 9 生 

アド レス :F7B 番 地 0 A スト ロー ジ : 注 うみ ト 

入力 パラ メー タ : な し OUT 10H,A スト ロー フ ・ リ モット 

出力 パラ メー タ :^C/ 三 0 中 キーON 中 Acc 王 文字 コー ド 0 Ra 4 

機能 : キー 入力 を チェ ッ ク し , キー が 入力 され て いれ ば 。, RET 

キャ リー フラ ラグ を リセ ッ ド し , Acc に 区 字 コ ー ド を 8 


セグ ゲド で り 必 圭 e ま す 、 


る 参考 ま て に 











画面 に 女 字 を 連続 し て 表示 する 場合 は ,、 カー ソル を 消し ] 
で か ら 行 な っ だ た 方 が 速 ぐ な り ま す .。 評 人 陶 で みて で ぐだ きき 。 本 たか KEN SuSE 
以上 で , 使え を る サブ ルー チン は 終わ り で す が 。 物足りな 先ほど の サブ ルー チン を 使用 し な いで , キー 入力 プ ブログ 
い 方 が 多い と 思う の で , 画面 の 初期 設定 、 プ リン タ の 制御 ラム を 作る 場合 、 IN 命令 で 行なう こと が で きま す が , その 
な どの 例 に つい て 説明 し た いと 思い ます . と き の ア ドレ ス は 0 一 9 で 図 1 に 示す よう に 対応 し て いま 
す . 


キー が 押さ れ て いれ ば , それ に 対応 し た ビッ ト が “0? 
に な りり ま す 。 
また ,、 チャ タリ ング ・ ウ ェ イ ト 時 間 は 5 一 8ms で いい み 
だ MS2 の す "。 


刀 プリ ンタ 出力 


リス ト 1 に 示す プロ グラ ム 例 を 参考 に し て くだ さい . 
出力 ボー ト を 制御 する 場合 、 ボ ポート が いろ ん な 制御 に 使 
用 され て いる 関係 上 , ボー ト の 状態 を 々 モリ に スト ア し て 
im 5 ー 示 まい た お く 必 要 が あり 、 その 内 容 に 対し て 、OR. AND し た 値 








る 


1O 


リス ト 2 画面 の 初期 設定 リス ト 3 カー ン ソン ル の 表示 









A.(0EA66H) 76.543210 
ll 肖 司 是 加 








OR 3 THTH 

0UT 30H,A カラ ー 40/80 JR NZ,$ー4 

LD (0EA66H),A 2 で OS IN A.40H VRTC チェ ッ ク 
LD A,(0EA67H) 5 AND 20H 

OR 8 JR Z,.$ 一 4 


QUOT |40HLA 80 字 で 自 黒 の 場合 


LD (0EA67BD),A LD AG ニー ニーー か ー ツ ル を 消す 場合 は 80H 




















ee 人 ! スト ッ プ DISPLAY CA 
iLD A,80H LD 婦 字 数 一 2 
iOUT |68H,A 0UT 
iLD A,0 
iOUT | 64H,A V-RAM LD A(YYBーーーー キ ーー 一 行 数 一 1 
iLD A.0F3H アド レス (F300) セ ッ ト OUT | 50H,A 
iOUT |64H,A 
0 AD ジー |) やけ の 場合 0B7H 
iOUT |65H.A OUT 40H,A で プリ ンタ へ の スト ロー ブ の セッ ト / リ モッ ト を 


1 カウ ンタ (20 行 ) セ ッ ト 

iLD PS 細 3 行 な を ば 1 女 字 プ リン ト す る こと が で きま す . 
iOUT 65H,A 25 行 の 場合 8BH 

( 記 画面 の 初期 設定 


iLD AO トル) 


7 二 Sn リス ト 2 に 示す プロ グラ ム 例 を 参照 し て くだ さい . 

iLD | A@ 了 ーー 上 ーー ーー 25 生 の 場合 98H 面 画 の 初期 設定 を 行なう に は , ポー ト の 設定 、DMA コ 
iOUT 150H.A ント ロー ラ の 設定 CRT コ ント ロー ラ の 設定 な ど を 行 な 
iLD A69Dーーーーー ト ーー 25 行 の 場合 67H いま す . 

UDG 細か い 説 明 は し ませ ん が , 例 の と お り 行 な を ば 初期 設定 
iLD A⑩BEHーーーー レ ーー 一 ->25 行 の 場合 0DEH が で きま す 


iOUT 50H,A 


iLD (9 時 ニー ニー ニニ ーー 、 カ ラー の 地 人 5 4 カー ソン ル の 表示 


iOUT HAT 
iLD A,43HH 完 に 説明 し た 、 イ ンタ ー プ リタ の カー ソル 表示 サブ ルー 
iOCT 151H,A チン は , カー ソル を 表示 する だ け で す が , ここ で は ポジ シ 
ョ ン を 指定 する 場合 の CRT コ ント ロー ラ の 制御 例 に つい 
iLD A.0CHH ] 1 

! > レア て 説明 し ます . 

OUT |esHLA 5 ポー ズル し 


CRT コ ント ロー ラ の VRTC を チェ ッ ク し , コマ ンド ・ 
モット, パラ メー タ ・ モ セッ ト を 行なう こと に よっ て , 指定 


iLD A20H | 

iOUT 51H、A | スタ ー ト DISPLAY し た 位置 に カー ソル を 表示 で きま す . 

! また カー ソル を 消す 場合 8 同様 に 行ない ます が , この 
IN A、40 有 H 場合 の ボ ポジション は 別に 意味 を 持ち ませ ん . 

iAND 20H それ で は , リス ト 3 を 参考 に し て くだ さい . 

JR NZ -4 ) 

*JN A.40 理 VRTC チェ ッ ク 


iAND 20H 


JR Z.$-】 最後 に 


條 riE RMA 遇 6908HDA コ ッ ト ウ ロー) 全 回 の 説明 は 例 な の で , も っ と 良い 使い 方 が ある か も 
ドーーー イ OCT 50H.51H は CRT コ ント ロー ラ わか り ま せん が 。, 参考 に し て いた だ けれ ば 幸い で す . 








IN A.10H ーー 
AND |20H emi 

陸生 1 NZ.$ 1 5 ン 
LD A.(0EA67H) 





AND 0F7H 
OUFT 10H. ふ 
IL1) (0EA67H),A 











を ホー ド に ゼット し て 制 角 し ます . 











E A66 番 地 ->30H の 出力 ホー ト の 内 容 
E A67 番 地 -40H の 出力 ホー ト の 内 容 

















フリ ンタ の 場合 、 IN 4A,40H で Ready を チェ ッ ク し 、Re 
advy で あれ ば 、OUT 10H.A で デー タ を セ モット し , その 後 

















1 
お た し も が Cu いし 


人 49 

















@ 長 谷 正博 @ 











モニ タ ・ サ ブル ー テ チン 


の 利用 法 

















PC-8001 は モニ タ ・ プ ログ ラム が 公 
開 さ れ て いな い の で , 機械 語 だ け の プ 
ログ ラム を 作る と き , 特に 画面 制御 が 
難し く , どう し て も BASIC と の 混用 
を し て し まい 注 立 。 

そこ で , モニ タ ・ プ ログ ラム の 解読 
を 進め , 利用 で きそう な サブ プル ー チ ン 
な ど を リス ト ・ ア ッ プ し て みた の で 
この 利用 方 法 を 考え て みた いと 思い ま 
2 

な お , ルー チン の ラベ ル は 適当 に 付 
けた も の で す . 


| モニ タ 関 係 


BASIC か ら AON コマ ンド で 機械 語 
モニ タ に 移り ます . ここ で 利用 で き そ 
うな ルー チン を 示し ます . 
| | MONJP $ 5C66 

(JUMP TO MONITOR) 

G コマ ンド で 機械 語 プ ログ ラム を 走ら 
せる こと は で きま す が , これ を スト ッ プ 
させ る 適当 な 命令 が あり ませ ん . HLT 


を 使っ た の で は 後 の 操作 が や っ か いで す . 


そこ で , プロ グラ ム の 終了 は この ア 
ドレ ス に ジャ ンプ させ れ ば 再び モニ タ 
の コマ ンド 受け 付け 状態 に な る の で 使 
利 で す . 

さら に ,。 $ 5C5E で は 2? を 表示 し 
て モニ タ に 移る の で , エラ ー を 検出 し 
て 戻る 場合 な ど に 利用 で きま す . 


CTR は 日 
(CONTROL B, 1B) 





LD HL, $EFE34 
JP $41FEA 











この 操作 で は 画面 が クリ ア さ れ な い 
まま OK 表示 を し ます . BACIC に 戻 
っ た わけ で す . 

ここ で , 5 コマ ンド の 操作 に つい て 


0 


AI 


1 つ . アク セス する アド レス を 1 番地 
戻す に は , 説明 和書 で は [年 [ 面 | を 押す こと 
に な っ て いま す が , これ を [INS/DEL | キ 
ー で も 行 な そ を ます. 片手 で で きる の で 
便利 で す . 

余談 に な り ま す が BASIC 中 で [ 舎 [ ロ 



































を 行なえ ば 1 婦 字 消す こと が で きま す . 


も う 1 つ 余談 で す が , 前 の @ コ マン 
ド で アド レス を 入力 し な いま ま キ ャ リッ 
ジ ・ リ ター ン す る と , HL レジ スタ に $0000 
が 入っ た まま で , こ れ が ジャ ンプ ・ ア ド 
レス と な り , 大 変 な こと に な り ま す . 
注意 し まし ょ う . 


NEW 
(BASIC NEW) 





XOR A 
JP $3DEO 











人 UN $3DF4 
(BASIC RUN) 





*G3DpF 4 (MON よ り ) 
また は JP $3DFE4 











これ で 機械 語 か ら BASIC プロ グラ 
ム が 直接 走り ます . 自動 化 の 手 掛 り に 
な る の で は な いで し ょ うか . 


名 LIST $570C 
(BASIC LIST) 





*6G570C 
また は JP $570C 











機械 語 か ら BASIC の リス ト を 出力 


し ます が , BASIC に 変わ っ て し まい ます . 


六 ディ スプ レイ 関係 


| | CONSOL 0884 
(BASIC CONSOLE) 


BASIC の CONSOLE ダイ レク ト ・ 
コマ ンド が 使え る よう に し た も の で す . 

まず , HL レジ スタ に CONSOLE の 
ステ イタ ス ・ ポ イン タ を 設定 し ます . 
ステ イタ ス ・ バ パ バッファ に は 次 の よう に 
記入 し て お きま す . 





CONBUE 302C32352C312C3100 








これ は CONSOLE 0,25,1,1 と 
設定 し た こと に な り ま す . 終わ り の “00? 
を 必ず 入れ て くだ さい . 





LD HL, CONBUF 
CALL CONSOL 





省略 型 も 試み て くだ さい . 


し 〕 WIDTH $0843 
(BASIC WIDTH) 


CONSOL と 同じ よう に , ステ イタ ス ・ 
バッ ファ を 作り ます .【 例 】38302C3235 
00= WIDTH80, 25 





LD HL, WIDBUF 
CALL WIDT 提 





この WIDTH 設定 法 に は 縦 と 横 を 別々 
に モッ ト す る 方 法 も あり ます . 





HWSET $09A3 








LD 4, HHW 
CALL HWSET 





A レジ スタ の 値 は HW4 0 の と き $ 
28, HW80 の と き $50 で す . 





VWSET $09D7 








LD A, VW 
CALL VWSE〒 











A レ ジス タ の 値 は VW20 の と き $ 
14, HW2 5 の と き $1 9 で す . 


1 COLOR $0951 
(BASIC COLOR) 


前 記 冒 , 侵 と 向 じ よう に 設定 し ます 
(【 例 】 332C33322C3000). 





LD HL, COLBUFE 
CALL COLO 民 








以上 の よう な 方 法 で LOCATE も で 
きま す . 


| FKYDSP $07C9 
(FUNCTION KEY DISPLAY) 


ファ ンク ショ ン ・ キ ー の 表示 を 行ない 
ます . A レ ジス タ に は 通常 Y00* ま た は 
*05? を 記入 し まあ 300 < で Ss は Uez5 ま で 。 
*05? で は 6 一 10 の キー を 表示 し ます . 

*01? と 入れ る と 2 一 6 を 表示 し ます . 

この ルー デー チ ナチ ジ は ファ ンク ショ ツン" キー 
に 別 の 表示 を させ る こと が 可能 で ある 
こと を 示し , 表 1 の キー アド レス か ら 
キャ ラク タ ・ コ ー ド を 記入 し て お きま す . 





LDA, $00($05) | 
CALL FKYDSP | 








1 FKYOFF $0B2E 
(FKEY OFF) 








CALL FKYOEFEF 








この 方 法 で は キー 表示 を 消し ます が , 
スク ロー ル 範 囲 は 元 の まま で す . 


6 CUSADS $03F3 
(CURSOR ADDRESS) 
A レジ スタ に 指定 し た カー ソル 位置 
を 実際 の アド レス に 直し ます . 結果 は 
DE レジ スタ で す . 
CALL CUSADS | 








表 1 ファ ンク ショ ン ・ キ ー と タイ マ 
関係 の アド レス と デー タ 


SECOND 
MINUTE 
HH HOUR 
DD DAY 
MT MT _MONTH 
2 YEAR 




















ファ ンク ショ ン ・ キ ー 1 


























らら | の |1 コ | の | | よ 1 の 1 いい 





m 
ご 








プ CLRLIN $0451 
(CLEAR LINE) 

DE レジ スタ に 消去 する 行 の 先頭 ア 
ドレ ス を 記入 し ます . 次 の 例 は 4 行 消 
ます る 場合 で す . 


| LD A, $04 


| LD DE,、$FC60 
CLRLP:CALL CLRLIN 
DEC A 
JPNZ CLRLP 











$ CR & LF $5FCA 
(RETURN & LINE FEED) 
CR と LEF を 1 つ に し た ルー チン で す . 
ポ 示 ポ 
ここ か ら は 前 記 の ルー チン な ど を 利 
用 し て 作っ た 自作 の ルー チン で す . 


|) FKYINT 
(FKEY INITTIALIZE) 


ファ ンク ショ ン ・ キ ー に 別 の キャ ラク 
タ を 設定 し た 場合 に , これ を 元 の BAS 
IC 時 の 状態 に 戻し ます . 機械 語 プ ログ 
ラム 終了 直前 な ど に 利用 で きま す . 





LD HL, $3A81 
LD DE, $EA7C 
LD BC, $0050 
LDIR 

XOR A 

CALL FKYDSP 
RET 











1 【 | SQSET 
(SCROLL SET) 
現在 の カー ソル 位置 か ら 下 を スク ロ 
ー ル 範囲 に 設定 し ます . スク ロー ル が 
行なわ れ て も , ある 表示 を 残し て お き 
だ た いと き に 利用 で きま す . 
| CALL CR & LEF 
LD HL, $EA63 
LD A,L 
| LD ($EA5E),A 





素 2 カラ ー 指 定 と コー ド の 関係 


還 に 2 に に 
| キャ ラク タ | グラ フィ ッ ク 











バイ オレ ッ ト 


。 守 








パー ル ・ ブ ルー 





イ エロ ー 


ホワイト 














| の | 品 | 選 | の 1 ピ | の 





』O 


LD B,A 

LD A, ($EA62) 
SUB B 

LD ($EA5D),A 
RET 





ウイ ンド ・ ス クロ ー ル も 考え て くだ さい . 


| | | | SQCLR 
(SCROLL CLEAR) 


モニ タ ・ プ ログ ラム の ホー ム ・ ク リア 
は 全 画 面 を 消去 し て し まい , 残し て お 
きた い 表 示 も 消 を えて し まい ます . この 
プロ グラ ム は スク ロー ル 範 囲 の み を 消 
誠人 じ ほ あ 。 





LD A, $EA5E 

PUSH AF 

DCR A 

CALL CUSADS 

POP AF 

LD A, ($EA62) 

SUB B 

LD B、A 
CLRLP:CALL CLRLIN 

DEC A 

JPNZ CLRLP 

LD A, $0B 

CALL CONOUT($0257) 

RET 











ウイ ンド ・ ス クロー ル の 場合 は 多少 
の 変更 が 必要 で す . 


カラ ー 化 の ヒン ト 


本 誌 に も PC-8001 に よる 色 を ほど こ 
し た 機械 語 ゲ ー ム (BASIC 混用 ) が 発 
表 さ きれ て いま す が , 機械 語 で 個々 の 表 
示 物 に 固有 の 色 を 条 け , これ を 移動 き 
せる と な る と 相当 に 次 し いよ う で す . 

ここ で , 機械 語 に よる カラ ー 化 の ヒ 
ント に な る プロ グラ ム 例 を 紹介 し ます . 

画面 の 位置 設定 は カー ソル で 行ない 
ます が , 実際 の 現 カ ー ソ ル 位 置 と は 関 
係 あ り ま せん . この 方 法 で は カラ ー 時 
に 横幅 が 1 つ 減 り , 夫 端 の 縦 1 列 が 使 
えま せん が , 横幅 の 設定 (WIDTH) に 
関係 な く 利用 で きま す . 





LD HL,. $0101 カー ソル 法 に よる 画 


PUSH HL 面 の 位置 の 例 
LD A, $78 カラ ー 指 定 の -- 例 
CALL ATTRIB ATTRIB $04FS 
POP HL 


51 


,0 


CALL CUSADS 実際 の アド レス に 変換 
LD A, $35 

LD (HL), A 
JP MONIJP 


表示 キャ ラク タ 例 
キャ ラク タ 表 示 


モニ タ に 戻る 





この 例 で は カー ソル 位置 (01, 1) を 
業 色 で グラ フィ ォ ィ ッ み と し も し 。 コー ド 秋 
35 の グラ フィ ッ ク ・ キ ャ ラク タ を 表示 し 
ます . カラ ー 指 定 を $68 に すれ ば キ 
ャ ラク タ で 5 と 同色 で 表示 し ます . カ 
ラー の 指定 は 表 2 を 参考 に し て くだ さ 
MY。 

この カラ ー コ ー ド の 下位 桁 が 8 以外 
の と き に も 種々 な 表示 が され ます が , 


これ に つい て は まだ 何 も 調べ て いま せん . 


そ の 他 の サブ ルー チン 


| | AZLCNV $5FC1 
(AーZ LARGE CONVERT) 


A 一 まで の 英 小娘 字 (61 一 7A) 
大 婦 字 (41 一 5A) に 変換 し ます . A レ ジ 
スタ が 入出 力 に な っ て いま す . 


レ 〕 HEXCHK $5E39 
(HEX. CHECK) 


16 進 に 使用 きれ る キャ ラク タ か どう 
か 調べ ます . それ 以外 の も の は キャ リ 
ー フ ラグ が 設定 され ます . 


S? BINCV4 $5E4B 
(BINARY CONVERT 4) 


4 桁 ま で の 16 進 ASCII コー ド を バイ 
ナリ ・ コ ー ド に 変換 し ます . A レ ジス タ 
が 入力 に な り ま す が 1 度 に 1 桁 の 変換 
し か な され な い の で , ルー プ で 回 し , 
セパ レー タ で 完了 了 じ ます .。 以下 に , 前 


述 の 1.2 を 利用 し た 変換 方 法 を が し ます . 





LD DE ASCBUF 
LD HL, $0000 


BINLP : LD A, (DE) 
INC DE 
CALL AZLCNV 
CALL HEXCHK 
JP C, NEXT 
CALL ASBIN4 
JR BINLP 

NEXT: LD BUF, HL 











この ルー チン で は 何 桁 変換 し て も か 
まい ませ ん が , セパ レー タ を 検出 する 
上 直前 の 4 桁 が び 上 レジ スタ に 残り ます 


信 BINCV2 $5E ビ A0 
(BINARY CONVERT 2) 


DE レジ スタ 中 の 2 桁 の ASCII コー 
ド を バイ ナリ ・ コ ー ド に 変換 し ます . 結 
果 は A レ ジス タ に 残り ます . 


5 ASCDP4 $5EC0 
(ASCII CONVERT & DISPLAY 4) 
HL レジ スタ 中 の 4 桁 の バイ ナリ ・ 
コー ド を ASCII コー ド に 変換 し , カ ー 
ソル 位置 か ら 表 示し ます . 


6⑮ ASCDP2 $5EBD 
(ASCICONVERT&DISPLAY 2 


HL レジ スタ を ポイ ンタ と する メモ リ 


の 内 容 を 2 桁 の ASCITI コー ド に 変換 し , 


カー ソル 位置 で 表示 し ます . 


プ SBCHD $5ED3 
(SBC HL, DE) 


HL-DE の 減算 を 行ない ます が , 結 
果 は フラ グ の み で , HL レジ スタ の 値 は 
元 の まま で す . 


PC-8001 は 内 部 に ハー ドウ ェ ア ・ ク 
ロッ ク を 持ち , その 時 刻 , 日付 は TIME 
$, DATES で 読み 書き で きま す が , 


これ ら を 機械 語 で 行なう の が 次 の 3 つ 
の サブ ルー チン で す . 


| | TMREAD $1602 
(TIME READ) 


結果 は 表 1 の アド レス に 入り ます . 

表現 方 法 は 各 1 バ イト で それ ぞ れ 上 位 
格 が x10 の 位 を 示し ます . た と えば ,$ 
A76 が 23 と な っ て いれ ば 23 秒 の 意味 で す . 

YY は 実際 は この クロ ッ ク か ら 読 み 
出さ れ た も の で な く , 初め に セ モッ ト さ 
れ た も の が 残っ て いる だ け で , 1 年 経 
っ て も 繰り 上 が り は し ませ ん . 


し 〕 TMSET $1663 
(TIME SET) 


表 1 の 各 ア ドレ ス に 時 刻 お よび 日 付 
(YY も ) を モット し て この ルー チン を 
呼び ます . 


S? TMCLR 164C 
(TIME CLEAR) 


タイ マ を 初期 状 遂 に し ます (00:00: 
00 01/01/79). こ れ ら の ルー チン は シ 
ー ケ ン シ ャ ル な コン トロ ー ル を 行なう 
プロ グラ ム に 活用 で きる と 思い ます . 


お わり に 


これ ら 紹 介し た ルー チン は DISK B 
ASIC で は 動作 確認 を し て いな い の で , 
ご 了承 願い ます . これ ら は ほん の - 部 
の 解読 で し か あり ませ ん . まだ まだ 便 
利 な ルー チン が ある と 思い ます . 


3 参考 文献 

1) 相田 廃 男 :^BASIC に よる 逆 ア 
セン プラ”, IL/O, "80 年 2 月 号 

2) 石井 晴 正 :^PC-8001 サ ー チ ダン 
ププ ログ ラム ”, 1/0, "80 年 3 月 号 

3) 田中 二郎 : “機械 語 開発 ツー ル ?, 
ASCII, 1979/12 

4) N-BASIC 入門 、 アス キー ラボ ラ 
トリ ー ズ 
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高校 に 入っ て か ら マ イコ ン を 知り , 1 ヶ月 ほど 前 に PC 
-8001 を 手 に 入れ まし た . そし て , 1I/O に 載っ て いる ゲー ム 
を か た っ ぱし か ら 入 れ ま し た . し か し , PC の モニ タ は 機 
能 が 少な く , アド レス の 間違い すら , も う 一 度 入 れ 直 し と 
いっ た も の て で て 大変 で し た . 

その うち , ホー ム ・ キ ー の IAl 一 [Fl に 左手 を 置き , 右手 で 
ダン プ ・ リ スト を 押さ えな が ら [QI 一 [ 引 ま で の 数 字 を テン キ 
ー で 入れ る こと に 気づき まし た が , や は り 間 違い が 多く て 
デバ ッ グ に 苦し み ま し た . 

そこ で 思い つい た の が , この 『Monitor-2』( 以 後 , M 2 ) 
で す . この M 2 の 利点 は , 

テン キー を 16 進 キー と し て 使え る . 

@ ダ ンプ & ス クリ ー ン ・ エ ディ ッ ト が で きる . 

チェ ッ ク ・ サ ム 機 能 が 付い て いる . 
な ど で す . まず M 2 を 走ら せ , マシ ン 語 を 片手 で 入力 ( キ 
ー イ ン は 倍速 に な り ま す ) し て か ら , チェ ッ ク ・ サ ム を 調 
べ , スク リー ン ・ エ ディ タ で デバ ッ グ を し ます . その 後 , 
BASIC プ ログ ラム を 入れ る よう に すれ ば , 1 人 で も 数 時 間 
で ゲー ム が 走る よう に な り ま す 


表 2 の 使い 方 


まお 議 り 友介 8 見 GE ニニ ジ 人 ジ KK く I7SSSICD 証 人 で ベジ 
が いな いこ と を 確か め て くだ さい . そし て RUN し ます . 
する と 




















? WIDTH40, 25( 1 ) 80, 25( 2 ) 


Ln 
に 





と 開い て くる の で , 国 か [2| を 入力 し て [RETURN| キー を 提 











し て くだ さい . また , [RETI だ け で は 80, 25 に 設定 され ます . 




















次 に , 

に 】W 休 全 jp) に 】 コ | 時 9 4) (=1 コ e1。 語 に (| 

( 3 ) 
と 聞い て くる の で , [ 症 , [| [3 の いずれ か を 入力 し て くだ 
3 


圏 SET MEMORY の 場合 
まず , START ニ と 聞い て くる の で , 16 進 数 で アド レス 


を 入れ て くだ さい . この と き , 後 の 4 桁 が 有効 と な り ま す . 


これ は , 他 の モー ド で も 同じ で す . この と き は INRETT キ ー が 


図 1 SETMEM 時 の 16 進 キー( 還 証 部 は 無効 ) 








図 2 [スペ ー ス ] キ ー で デリ ー ト し た と ころ 


9 月 Eo Lo よー ター に < Ro 6) 





図 3 キー 入力 後に デー タ の 誤 ま り を 見 つけ た と き 
の 

pXoiokoHRBioioEioHl oiok ニ Ko 妥 RIoIeo ニ (ojrEo【o) ビ ダ .:) 

DO0O4 : ご OO=02O00= ニ 2100=CF_00=00 


DOO8: ご OO=03、.00=22..00=FFi00= テ 07 


DOOC: こ ご 00= 
\ いま , キー イン し て いる と ころ 





必要 で す . この 状態 で は テン キー は まだ 16 進 キー と し て 使 
年 表 起 。 

する と , 画面 が 1 度 ク リア され て か ら 左 上 に アド レス が 
表示 され て , 後 は PC の モニ タ と 同じ 要領 で す . そし て , 
この SETMEM の と き に 限り テン キー は 16 進 キー と 変わ り 
ます ( 図 1) 

プロ グラ ム の 上 で は INKEY で CHR を 判別 し て いる の 
で , ホー ム ・ キ ー の [一 [は 使え ず , 同じ し キャラクタ は 
テン キー の 場合 と 同じ 現象 を 起 し ます . 

また, オー ト ・ リ ピー ト は きか な い の で , 同じ 文字 が 総 
く と き は [RI キー を 押し て くだ さい .[ 民 を 押す 前 に 押し た キ 
ー の オー ト ・ リ ピー ト と な り ま す (ウッ ーApple II みたい 
だ ぞ ー). デリ ー ト は [スペ ー ス ] キー で す ( 図 2). 

この と き 画 面 の 左上 まで きた と き は , 画面 は ダウ ン ・ ス 
クロ ー ル され , 1 番 上 の 行 に その 前 の 行 が 現われ ます . ま 
だ た , アド レス を 進め た いと き は [キー を 押す と 進み ます . 
この と き , アド レス の 内 容 は 元 の 状態 で す . 
[スペ ー ス | や [5] は 共に [キー で リピ ー ト な きき ます . ま 














&O 














た 。 [キー は どの 場合 も 共通 で , 写真 1 セッ ト ・ メ モリ ・ コ マン ド の 例 
ee (途中 て { 加 キー を 使用 ) 
SET( 1 )or DISPLAY( 2 )or CHECK SDM( 3 ) 


の 初期 状態 に な り ま す . 

また , 図 3 の よう な と き , の 場所 に バグ を 見 つけ た と 
し ます . その と き は [CGI キー を 押し て くだ さい . する と , そ 
の アデ アド レス が 記憶 され ます . 
スペ ー ス | キー を 押し て , 次 に [ 還 キ ー を 押し な が ら , 〆 
の 場所 へ カー ソル ( ? ) を 持っ て 行き , 書き 直し て か ら [S] キ 
ー を 押し ます . 

ここ で , 国 キー を 押し て いる と , [C] キ ー を 押し た と ころ 
で るみ カ デン ルル が 下 ま り 較 ビーKIE ビ 選出 の の 3 得 ま 2 
キー イン を 続け て くだ さい . 
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田 DISPLAY MEMORY の 場合 プレ イ ・ メ モリ ・ コ マン ド の 例 
に = = ニュ > と リー ーー ジン 地 天 写真 2 ディ ス ッ 0 ン 
まず , START= と 表示 し , 次 に END= テ と 表示 し て くる (エディ タ ・ モ ー ド で カー ン ル を 動か し て いる と ころ ) 


の で , それ ぞ れ 16 進 数 で 入力 し て くだ さい (や は り 後 の 4 
桁 が 有効 ) END ア ドレ ス を 入力 し 終わ っ て [RET| キ ー を 
押す と , アド レス が 表示 され て 行き ます (BASIC の た め , 
少し 遅い の で す が 416e り 

この と まき, [スペ ー ス | キー を 押せ ば カー ソル は 止ま り ま す . 
そし て 直し た いと ころ が あれ ばい ば , [回 キー で カー ソル を 
コン トロ ー ル し て 直し た いと ころ を 直し た 後に 限 ET キー を 
押し て くだ さい . LINEINPUT 文 で 行なっ て いま すか ら , 改 
行 ご と に [RETI キ ー を 押し て くだ さい . 

その と き , 次 の こと に 注意 し て くだ さい . 
⑩ ア ドレ ス を 変え る こと は で きま す . 
も と も と スペ ー ス の ある と ころ は , 何 を 書い て も 関係 あ 

り ま せん . 
も と も と 数 (0 一 FE) の と ころ に , スペ ー ス や その 他 の 

文字 が ある と 0 と みな され ます . UI 写真 3 写真 2 の 一 部 を 修正 する 
スク リー ン ・ エ ディ タ か ら 抜 け 出す と き は , 1 度 [RETI 
を 押し て くだ さい . その 後記 キ ー を 押す と , また ダン プ SET<4> or PTSPLAV< ろ > or CHECK SUHc3> っ 
が 続い て 行き ます (カー ソル を 止め た と ころ か ら , キャ リ 人 
ウン ジリ クン を が VSE の OS デ 名 さい) 記 ま 
た だ, その 行 が 全部 出 て か ら , 止め て くだ さい . 

以上 , 慣れ れ ば 簡単 な も の で す . この 場合 も [ 妃 キ ー で 初 
期 状 態 に な り ま す . 終わ り ま で 行く と, EDITER ? (y/n) 
と 聞い て くる の で , [を 押せ ば エディ タ ・ モ ー ド , [大 を 押 
せ ば 初期 状態 に な り ま す . 
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ロワ ワウ ワ ワ ワウ ワウ は レト 


画 CHECK SUM の 場合 

これ は まず , START=, END=, BYTEー と 閉 い て く 
る の で , 前 者 の 2 つ は 16 進 数 で , BYTE は 10 進 数 で 入力 し 
CM さい 。 * お る と 。 チェック サム が 始ま の まお 
スペ ー ス |] キー は [ESc] キ ー の 代わ り と な り ま す . ここ で 写真 4 チェ ッ ク ・ サ ム ・ コ マン ド の 例 
も , IZ キ ー で 初期 状態 に 戻り ます . 


終わ り に 一 言 


書き 忘れ まし た が , SET の と きも DISPLAY の と きも 関 
な い キ ー を 押し た と き は , 音 が 出 ま す . 

プロ グラ ム は 。 ダウ シュ スク ロー ル 以 外 は すべ て BASIC 
で 書か れ て いて , これ と いっ た テク ニッ ク も 使っ て いま せ 
ん が , な か な か 役に立つ も の で す . 

ぜひ 使っ て みて くだ さい . な お , テー プ 関 係 は モニ タ の 
方 で 行なっ て くだ さい . 
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Monitor-2 プロ グラ ム ・ リ スト 
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中 FEIHT: IHFUT" ST 
THPFLT" END= "jiE ま :E ま =ETGHT ま て E ま 3 
INPUT" BYTE= "5E 

T ト 


5 まう jiE=MURL h"+E ま うぅ 
TEFEI FRTIHTRTGHT ま "EHP+HE 誠 





STUE5 





13。 邊 うま リー "ERKTGHT ま "EEU+HE 計 まで エ ピー1 3 。 時 












= 同 TU ビー1 3 ミロ = ロ TFPEE ド 1 エ +T3I TFTHEE" ま く で テリ"THEHGUSLHEEBEE HESTTELSENESTTIFRTN 
ュ 引 35 NEST 





ェ "THEHFETHT: BHTH1 4 は gELI 
呈 玉 玉 玉 玉 主 キキ HEHIHE DRT ロ !! 1 





:FHRT=EHSEHETHSHSEPEI REPDH ま : 正 
デュ FE、 で 1 . さ F 。 FE : 昌 1 。 生 四 。 HE。 ED EE: に ヨ 
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ゅ パ 
に 





ニン コー テン プア いい 





ーー 1 バス セル フ ・ ア セン 


PC-8001 の 外部 に 計測 器 を 接続 し て イン ター フェ イス を 
作っ た り , BASIC プロ グラ ム を も っ と 高速 で 走ら せよ う 
と する と , どう し て も 機 械 語 で プロ グラ ム を 組ま な けれ ば 
な り ま せん . 一 応 , 機械 語 モ ニタ が 本 体 に 内 蔵 さ れ て いま 
す が , ご く 小 さい プロ グラ ム な ら ま だ し も , 多少 プロ グラ 
ム が 大 きく な る と いち いち ハン ド ・ ア セン プル する に も 限 
界 が あり ます . 

現在 , ROM や フロ ッッ ピー ディスク ・ ベ ー ス で PC-8001 
用 の アセ ンプ ブラ が 出回っ て いる よう で す . わざ わざ 高い 金 
を か け な く て も アセ ンプ ラ 程 度 な ら プ ログ ラム を 組ん で R 
AM 上 で 動か せる だ ろう と , アセ ンプ ラ ・ プ ログ ラム を 作 
り 始 め ま し た . 

約 1 ヵ月 か か っ て 完全 と まで は いか な いま で も , 小さ い 
プロ グラ ム ( 約 1.5K Byte) な ら 一 応 実用 に な り ま す . 

1 パス セル フ ・ ア セン プラ 十 逆 ア セン プラ (これ は ずっ と 
前 に 作っ た も の ) プロ グラ ム ( 略 し て PC-ASM) を 完成 
し た の て 発表 し ます . 





この PC-8001 用 アセ ンプ ブラ ・ プ ログ ラム (以下 PC- A 
SM と 略 す ) は , 正確 に は 1 パス セル フ ・ ア セン プラ と ラ 
ル 付 加 機 能 を 持つ 逆 ア セン プラ と で 構成 され て いま す . 

アセ ンプ ブラ は , Zilog 社 の Z80 ニ モニ ッ ク で 書か れ た ソ 
ー ス ・ プ ログ ラム を キー ボー ド か ら 入 力 す る と , それ に 対 
応 し た 機械 語 を ダイ レク ト に メモ リ に 格納 し ます . また ., 
逆 ア モン プラ は メモ リ 内 に 格納 され て いる 機械 語 を 80 の 
ニモ ニッ ク で CRT ある い は プリ ンタ 上 に 表示 し ます . 

この プロ グラ ム は N-BASIC を 使っ て 書か れ て いて, 16 
K/32K 両 シ ステ ム で 実行 で きる よう 設計 し まし た . プロ 
グラ ム の 大 き さ は 約 9K バイ ト で , 16K シス テム で は RA 
M 領 域 の C0 00HーE3FFH 番 地 ま で を 占有 し ます . 
PC-8001 の モニ タ の ワー キン グ ・ エ リア が EA00H か ら 
始ま る の で , この アセ ンプ ブラ に よっ て 機械 語 に 変換 し た フ 
ログ ラム を 格納 で きる メモ リ 領 域 は E セ 4 00H-ーE9FF 
H ま で の 約 1.5K バイ ト で す . 

16K シス テム で も 実行 で きる よう に し た た め , メモ リ の 
制約 か ら 選 80 の 全 命 令 を アセ ンプ ブル , また は 逆 ア モン プル 
する こと が で きま せん で し た . アモ ンプ ブル で きる 命令 を 機 








プラ / 遂 アセ ン ソフ ラー 
河村 秀明 


語 と ニモ ニッ ク に 対応 させ て 表 1, 表 2 に 示し ます . ま 
た, 逆 ア モン ブル の み で きる 命令 を 同様 に 表 3 に 示し ます . 

表 か ら も わか る よう に , この プロ グラ ム て で て 処理 で きる 範 
囲 は 8080 の 持つ 全 命 令 (ニモ ニッ ク は Z80 用 に 書く 必要 が 
あり ます ) 二 B IT, SET, RES, な どの 命令 で す . 

イン デック ス ・ レ ジス タ を 使う 命令 は アセ ンプ ブラ , 逆 
アモ セン プラ 共に で きま せん . 多少 不備 か も し れ ま せん が , 
16K シ ステ ム で は 全 命 令 の アセ ンプ ブル, 逆 ア モン プル を B 
ASIC で 実行 する の は 無理 と 思わ れ ま す . 

し か し , まだ 多少 メモ リ の 余裕 が ある の で , ユー ザー の 
ワー クエ リア を 減ら さ ず に 逆 ア セン ブラ だ け で も 全 命 令 実 
行 さ せる こと は 可能 だ と 思い ます . 6 章 で プロ グラ ム の 説 
明 を し て いま す . 余力 の ある 方 は 改良 し て みて くだ さい . 





ECS が PROKY2P2ETEcROOE225 


アセ ン プラ の 仕様 


11 ソー ス ・ プロ グラ ム の フォ ー マ 


ソー ス ・ プ ログ ラム は ラベ ル ・ フ ィ ー ル ド ,。 オペ レー シ 
ョ ン ・ フ ィ ー ル ド , オペラ ンド ・ フ ィ ー ル ド で 構成 され ま 
す ( 図 1). それ ぞ れ の フィ ー ル ド の 区 切り は “." (スペ 
デス) で 行ない ます 

また, オペ ラン ド ・ フ ィ ー ル ド は 命令 に よっ て 第 1 オペ 
ラン ド 一 第 8 オペ ラン ド ま で 記述 で き , それ ぞ れ の オペ ラ 
ンド の 区 切り は 『 ,」( コ ンマ ) で 行ない ます . 
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⑩⑯ デア セン プラ の ソー ス ・ プ ログ ラム は キー 














ッ ト 


ボー ド か ら 入 


力 らき アル ファ ベッ ト の 入力 は 大 廊 字 で も 小文字 

で も , 内 癌 1 変換 され 処理 され ます . 

7 Do 命令 HE の オペ ラ 
ンド ・ フ ィ ー ル ド の 文字 列 は 大 廊 字 小娘 字 の 区 別 が 行 な 
お 4 補 ま 3 

と な が る 。 ジー 失 w プ グラ ム の 和久 カワ 


以降 の 説明 で 共通 
ける , 


MD 
プロ グラ ム の 入力 フォ ー マ ッ ト ( 


オー マス ツー ド (お 


@ ZZ80 ソ ー ス ・ プ 
〔【 ラ ベル 〕 略 < 命令 の ニモ ニッ ク > 略 〔 第 1 オペ ラン ド 〕 


回 , レポ ペン ルン 人 8 国 CR | 





@6|1NI の | 


に KJ 上 JE 


LD (BC), 


rpgyA 


表 1 





INC BC 


INC DE 


ニモ ニッ クー 一 機械 語 対応 表 


TNCSP 


LD B, B 


LDD, B 


LD H, B 


LD (HLT), B 





園 LDB,c 


ID D, C 


LD H, C 


LD (HL), C 





 LDB,D 


IDD,D 


LDH, D 


LD (HLT), D 





] LD Bs 


TDD,E 


LD HE 


LD (HL), 





INCB 


INCD 


INC 是 


INC (HLT) 


TLD B, 是 


ID D,H 


LD 馬 , H 


LD (HL), H 





DECB 


DECD 


DEC 是 


DEC (HLT) 


LD BL 


ILDD,L 


LDHL 


LD (HL), エ 





DBn 日 間 EDD. ュ 


| EDE ュ 


TD (HL), n 


LD B, (HL) 


LD D, (HL) 


LD HH, (HL) 


HALT 





RLCA 


RLA 


DAA 


SCF 


LD B, 


LDD,A 


LD H,A 


LD (HL), ん 





| FxAFAF 


JR e 


JR Z.e 


JR C, e 


LD CB 


LDE, B 


LDL,B 


LD A, B 





ADD HL, BC 


ADD HL, DE 





LD A, (BC) 


LD A, (DE) 





| DrC Bo 


DEC DE 


ADD HL, HL 


ADD HL, SP 


LDC,C 


LDEE, で C 


LDL,C 


LD A,C 





lrpDop 


LDE,D 


LDL,D 


LD A, D 





| rpos 


LDE,E 


LDL,E 


LD AE 





| INCC 


INCE 


LD CH 


LDE,H 


LDL,H 


LD ん &, H 





DECC 


DECE 


LDC,L 


LDE,L 


LDLL 


LD AL 





lrpon 


1LDEa 


| LD C, (HL) 


LD E, (HL) 


LDL, (HL) 


LD ん , (HLT) 





RRCA 


RRA 


SUB B 


AND B 


OR B 


LD C,A 


LDE,A 


LDL A 


LDAA 





SUB C 


AND C 


ORC 








SUB D 


ANDD 


OR D 





SUBE 


ANDE 


ORE 





SUB H 


AND H 


OR H 





SUBL 


ANDL 


ORL 


| PUsH BC 





OUT (G), 


PUSH DE 


EX (SP), HL 


PUSH HL 


PUSHAF 





SUB (HL) 


AND (HL) 


OR (HL) 


ADD An 


| sOB 


箇 


ANDn 


OR n 





SUBA 


AND A 


OR A ヵ 


RST 0 


RST 10H 


RST 20H 


RST 30H 





SBC A, B 


XOR B 


CP B 


RETC 


RET PE 


RET M 





SBC ん &, C 


OR C 


CPC 





SBC A&, D 


XOR D 


CPD 





SBC ん A,E 


XOR E 


CPE 





SBC ん AH 


XOR 是 


CP H 





SBC AL 


XOR 工 


CPL 





SBC A, (HL) 


XOR (HL) 


CP (HL) 


EX 駐 


JP (HL) 


EXDEHL | 


LD SP, HL 





SBU A,n 


CPn 








ラベ ル は 省略 で きま す が , 


SBC A,A 








XORA 





CPA 





@ は 2 バイ ト 命 全 軒 請 所 は 3 バイ ト 命 令 


ラベ ル の 有無 に か か わら ず , 





RST 18H 








@ オ ペラ ンド の n は 1 バイ ト の 数 値 


RST 28H 


e は 一 I28 一 十 |27 の 2 の 補 数 


IL 記号 (し 』( ス ペー ス ) お よび 『 , 』 お よび 


お よび グラ フィ ッ ク 記 人 号 も 使用 で きま す . 





RST 38H 





nn は 2 バイ ト の 数 値 


"は 使用 不可 ) 


『」」 を 必ず 1 個人 入れ ラベ ル ・ フ ィ ー ル ド の 終了 と し ます . 

命令 は 省略 で き な い の で ニモ ニッ ク ( 表 1 一 表 2) で 入 
放し 。 まだ 0 を 1 個 入 れ ,、 オペ レー ジョ ジミ アマ ー ル 
ド の 終了 と し ます . 

オペ ラン ド は 命令 に よっ て は な いも の も ある の で , その 
場合 は 省略 で きま す が , 持つ も の に つい て は 第 1 オペ ラン 
ド あ る い は 第 2 オペ ラン ド (区 切り は * , 』 で 行ない ます ) 
を 入力 し ます . 

ソー ス ・ プ ログ ラム の 終了 は 附 嗣 で . この キー が 入力 
され る まで は アセ ンプ ブル は 実行 きれ ませ ん . 


プ ベ ル ・ フ フィー ルド 
ラベ ル に 関す る 規則 は , 次 の よう に な っ て いま す . 


⑯ 。 ラベ ル は 先頭 が 英 大 文字 A 一 で 始ま る 6 娘 字 以内 の 
廊 字 列 で す . 先頭 以外 の 文字 に は 数 字 0 一 9 お よび ASC 





た だ 人 4 グラ フィ ッ ク は デブ リン タ に よっ で は 印字 きれ な 
いも の が あり ます . 
例 ) HEX12 EQU 12H 


INP$ EQU 1754H 
OUT 疹 EQU 0OE500H 








@⑨ 。 レジ スタ 名 は ラベ ル に 使用 で きま せん . 以下 の レジ ス 
タ を ラベ ル と し て 使用 し た 場合 、 ラ ベル ・ フ ィ ー ル ド に お 
いて は 登録 の 際 に エラ ー は 生じ ませ ん が オペ ラン ド ・ フ ィ 
ー ル ド に お いて は 以下 の 例 の よう に 命令 に よっ て レジ スタ 
と 解釈 され る 場合 が ある の で 使用 で きま せん (回 オペ ラン 
ド ・ フ ィ ー ル ド 参 照 ). 

















レジ スタ AB,C,D, EE, 古 ,L,T 民 , 


AF,BC,DE,HL,SP,IXX.IY 


素 2 ニモ ニッ クー 一 機械 語 対応 表 







































































































































































RES 0.B 





RES 2, B RES 4, B 





RLC B RL B SLA B BIT 0, B BTT 2.B BIT4.B BIT 6,B 
RLCC RLC SLAC BITO,C BIT 2,C BIT 4.B BIT 6,C 
RLCD RLD SLAD BIT 0.D BIT2.D BIT4.D BIT 6,D 
RLCE RLE SLA E BITO,5 BIT 2,E BIT 4.E BIT 6, E 
RLOH RL H SLAH BIT 0, 昌 H BIT 2.H BIT 4 HH BIT 6, H 
RLCr RLL | srAr BIT 0.L BIT2.L BIT4.L BIT 6,L 
RLC (HL) RL (HLT) SLA (HL) BITO,(HL) | BTT2.(HL) | BTT4(HL) | gre(Hr) 
HLC A RL A SLAA BIT 0.A BIT 2.A BIT 4 A BIT 6.A 
RRCB RRB | sRAB SRL B | Brrrs BIT 3.B BIT 5, B BIT 2 B 
RRCC RRC SRAC SRL C BIT 1.C BIT 3,C BIT 5,C BIT 7.C 
RRCD RRD SRAD SRLD BIT1.D BIT 3.D BIT 5,D BIT7.D 
RRCE RRE | smag SRL 5g | grrrs BIT 3,E | Brrs,g BIT7.E 
RRCH RRH SRA H SRL H BIT 1.H BIT 3,H BITSH | Bm2H 
RRCL RRL SRAL SRLL BIT1L BIT3.L BIT 5,L BIT7.L 
RRC (HL) RR (HL) SRA (HL) SRL (HLT) BITL(HL) | BTa(HL) | Bm5(BL) | Brr2(HD) 
RRCA RR A SRAA SRL A BIT 1 A BIT 3.A BIT5,A BIT7.A 






RES 6, B 

































SET 0, B SET 2, B SET 4.B SET 6, B 






































































































































































例 ) B EQU 10 一 B と いう ラベ ル に 10 を 与え る 
BB EQU 20 一 BB と いう ラベ ル に 20 を 与え る 
・ DA.BB こ の 場合 は A レ ジス タ 20 

と いう 命令 だ が , 
デー この 場合 は A レ ジス ターB 
レジ スタ と いう 命令 に な る 


、LD ALB 





登録 で きる ラベ ル 数 は , 未知 の ラベ ル (5 記 オ ペラ ンド 
・ フ ィ ー ル ド を 参照 ) と 合わ せ て 31 で す . これ を 超え て ラ 
ベル を 使用 する と “LBL-MAX" が 印字 され , それ 以後 の 
ラベ ル の 登録 は で きま せん . も ちろ ん , 既に 登録 され た ラ 
ベル は オペ ラン ド ・ フ ィ ー ル ド に 使用 する こと が で き まま 
ラベ ル 数 31 は 少な いと 感じ し る か も し れ ま せん が , BASI 
C で 実行 し て いる た め , ラベ ル が 増え る と それ に 比例 し て 
ラベ ル 処 理 に 時 間 が か か り , せい ぜ い ふ や し て 実用 に な る 
の は ラベ ル 数 が 50 個 程度 を で で す . 


5 る 8 


RES 0,C RES 2,C RES 4,C RES 6,C SET 0,C SET 2,C SET 4,C SET 6, C 
RES 0,D RES 2,D | RES 4,D RES 6,D SETO0,D SET 2,D SET 4,D SET 6,D 
RES 0 E RES 2,E RES 4,E RES 6,E SET 0,E SET 2,E SET 4,E SET 6, E 
RES 0 古 RES 2, 本 RES 4. 是 | RES 6, H SET 0,H SET 2, H SET 4, 是 SET 6, H 
RES 0.L RES 2.L RES 4. エ RES 6,L SET 0,L SET 2.L SET4. 葉 SET 6,L 
RES 0, (HL) RES 2, (HL) RES 4, (HL) 世 RES 6, (HL) SET 0, (HL) | sgr 2, (HL) SET 4, (HL) SET 6, (HL) 
RES 0 ん RES 2, RES 4,A RES 6,A SET 0,A SET 2, SET 4, 入 SET 6,A 
RES 1.B RES 3, B RES 8, B RES 7.B SET1,.B SET 3, B SET 5, B SET 7, B 
RES 1.C RES 3, C RES 5, C RES 7, C SET 1,C SET 3,C SET 5, C SET 7,C 
RES 1.D RES 3,D RES 85,D RES 7,D SET 1,D SET 3,D SET 5, D SET 7,D 
RES 1,E RES 3, E RES 5,E | RES 7,.E SET 1,E SET 3,E SET 5,E SET 7,E 
RES 1, 是 RES 3, 是 RES 5, H RES 7, H | sgr 導 SET 3, 本 SET 5, SET 7,H 
RES 1 工 RES 3.L RES 5,L ] RES 7.L SET 1,L SET 3.L SET 5,L SET 7,L 
RES 1, (HL) RES 3, (HL) RES 5, (HL) RES 7, (HL ) SET 1, (HL) SET 3, (HL) SET 5, (HL) SET 7, (HL) 
RES 1 ん RES 3, RES 5, AA RES 7, 入 SET 1,A | sgr 3, AA SET 5, A SET 7, AA 



































@ 空白 は 無効 命令 @ こ の 表 は 先頭 が C B で 始ま る 命令 


オガ ペレ ー 多 鍵 ツ ・ フ ィ ー ル ド 

オペ レー ショ ン ・ フ ィ ー ル ド に は Z80 の 命令 ある い は 後 
述 の 擬似 命令 の ニモ ニッ ク を 記入 し ます . 乙 80 の ニモ ニッ 
ク は Ziilog 社 の タイ プ の も の で , この PC- ASM で ア ゼ ン 
ブル で きる 命令 を 表 1, 表 2 に 示し ます . 

この 表 に な い 命 令 (イン デック ス ・ レ ジス タ を 使う 命 
令 や 表 3 の 命令 ) を 使用 する 場合 は ハン ド ・ ア セン ブル し 
た 後 そ の 機械 語 を 後述 の DB 命令 で 入力 し て や っ て くだ さ 
い 。 








例 ) _.LD_IX,1234H 一 入力 し た い ソ ー ス ・ プ 


ログ ラム 
5 ーーDB_L0DDH,21H,1234H 一 DB 命令 で 
Ss が ド に 入力 する . 
な モブ ウレ 








表 3 ニモ ニッ クー 一 機械 語 対応 表 


IN B,( 〇 ) ITND,( 〇 ) IN HH, (で) 





OUT (C), B OUT (C), D OUT (C), 廿 





SBC HL, BC SBC HL, DE SBC HL, HL SBC HL, SP 





TD (an), DE 


TD (an) SB 


TD (nn), BC 





NEG 





RETN 





TM 0 IM 1 





LDLA LD ん , [ RERD 





IN C, ( 〇 ) IN E.(C) INL,.(O) IN A&, ( 〇 ) 





OUT (C), C OUT (C), 5 OUT (C), エ OUT(C), A 





ADC HL, BC | ADCHL,DE | ADCHLHL ADC HL, SP 





ED BG,(an) | LDDE,(an) LD SP, (nn) 








RETI 




































































オペ ラシン 民 ・ フ ブフ ィ ー ル ドド 

オペ ラン ド ・ フ ィ ー ル ド は 『 , 』 で 区 切ら れ だ た オペ ラン 
ド で 構成 され て いて 最大 第 8 オペ ラン ド ま で 記入 で きま す . 
Z80 の 命令 で 使用 する オペ ラン ド は 第 2 オペ ラン ド ま で で , 
第 3 オペ ラン ド 以 上 を 記入 で きる の は 後述 の DB 命令 だ け 
39 

各 オ ペラ ンド に は 命令 に 対応 し な レジ スタ 名 、 定 数, ア 
ドレ ス , 相対 ジャ ンプ 命令 の オフ セッ ト 値 な ど を 記入 し ま 
す . 定数 や アド レス や オフ セ モット 値 の 代わ り に ラベ ル を 使 
用 する こと が で きま す . 

な お , オペ ラン ド の 処理 で 解釈 され る 順序 は 

1 件 攻 ジ ス クタ 笑 (B、C,"D,。 EE, HH, 上 ,( 古 EE) か AA 千 
令 に よっ て BC, DE, HL, SP な ど ) 

2)。 条 作 笑 KCN2。 ZZ。 N@,。 @ ぐ , PO。 い EE BS My 
3 ) 定数 ①10 進 

⑧②16 進 






















@ この 表 は 先頭 が E D で 始ま る 命令 群 @ 
@ 逆 アセ ンプ ブラ の み で きる 命令  @ 軒 抽 目 





ダリ ンター 
4 ) ラベ ル の 生 
と な っ て いま す . 人 計 吉 rre 


⑯ 使用 で きる 定数 に つい て 
a) 10 進 数 …10 進 数 (0 一 9) で 構成 され た 数 で す . 範囲 
は 0 ミ n ミ 65535 ま で で す . 








| 例 ) 。、.LD_JBC,$12345 





b ) 16 進 数 …16 進 数 (0 一 9 と AF) で 構成 され た 数 で 
す . た だ し , 16 進 数 の 始め が 女 字 (AF ) の 場合 は ラベ 
ル と 区 別 す る た め に 必ず 0 を 付け ます . 数 値 の 範囲 は 0 H 
ーO0FEFFH で す . 








例 ) CR_JEQU_.0D 旦 
LD__JBC, 12EEH 





@ 使用 で きる ラベ ル に つい て 
a) 定数 の 代用 と し て の ラベ ル 
ラベ ル は 定数 の 代わ り に オペ ラン ド ・ フ ィ ー ル ド に 記入 
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表 4 入力 フォ ー マ ッ ト の 規則 






ポー ド か ら 入 力 する 文字 

合 ) 固 … 婦 字 の s 

周 … 大 文字 の A ・ 

ポー スペ ー ス 
了 必 還 キャ リッ ジ ・ リ ター ン 

省略 で きる フィ ー ル ド を 示す . 

省略 で き な い フィ ー ル ド を 示す . 












し 』 












































図 1 ソー ス ・ プ ログ ラム の フィ ー ル ド の 種類 











D 浴 和 AESMSDB 12 220 本 22HH 還 二 時 0 
と 2 区 オ 区 第 区 第 区 第 区 第 
2 切 べ 切 1 切 2 切 3 切 4 
ル り 。」 攻 りー の オオ (US "0' ポ オ 
フ | ペ べ ペ べ ペ ペ 
ィ シ ラ ラ ラ と 2 
I ョ ン ピン ン ン 
ル ン ド ド ド ド 
ド フ 

フ オ 
ル 人 
す ピノ 

『F ルン 
ドド 











E400 START )| LD HLDAT め 


PE403 CALL 0 
イ E406 JP  H81H 





| | | 
] 
KDISP) | jp |52EDH 
CDATA |DB 41h,42h,43h 
LEND) |DB |O 
END | 




























ラベ ル 登 録 
の 配列 


アド レス 登 
録 の 配列 
k 0) 






⑥ 0 | て START E400 | 
3 に エーpmsr E409 
3 十 ーDATA E40C 








| す 十 - END E4OF 


| 
29 | DISP Et ニー レン 
30 | DATA E400. 


























する こと が で きま す が , その 場合 その ラベ ル は 既に 空 義 き 
れ て いな けれ ば な り ま せん . 

b) アド レス の 代用 と し て の ラベ ル 

アド レス の 代わ お り に ラベ ル を 使用 し た 場合 , その ラベ ル 
が 既に 定 状 さ れ て いる と き は その アド レス を ラベ ル 登 録 エ 
リア か ら 引 き 出 し 、 オペ ラン ド の 処理 は 終了 し ます . 

し か し , その ラベ ル が 未定 義 ラ ベル の 場合 は . その ア ド 
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写真 1 アセ ンプ ブル 終了 後 , ラベ ル ・ テ ー プ ブル を 確認 する 





レス が 与え られ な い の で , 未知 ラベ ル と し て , いっ た ん ラ 
ベル 登録 エリ ア の 最後 部 か ら 順 に . ラベ ル 名 お よび その ラ 
ベル が 使わ れ た 命令 の 先頭 アド レス を 登録 し ます ( 図 2). 

この よう に 未知 ラベ ル は ラベ ル 登 録 エ リア を 見 か け 上 1 
個 分 減少 させ る の で ラベ ル 登 録 エ リア を オー バー し な いよ 
う に 注意 が 必要 で す . 

ここ で 登録 され た 未知 ラベ ル に アド レス を 与え る の は 後 
述 の END 命令 な の で , この 命令 の 前 に その ラベ ル を 定義 
し な けれ ば な り ま せん . 


振 似 合 信 


擬似 命令 は 以下 の 6 種類 が あり ます . これ ら の 命令 は ア 
セン プラ の と きのみ 用 いる こと が で きま す . この 擬似 命令 
に より 作成 され た オプ ジェ クト ・ コ ー ド は , 逆 ア モン プル 
する と それ に 対応 し た OP コ ー ド の ニモ ニッ ク で リス ト に 
出力 され ます . 


四 ORR@ (erlgln) 介 葵 

⑯ORG 命令 は 、 アセ ンプ ラ の 開始 アド レス を 定義 。 ある 
い は 変更 する 命令 で 、 オ ペラ ンド の 値 が その アド レス を 与 
まな 9 

@ オ ペラ ンド の 値 は 、 16K シス テム で は E400H-E9 
FEFH ま で , 32K シス テム で は A400H-E9FFH ま 
で の 範囲 で す . この 範囲 を 越 を て オプ ジェ クト ・ プ ログ ラ 
人 ム を スト ア す る と コン ピュ ー タ が 禁 走 する 場合 が あり ます . 
@ ORG 命令 の 入力 フォ ー マ ッ ト は , 











あう う 詳 1OIRIGI_ 区 ESESDGIE: ま 323 


また は ラベ ル > 





で ,. オペ ラン ド ・ フ フィールド の ラベ ル は それ 以前 に 定義 き 
れ て いな けれ ば な り ま せん ( 図 3). 

の RUN 直後 の アモ ンプ ブラ 開始 アド レス は , ORG 命令 で 
定義 し な く て も 16K シス テム で は E 4 0 0 H, 32K シス テ 
ム で は A4 0 0 H に 自動 的 に モッ ト さ れ ま す . 


選 QU (equate) 区 倫 


⑯ EQU 命令 は 、 ラベ ル ・ フ ィ ー ル ド の ラベ ル の 値 を 定義 
する 命令 で す . 
@ EQU 命令 の 入力 フォ ー マ ッ ト は 


0 と 223/ の 当 、|E 1Q]|U|、 区 な 壮 :40【Uh: 生 CIYS 








で , 定数 は 0 一 65535.、 ま た は 0H 一 OFFFFH ま で の 値 
で す ( 図 4). 


@ EQU 命令 は オブ プ ジ ェ クト ・ コ ー ド は 作成 され な い の で 


ソー ス ・ プ ログ ラム の 任意 の 位置 で 使う こと が で きま す . 


D 分 (de 人 line Bye) 命 容 

⑯ DB 命令 は オペ ベラ ンド ・ フ ィ ー ル ド に 並ん で いる 定数 , 

また は ラベ ル の 値 を 1 バイ ト ま た は 2 バイト の デー タ と し 
て メモ リ に 確保 する 命令 で す . 

@ オ ペラ ンド で 使用 で きる ラベ ル は それ 以前 に 定義 きれ て 
いる も の に 限り ます . 

@ オ ペラ ンド ・ フ ィ ー ル ド に は 最大 8 個 の 定数 、 また は ラ 
ベル を 記述 する こと が で きま す . 

の ⑳ オ ペラ ンド の 値 が 0 一 258 の と き は 1 バイ ト の デー タ を 
与え , 256 一 65535 の と SW テ ト の デー タ を 与え ます . 

た だ し , 2 バイ ト ・ デ ー タ の 場合 は , 格納 きれ る 第 1 デー 
タ は 数 値 の 下位 8 ビッ 2 デー タ が 上 位 8 ビッ ト と な 
る の で 注意 し て くだ さい . 

@ DB 命令 の 入力 フォ ー マ ッ ト は 


[ラベ ル 〕 圏 図 団 間 < 定数 (10 進 また は 16 進 ) ま た は ラベ ル 
| , 販 半 > たる cz ん 3) 2 












な り ま す ( 図 5). 


外 DC(deflne ehargeters) 

⑩ DC 命令 は 。 オペ ラン ド ・ フ ィ ー ル ド の 『Y』 で くく ら 
れ た ASCII 廊 字 , カタ カナ , お よび PC-8001 の グラ フィ 
ッ ク 記 号 る か ああ y あみ グ コー ド (PC-8001 リ ファ レ 

ス ・ マ ニュ アル p.104) に 変換 し , メモ リ に 確保 する 命 和 
す . 

@ 記 述 で きる 廊 字 例 の 長き さ は 登録 され て いる ラベ ル の 交 字 
数 と 関連 し ます が (詳し く は 次 剖 の a& コマ ンド を 参照 ), 最 
低 の 場合 で も 約 20 個 で す . 

@ DC 命令 の 入力 フォ ー マ ッ ト は 


時 9 胃 国 、|DIC| | 隊 3 う 3% の を モル 当 | 


Ne 


DS(defln@ SFgg@) 

⑩ DS 命令 は , オペ ラン ド の 億 と 同数 の バイ ト 分 の メモ リ 
領域 を 確保 する 命令 で す . メモ リ の 内 容 は 変化 し ませ ん . 

この 命令 が 実行 され た あと の アセ ンプ ブル 開始 アド レス は オ 
ペラ ンド の 値 だ け 前 より も 増加 し ます . 

@ オ ペラ ンド で 使用 で きる ラベ ル は それ 以前 に 
いる も の に 限り ます . 

@ DS 命令 の 入力 フォ ー マ ッ ト ! 


定義 きれ て 


〔 ラ ベル 〕 圏 回 回 間 < 定数 (10 進 また は 16 進 ) ま た は 


ラベ ル > 





で す ( 図 7 ). 


回 忌 NDCe@nd of gssembly) 貢 生 
⑯ END 命令 は ソー ス ・ プ ログ ラム の 最後 に 必ず つけ . ア 
セン ブル を 終了 させ ます . 

@ END 命令 の 入力 フォ ー マ ッ ト は 


_lElNlp| 


で す . 
PC-ASM は この END 命令 を 受 


,O 


3 ORG 命 令 の 実行 例 


*E400_JEEL 」、 org_」0E500h 


*E500_FF_」 園 





図 4 EQU 命 令 の 例 





け て 次 の 処理 を し ます . 


CLEAR_JEQU__.12 
CR__EQU__0DH 
LEF_JEQU_0AH 





5 DB 命令 の 例 





DATA_JEQU_ 1234H 

_ DB_0, 10, 10h,、 DATA 
アセ ンプ ブル | | | 
され た デー タ ] | 
00 0A 10 34 12 





6 DC 命令 の 例 
TITLE_ DC Y*※* ネ PC-ASM* ネ ネ Y 





TIMIR_JDC_.Y 10 時 30 分 54 秒 ? 
NAME_JDC_.Y カ ワム ラ Y\ 











7 DS 命令 の 実行 例 


*E400_FE_ JAREA、JDS__10H 


*E410_FF_. 較 








1 ) オペ ラン ド ・ フ ィ ー ル ド で 使わ れ た だ 未知 ラベ ル の ア 
ドレ ス を 登録 ラベ ル の 上 中 か ら 提 し 出し ます . 


2 ) も し , 登録 ラベ ル 中 に 見 つか っ た と き は 4 ) の 処理 へ 
進み ます . 
3 ) 登録 ラテ ベル 中 に 見 つか ら な か っ だ た と き は , その ラベ ル 


が 用 いら れ た 命令 の オペ ラン ド は 正しい 値 で は な い の で , 
未定 義 ラ ベル (undefined label) が あっ た こと を 


UNDEL_ < ラベ ル 名 >_. く その ラベ ル が 使わ れ た 命令 の 


先頭 アド レス > 





の 順に ディ スプ レイ に 表示 し ます . そし て , 1 ) へ 大 り ま 
す サッ 
4 ) 相対 ジャ ンプ 命令 の オペ ラン ド に 使わ れ た 場合 は そ 
の オフ モッ ト 値 を ,。 その 他 の 場合 は その 舘 を 示す 2 バイ ト ・ 
デー タ を 元 の OP コ ー ド が 格納 され て いる 部 分 に スト アレ し, 
正しい オペ ラン ド に な り , 1) へ 戻り ます . 

) 未知 ラベ ル の 処理 が 終わ る と “READY" を 表示 し コ 
マン ド 待 ちと な り ま す . 


ol 


&O 


図 8 16K シ ステ ム の メモ リ ・ マ ッ プ 


増設 用 RAM エ リア 
( 空 エリ ア ) 


PC- ASM の 格納 領域 


E400 


EA00 ユー ザー ブログ ラム の 格納 句 若 


PC-8001 の ワー ク ・ エ リア 





FFFF 


図 9 32K シ ステ ム の メモ リ ・ マ ッ プ 


アド レス 
0000 
| 


PC-ASM の 格納 領域 


A400 
ユー ザー プロ グラ ム 
の 格納 領域 

EA00 


PC-8001 の ワー ク ・ エ リア 





FFFF 


図 10 コマ ンド 待ち の 状態 
READY 
? 画 


写真 2 写真 1 の プロ グラ ム を 途 アセ ンプ ブル し て みる 





の 未知 ラベ ル は END 命令 に より , ラベ ル 領 域 か ら 削 除き 
れ ま す が , 登録 ラベ ル は 残っ て いま す . そこ で dd コマ ンド 
の アド レス 入力 の 除 に アド レス の 代用 と し て ラベ ル を 使用 
の の: ご と の で る き (ます 

再び アモ ンプ ブル を 開始 し て も , 同様 に ラベ ル は 消え ませ 
ん . ラベ ル を 消し た いと き は 再び RUN さ せ て くだ さい . 
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PC-ASM の 使用 法 


題 ※ 工 り ・ マ ッ プ 

PC-ASM プロ グラ ム は 16K シス テム 上 で 作り まし た . 
この プロ グラ ム の メモ リ 上 で の 専有 領域 を 図 8 に 示し ます . 
32K シス テム で も プロ グラ ム の 変更 な し で 動作 し ます が , 
表 5 の よう に 変更 すれ ば , より 大 き な プ ログ ラム の アモ ン 
ブル が 可能 と な り ま す . 変更 後 の 32K シス テム で の メモ リ 
の 専有 領域 を 図 9 に 示し ます . プロ グラ ム を リス ト 1 に 示 
じ ま さ す : 


入力 コマ ンド 


PC-ASM を RUN させ る と 図 10 の 状態 と な り コ マン ド 
の 入力 待ち と な り ま す . PC-ASM の コマ ンド は 以下 の 4 





種類 あり , キー イン は 小娘 字 で 行ない ます . 

1 ) a (assembler) アセ ンプ ブル を 行なう . 

2 ) d (dis assembler) 逆 ア セ モン ブル を 行なう . 

3 ) p (print label) シン ボル ・ リ スト を 出力 し ます . 
4 ) e (end) PC-8001 の モニ タ に 大 る . 


Wa (assembler) コマ ンド 

コマ ンド 待ち の 状態 図 10 で 剛 屋 圏 を キー ボー ド か ら 入 力 
レ ま すす. する と 。 図 11 に だ 示す ず よ ず に * ネ に 続い て , ' ア モデ 
ル 後 機械 語 を 格納 する 先頭 アド レス を 16 進 数 の 4 廊 字 で 表 
示し , その あと ご (スペース) に 続い て その アド レス の デ 
ー タ を 16 進 数 の 2 廊 字 で 表示 し ライ ン 入 力 状 態 と な り ま す . 

RUN 直 後 の 格 納 開 始 ア ドレ ス は 16K シス テム で は E 4 
OOH3 32K シ ステ で せ ば A 條 000 に な り ま す 、. 

図 11 の カー ソル の ある 位置 が 第 1 カラ ム と な り ま す . 入 
力 で きる 最大 カラ ム 数 は , 登録 きれ て いる ラベ ル 数 と 関連 
し て いま す . 正確 に は 下 の 式 で 与え られ ます が , 実際 的 に 
は ソー ス ・ プ ログ ラム を 1 行 以内 (1 行 三 40 廊 字 と し て ) 
に お さそ くれ ば 問題 は あり ませ ん . 




















入力 で きる 最大 カラ ム 数 志 (270 一 > (登録 され て い 
る ラベ ル の 凛 宇 3 030 














も し , 5 廊 字 の ラベ ル を 30 個 登録 し て いる よう な 最低 の 
場合 だ と 約 60 と な り ま す . アセ ンプ ブラ の ソー ス ・ プ ログ ラ 
ム の 入力 は ライ ン 入 力 と な っ て いる の で 且 喘 キー を 押す 
まで は 困 正 する こと が で きま す . 

CR| キー が 押さ れる と その 行 の ソー ス ・ プ ログ ラム は 機 
械 語 に 変換 され * に 続く 格納 開始 アド レス か ら 順 に スト ア 
され て いき ます . 

も し , ソー ス ・ プ ログ ラム を 入力 せ ず に 了 國 キー だ け を 
押す と その アド レス の メモ リ の 内 容 は 変更 きれ ず に , 格納 
開始 アド レス が 1 つ だ け カ ウン ト up し ます . 

d (disassembler) コマ ンド 

コマ ンド 入力 待ち の 状態 で , 國 了 圏 を キー ボー ド か ら 入 
カカ すれ ば , 図 12 に 示す よう に 逆 ア モン ブル の 開始 アド レス 
と 終了 アド レス の 入力 待ち と な り ま す . 

スタ ー ト , エン ド ・ ア ドレ ス は ほす 『 5 ぶよ で 区 切り 10 進数, 
16 進 数 また は ラベ ル で 入力 し ます . 

図 18 に 逆 ア セン プラ の 実行 例 を 示し ます . 逆 ア セン ブラ 
に お ける カラ ム と フィ ー ル ド は 図 14 の よう な 対応 が あり ます. 

な お , 逆 ア セン プラ ・ リ スト を プリ ンタ に 打ち 出し た い 
と き は , PC-ASM プロ グラ ム の 行 番号 3030 の PRINT を 



































図 11 a コ マン ド の 実行 後 の 状態 
ーー 
隊 較 は キャ リッ ジ ・ リ ター ン で す . 








に 1 ゴ pN2 
間 l CR 


*E400 較 





図 18 逆 ア セン プラ の 実行 例 
Earxt:gW 還 3Nlp 記 blclglilnl.HOlcl4HOISIh 
E400-3E0A_、 こ ここ BEG IN こ ーーLD、、. 


E402.3210E4 | 敵 p 庄 入 
E404_CD20E4 皿 9e】- 


た | 
,(E4 10H), A 
9. 回 本 連中 月 5| 


に 1 DD 
? 国 


&O 


図 12 d コ マン 
に 】 ゴ TpN4 


ド の 実行 後 の 状態 


d 目 CR 
START, END ? 較 





図 15 p コ マン ド の 実行 例 


に 1 ゴ : パ p)4 

同上 CR 
LABEL 三 4 

に 1 コ c1 ド WUIUIEI 
DATA :E410H 


LOOP : E4 0 4H 
END : E430H 


に 1 ゴ パ p)4 
? 画 





図 14 カラ ム と フィ ー ル ド の 種類 














例 E400 し 3EO0IA や た ーー レヒ | に 呈 BEGIN で LD こ た 」 つり A, 0AH 
間際 間 /「 レ ニ プ | オォ ペ ュ コード |? ラベ ル ・ プ | オペ レー ショ ン ・ dbgocikt 
し ge R SS 
2 2 『 ジン ーー 疹 ン 2 ン ST 
フィ ー ル ド | 2 ネー ルド 2 ヲ ラ ネール の フィ ー ル ド 2 | フィ ー ル ド 
上 1 ョ 3 














表 5 32K シ ステ ム で の 変更 点 


IIfa で 通い 【c 


clear 350.&hE3FF: 一 


ーー:Z= ニ 58368! 


clear 350.&h A3FF: 一 





LPRINT に 変更 し て くだ さい . 
 p (print label) コマ ンド 
コマ ンド 入力 待ち の 状態 で 回 
力 し た 例 を 図 15 に 示し ます . 
この コマ ンド は 現在 登録 きれ て いる 
小さ い 順 か ら 表 示し ます . 
最初 に 表示 され る “LABEL テ N" (N ニ 0 一 31) は 現在 
導い っ っ 
) スト を プリ ンタ に 打ち 出し た 
SM プログ ラム の 行 番号 3430 に ある 3 
PRINT に 変更 し て くだ さい . 
《⑳ e (end) コマ ンド 
プロ グラ ム を 終了 し, PC-8001 の BASIC モニ タ に 大 り 
ます . 


GRI を キー ボー ド か ら 入 


ラベ ル を アド レス の 


ラベ ル ・ いと き は , PC-A 


3 個 の PRINT を 





SR 


エラ ー メ ッ セ ー ジ 








2 ンジ SSC 中 


示し ます . な お , 


Z=41984!: 一 


し た と き に ディ スプ レイ へ 出力 され ます . 
以下 に 。 エラ ー メ ッ セ ー ジ の 種類 と その 内 容 を 列挙 し ま 
秒 








ーー SS 
衣 忌 尽 一 の エラ ーッ ツ 避 一 
以下 の 4 つの エラ ー が 発生 し た と き は アモ セン ブル が 不能 
な の で , その アド レス で 再度 入力 待ち に な り ま す . 
⑩ ER-LBL (ERROR LABEL ) 
ラベ ル の 記述 に 計り が ある . 


b ) ラベ ル が 6 廊 字 を 越え た .。 
@ ER-INS (ERROR INSTRUCTTON ) 
命令 の ニモ ニッ ク の 記述 に 誤り が ある 
a ) 乙 80 に な 人 億 だ で れ 220 ダク スミ 
使う 命令 な ども 信 ま れる ). 
ER-OP (ERROR OPERAND) 
オペ ラン ド の 記述 に 誤り が ある . 
a) 未定 義 ラ ベル を 定数 の 代わ り に 使っ た . 
b ) 定数 の 記述 ある い は その 値 (0 一 65535 また は 0H 一 
0FFFFH) に 誤 ま り が ある 
c ) ラベ ル あ る い は レジ スタ の 記述 に 庄 り が ある . 


レジ スタ を 


d ) 2 バイ ト 命 令 に お ける オペ ラン ド の 値 が 0 一 255 の 範 
囲 を 越え た . 
《⑯ ER-OVR (ERROR OVER) 
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相対 ジャ ンプ 命令 (DNJZ, JR 命令 ) に お いて , その オ 
フェ モット 値 が ー128 一 十 127 の 範囲 を 越え た . 


L 旨 し ー の エラ ヲ ラー メ ッ や 一 受 
以下 の 2 つの エラ ー は ラベ ル 登 録 時 に 生じ た エラ ー で , 
アセ ン デ プラ は 続行 され ます 。 
介 LBL-MAX (LABEL MAXIMUM ) 
『 登 録 ラ ベル 数 士 未 知 ラ ベル 数 』 が 31 個 を 越え た . 
a) この エラ ー が 生じ た 場合 ., そこ で 使わ れ た ラベ ル を 合 
めそ れ 以 後 は ラベ ル の 登録 並び に 未知 ラベ ル の 使用 が 禁じ 
られ ます . 
b ) この 場合 。 それ 以前 に 登録 され た 未知 ラベ ル は END 
命令 に よっ て , アド レス が 未定 義 と な る の で 未定 義 ラ ベル 
と し て 一 括 し て ラベ ル 名 と それ が 使わ れ た アド レス が 表示 
され ます . 詳し く は END 命令 を 参照. 





@ LBL-DBL (LABEL DOUBLE) 
釜 録 き れ て いる ラベ ル を 再 定義 し た . その ラベ ル は 登録 
され ませ ん . 








「 PC-ASM7 ロ 230 半 


プロ グラ ム の 全体 の フロ ー チ ャ ー ト を 図 16 に , 行 番号 と 
処理 ルー チン の 説明 を 表 6 に 、 プロ グラ ム に 使用 きれ て い 
る 主要 な 変数 と その 説明 を 表 7 に 示し ます . 

また , プロ グラ ミン グ 例 を 実行 例 1 に , 逆 ア セン プル し 
た リス ト を 実行 例 2 に 示し ます . 





図 16 フロ ー チ ャ ー ト 

















表 6 プロ グラ ム の 説明 






文字 変数 の 格納 領域 お よび BASIC の 格納 領域 
の 上 限 の 制限 , 文字 変数 、 整数 変数 の 定義 
アセ ンプ ブラ, 逆 ア モン プラ で 使用 する デー タ 
260 一 350 逆 ア セン プラ で 使用 する デー ニタ 
360 一 390 逆 ア セ モン ブラ で 使用 する 機械 語 の 文字 群 
400 キャ ラク ター16 ビ ッ ト ・ デ ー タ 変換 
410 16 ビ ッ ト デ ー タ か ら ト 下位 8 ビッ ト を 取り 出す . 
420 8 ビッ ト デ ー タ を 2 個 の 16 進 に 変換 16 ビッ ト 






120 250 












デー タ を 4 個 の 16 進 に 変換 
430 配列 の ディ メン ショ ン を 宣言 
440 デー タ の 読み 込み ① 






1000 一 1040 | READY 印 字 で 入力 コマ ンド 待ち . 
1050 一 3290 | 逆 ア セン プラ の サブ ルー チン 

1050 一 1080 | デー タ の 読み 込み ② 

1100 START, END の アド レス 入力 待ち 
2000 一 2120 | 逆 ア セン ブラ の 処理 (規則 性 の 大 きい 場合 ) 
3000 一 3040 | 逆 ア セン ブラ ・ リ スト の 出力 処理 
3050 一 3150 | 逆 ア セ モン ブラ の 処理 (規則 性 の ある 場合 ) 
3160 一 3290 | CB,. ED で 始ま る 命令 の 送 ア セン ブル 
3300 一 3360 | ラベ ル 登 録 サ ブ プルー チン 

3380 一 3410 | ラベ ル の アド レス を 捜 す サ ブ プルー チン 
3420 一 3430 | ラベ ル ・ プ リン ト (p コマ ンド ) を 行なう サブ 







































ルー チン 
4000 一 6100 | アセ ンプ ラ ・ サ プ ブルー チン 
4010 各行 ご と の イニ シャ ライ ズ 
4020 ソー ス ・ プ ログ ラム の 入力 待ち 
4030 一 4070 | ノー ス ・ プ ログ ラム の フィ ー ル ド お よび オペ ラ 








4080 一 4200 

















擬似 命令 の 処理 





ンド の 分 離 















4100 ORG 命 令 の 処理 
4110 EQU 命 令 の 処理 
4120 DS 命令 の 処理 
4130 一 4170 | END 命 令 の 処理 
4180 一 4190 | DB 命令 の 処理 
4200 | DC 命令 の 処理 





4210 一 4230 | 1 バイ ト 命 令 の 処理 
4240 一 4300 | “LD" 命 令 の 処理 
4310 一 4350 | “ADD"ー“CP" ま で の 命令 の 処理 
4360 一 4390 | 規則 性 の な い 命令 の 処理 

4400 一 4440 | JP" “CALL" 命 令 の 処理 

4450 一 4460 | "INC"、 “DEC" 命 令 の 処理 

4470 一 4500 | 相対 ジャ ンプ 命令 の 処理 

4510 一 4520 | “POP"。 “PUSH" 命 令 の 処理 

4530 一 4570 | "EX"、 “OUT"、 "TIN7 命 令 の 処理 
5000 一 5050 | アセ モ セン ブル され た DATA の 格納 
6000 一 6030 | 10 進 数 、16 進 数 を 数 値 へ 変換 する . 
6040 一 6100 | ラベ ル を 数 値 あ る い は アド レス に 変換 する . 
6080 未知 ラベ ル の 登録 を 行なう . 

























表 7 


















ビシ スン 
逆 ア プア セ ンプ 
ラ 共 通 


れ て いる ラベ ル 数 
れ て いる 未知 ラベ ル 数 

の ニモ ニッ ク 

オペ ラン ド に 使用 され る レジ スタ や 
| 条件 な ど 

| TL(30) ラベ ル の 格納 領域 

| *L(30) | アド レス の 格納 領域 
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XX 逆 ア セン ブル 中 の 命令 先頭 アド レス D 格納 され る 命令 の 機械 語 
え 現在 送 ア セン ブル し て いる アド レス D1.D2 格納 され る オペ ラン ド の 下位 8 ビッ 
S 命令 の ニモ ニッ ク | ト 上 位 8 ビッ ト 
TA,TB オペ ラン ド の 内 容 | W 現在 処理 中 の 文字 列 (ニモ ニッ ク や 
KK X 番地 の 内 容 (0 一 255) オペ ラン ド な ど ) 
Wi) ソー ス ・ プ ログ ラム 中 の ラベ ル XN オペ ラン ド に 使わ れ た 定数 や ラベ ル 
W (2) ソー ス ・ プ ログ ラム 中 の 命令 の 値 (16 ビ ッ ト ) 
W(3) 一 0⑩| 第 1 一 第 8 オペラ ンド G ソー ス ・ プ ログ ラム が 何 バ イト 命令 
Z | 機械 語 の 格納 アド レス か を 示す . 
X ぐ | 現在 アセ ン ブ ル 中 の 先頭 アド レス 
実行 例 1 アセ ンプ ブラ の 実行 実行 例 2 逆 ア セン ブル し た ソー ス ・ プ ログ ラム 
READY _REAHY_ 
d 


に 】 チ 
#E490 21 PFint eau 52edh / 
\E496 21 pc8991 equ 81h / 





E499 2112E4 
E493 CDEDS2 


LOOP LD 


HL:HATA . 


に ALL PRINT 


\*E4996 21 ]1ooP ]』d hlrdata / E496 GA26E4 LD Az(COUNT) 
\*E4963 CD _ call Print 〆 E49? SD DEC じ A 
\E496 SA _]1d a ヵ (count) / _E49A_ コ 226E4 
\*E492 SGD _ dec a/ E49D 29F1 JR NZ LOOP 
*E49D 26 Jr nz,loop/ E412 59@ DATA LD DB 
LM に LOWHURIRCOOO1 レン スス ュ 。 E413 43 LH に 
*E412 4E data dc *PC-8961 Assembler E414 2D DEC 上 
#E428 62 BT32 が 732760/ | こっ 1 こけ C17 ン NARA 時 PMI こ NMHOGL DTI コタ 51 
*E426 99 count db 19/ E417 3931 JR  NC,E44AH 
#E427 26 _end/ EE41? 2941 ER NZSE2PUHI 
E41B 73 LD (HL ) EE 
E41C 73 LHD (HE 
E41D 6S LD HL 
EATESORES OU MHRSUC 
E41F 62 LD HzD 
EE 信人 UI HINNMMNO 
E421 65 LD HL 
E422 72 LD (HL7 ヵ D 
E423 2926 JR NZ,E44SH 
店 人 5 
E426 9A COUNT  LD Az (BC ) 
READY 
P SE 


リス ト 1 PC-ASM プロ グラ ム 


1 の 66 xxx FC-ASM May 21 1980 XX 

116 CLEAR 359, ょ &HESBFF DEFINT A-NiDEFSTR ローM 
129 n(1)="ADH ADC SUB SBE AND XnR ロ HR CEF “" 
136 0n(2)="RLCARRCARLA RRA HAA FCFL SEF CCF " 


146 n(3)="LD INC DEC RET JPF CALLRST" 
15 の ロ (4)="LH INC DEC AH FHF FLSH" 


169 D(S)="N ロ IP RET EXX HI ELI HALTP 
179 Q( る 6)="LH EX HJNZJR JF CALLIN ロ UT" 
1896 ロ (7)=" リ (BE)A(BE) (HE)A(DE)SPHL 


1 ウ 6 ロ (8B)="RLC RRC RL FRR SLA SRA SRRHHSRES ら GET 

296 HATA ,BITjRESySET) LHCEP ょ ITN5 ロ UT 

219 HATA BC)E ラ EE ラッ H ロ し)(HL))A 

226 DATA _ NZ,Z7NE) ビ 5FH ロ FE) FN 

230 HATA の 8B,19H,18H) 2 の 6H) 28H EE の 6H) SBH 

249 DATA BE)HE)HL SF ょ BE DE)HL AF 

256 HATA AA ララ 7 の ゅ ゅ 

2 る 9 HATA 9 の 8) 久 H11)H1 ジ HE1F 6 日 じ 

2 フ 79 HATA 多 H23))H42 マ F4) の) を H62F HEBFB) HB6 

289 HATA の 9 ヵ &H64F9 ょ 必 H41) 必 H1948 8H4S)&H44)&H45 ァ の 9 

2906 DATA 多 H18B の ) み H471 HE19)8&H49FS ラ HGS9)&H49FS)84HB39)&H4BFS 
399 nATA &H7ZF49,%&H4EFS>&HZ4F の, 2H4HFS &H7FB の 6 &H4EFS テ &H7SF の 9 を H649F4 
319 HATA 多 H69F5,&HSBFB プ ブラ &HSSEF6)HA41) HB4) HE41)%HS46) の 

329 DATA j(BE)jHE テ (DE) HL テ (HL))AF ょ AF < 

SS9 HATA ASP7 (ESPNZ ラ ZNC ラ ビラ 
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849 

35 の 6 

きる 9 

S76 
389 

2399 

499 

419 

4 の 

436 

449 

1696 
10619 
1939 
19406 
195 の 
1969 
1679 
16 ら の 
1196 
E XS 
29906 
20616 
2929 
20639 
20646 
26S の 
ぶ 666 
1+B 
29796 
26S の 6 
096 
21696 
2110 
2126 
) TE 
3099 
3916 
3020 
3930 
3946 
39659 
3949 
397 の 9 
99 の ら の 
2362 の 9 
S1 96 の 9 
3116 
3129 
3139 
31406 
S159 
31496 
3176 
3189 
3196 
3209 
S2109 
3229 
3239 
3249 
3259 
3249 
966 
3279 
3286@ 
う 3299 
330906 
3319 
3326 
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リス ト 1 PC-ASM プロ グラ ム 


DATA ) ゅ ょ ょ ゅ HIR)HR 
HATA NEG,RETN, iM 9,"LH ARETT) 1M 1 "LH エリ TH 5 ヵ RRL)RLH 
AN RS RB PB1 DS slBEM の 0 C ウ H F3.FB 7 ム !sHE=" CB PD EH FD " 
LrieVS BB A 1 12 18 1A 20 22 コロ 2A 26 32 238 2A " 
Uh=UD+ "CB3 ED HE HB E3 E2 EB FS " 
UE=" 44 45 46 る 47 4H < 上 7 5E 47 4F " ミ Z=SEB4! ミエ = ニ 9: し し = の 
DEFFNX(S)=VAL( "&h "すら ) 一 TNT(VAL( "h リ + き ) / る 王 呈 コ 4! ) る 呈 王 ら る ! 
HEFFN1(X)=XーINT(X/ で 5 る ) 2 る 
DEFFNI(S)=MIL ま ("の "LEN(S) )+SEHEFFNF(S)=MIH ま も ("996")LEN(S) )+5 
HIM T(5)7))Y(15),YS(23S))TT(1E))TL(36 ) )XL(30 ) 
FnRI=6TIS FRJ=9T ロ 7 REAHT( エゴ) NEXTENEXT 

7%MATN 

FRINTIFRINT "REAHY" iTNFUT ETF ="e" THEN ENH 

ロ N INSTR( "Pad!) GHSLIE 4S の 6)4999 の 165 の 

BOT 1916 

RESTRES る 9 iCA= の 

FnRT=6TI15kREAL Y( 1I) INEXT:F ロ RI=9T ロ 7 iREAD Y1(1):NEXT 

FCR1I=6TQ2SIREAH YS(1) NEXTEF ロ RT=9T ロ 15:REAL TT( 1) NEXT 

FHRI=9TD7iREAD TU(T) :NEXT:FHRT=1 TU19:REAH (1T) :NEXT 

INFLT VSTART,ENH" iTAiTB: ロ =TAIGHSEILIB406 iM= ニ SiGHELE4999:TF ER=1 THEN RETLURN ELS 
=XN!S=TBIGHSUB4959 = 1GHSLIB49996:TF ER=}】 THEN_ RETURN ELSE XE=XNIiX=XEIFRTINT 
7 ※ 昌 AS 

XX=XiS=VMLHV は ビニ 9 kTA=V WITB=0 UETT= ニ OsGnSEHUBS15 の 6: ドニ RE EA ニ EAN フェ BE=E/BANH7 

TIF_ RS&H49 ロ R KR>&HZF THEN 649 ELSE IF EE=H74 THEN = リ HALT":GHT ロ 3B999 
TA=T(1,B) iTE=T(1 ょ A) IGT 3999 

IF _E>127 AN K く 1 THEN 記 =MIL( ロ (1 ))1+Ex4)4):TA=T(5)B) ITE=T(1)A)kGHT ロ SB690 
Y=Y(SBx(KR\12B)+A):TF Y= の THEN 2199 ELSE IF Y=B THEN 9 

RSLIR SS0IGHSUE 120:TF CB THEN =MIH( ロ (BB))1+TE*474) ELSE =MIH ま (( ビ ー1 0 ) ) 
4 ヵ 4) 

RHTQI 39069 

M=RK AND &HCFY=Y1(INSETR(LIA HEX ま (M)+" ")/B):TF Y= の THEN =199 

RSLIB 69 の:B=(E/1 る )ANLI7 GSELE 120:=MTL ま (HI(4))1+TEx474) IGT 969 


TK=HEX$(K)+"! "5 エニ INSTR(HE ょ TE)/EBETF TS26 THEN 3149 

1=INSTR(LB7TK)/3ETF TX の THEN 叶 =MIL ま ( ロ ( 呈 )) T*4-)4) BHT 3999 

1=INSTR(UD TK) /3』Y=Y2(T ) :B ロ SHB 399* ほ =MITH$( ロ (る ) ) 1+Ex4)4) 『TT(15)=TNITA=TT(CA 
=TT(IEE ) 

7#PRTNT 


IF TAX>2V9 ANE TE<>"! THEN TTA=TA+" ょ " 

XL=XXITN=VUgGOSLEBSSB6 

FRINT FNF(HEX ま (XX))50 "5TT5TAE(14)3TNiTAB(E1) 5E5TAB(E6) 5TAITE 

IF XX く XE THEN 2999 ELGE RETLRN 

CS=Y/&H10 909: に A=(Y/256) ANH15 FEB=(Y/14) ANH15: に =YANH15 

IF CZ2= の THEN RETURN ELSE TF ヒ S=1 THEN TA="HL":RETHIRN 

GHSLIB 3156!K1=KKiTF CZ> ロ THEN GSLBS1 ニ 6 1XL= ニ E1 TEX ん 4 GRHT ロ SG970 

IF C223 THEN XL=(K1+128ANHS55 )+XX-124 ELSE TN=FN ロ (HEX ま (R1) )+"HV IGR ロ TH 3B199 
TNsHEX$(XL)+!HVITF XLSO THEN GEUESSB0 

IF CZ2MHD2=1 THEN TN="("+TN+")" 

RETLURN 

IF CA=9 THEN 31386 ELSE IF CA=15 THEN TA=TN ELSE TA=T(CA,B ) 

IF CB= の 9 THEN 149 ELSE IF CB=1 呈 THEN TE=TN ELSE TEB=T(CB, BE) 

RETIJRN 

KK=FEEK( X ) 5 X ニ X+1 5 TT=TT+FN ロ (HEX ま (ER) ) iRETURN 

BSIB3159 ょ ド = ド Ks B ニ K/BAND7 :A ニ KAND7 BS=B/ ラ EE ラード /64 

ロ N 1 GTO 3189)32 ウ 632096 コ 20 

IF B3<>0 THEN ミ =T(9 の ,B3) :TA=HEX ま (B) :TB=T(1)A) EBIT ロ 3999 

ITF = ム 6 THEN 32290 ELSE =MIH 叶 ( ロ ( 己 )) 1+TBx474) TB=T(1)A) :GHT ロ 0096 

HN B3+1 GT 32 ウ 9 の 3210,32B0)32 ウ 6 

IF A>2S THEN 3279 ELSE IF ド =%H6E ロ R FE=%HAB ロ R ドド =&H79 ロ R に =%H71 THEN SE 
IF A=9 THEN ="TN" iTA=T(1,B) =TB="( に )" 5GHT ロ 999 

TF A=1 THEN =VCILIT"sTA= リ (に) "=TB=T(1B):GHT ロ 3990 

IF A=3 THEN 24 の 6 ELSE IF BMDDB= の THEN ="EEC" ELSE = リ "AD" 

TA= "HL "ETB=T(4,E2) EGHT ロ 3999 

じ 2=7 ROSEUB3976:TA=TN: TH=T(4,B2):TF BMD2= ニ の THEN 3969 ELEE TA=TBITB=TN:GUTIS 


1=INSTR(IUE ょ HEX 生 (K)+" !)/3:TF エニ 9 THEN 32 タ 0 ELSE =SU( 1 ):GDTn 2099 
TF BS<4 ロ R A>S THENS299 ELEE =T( の A+4)+TH(B) :G ロ HTC 699 

5= ニ "222 リョ TA= ニ UPPTsTB= ニ "osGHTD 3999 

7*LEL STQ ロ RE 

IF L+LL2S の 6 THEN FRINT "LBL-MAX" iRETLHRN ELSE 1T= の 9:TF し = の THEN SS49 
FR エエ =@6T ロ L-1:TF TL(1T)=S THEN 3349 ELSE NEXT 
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3336 FDR 1=6TDL-1:TF XL(T) く X THEN NEXT 

3346 J=L TL(J)=S:XL(J)=X ミ し ニレ +1 | 
3356 IF J>T THEN SMAF TL(J),TL( コ ー1 ) SMAF XL(J) ) X し (ロー1 ) = コニー1 5 BOTH 3350 ELSE RETU 
RN 

3369 PRINT "LBL- ロ BL" :RETURN 
3386 "xLBL SRC 「「 | 
3329 の IF し = の THEN RETURN ELSE IF XL>XL(L/2) THEN =L/2+1 』 ロ = レー1 ELSE = 1# ロ =L/. 
3395 IF ロ >G THEN RETURN 

34969 FDR 1=DTOGkTF XL=XL(T) THEN TN=TL( 1 ) iRETURN ELSE NEXT 

3419 RETURN 

3420 '*LBL PR1 | 

3436 PRTNT"LABEL="jLiF ロ R 1=9T ロ L-15FRINT TL(1) 5375 の HEX$(XL(T))59HVD INEXTIFRINT: 
ETURN 
4009 /X* AS 

4616 FDRI=1TD19:U(T)=" "ENEXTEPRINT "VsFNF(HEX ま (Z))57 "5FN ロ (HEX 和 (FEEK(Z))95 四 31 










CA= の 
49629 C=1ELINEINFLT Ti ロ =LEN(T) :TF T="" THEN Z=Z+1IGHT 4919 


49639 FOR 1=1TOJEM=MID(T)1)1) ITF = りり ロ R MM=V!! THEN ビ = ロ +1 ELSEE IF M=U7M THEN 49 
79 ELSE GSUB4969 iM( に )=M( に )+ 1 1 「 
4946 IF C>19 THEN 949 ELSE NEXT:GHTG 4979 

4656 FDR 1 エ =1TDLEN(S) : い =MIH ま (SB) 1 エッ 1 ) GSILIB4969 ょ MTH ま (S ヶ エ 1 )=MENEXTIRETURN 

494 ム 9 M=ASC(M) iTF MS97 ロ R M>12H THEN RETURN ELSE =CHR ま (M-32 ) iRETURN 

4679 の X=Z!M ニ " iMIL 中 (Mr 1)=(2) iER= の 6 ! ロ = : ロ = の : ゴー 5 A ニ 1 : = 本 9 

4989 T=INSETR(" ロ RG ERU END DE HB DC "NM)iIF 1= の THEN 4210 ELSE M=M() 

46?0 DN 1/4+1 GOT ロ 4199,4119,4139741204186,4299 

4109 GOSLE69969 1Z=XNiX=ZiGOT ロ S9909 

4119 GODSLIB6999:X= ニ XNEGHTI 5999 

4120 GHSLIEB6969』Z=Z+XNIGHT ロ S999 

4136 IF LL= の 9 THEN RETURN ELSE M=TL(S1-LL ) :X=XL( ヨ 1-LL) :GHSUB6969:TF ER=1 THEN FRI 
NT"LUNHF "3MyHEX 和 ま (X) GT 4179 間 
41506 K=FEEK( X ) *Z=X+1 :TF KMIOHB= の 9 THEN =FNI(XN-Z-1 ) ELSE hi=h1 IRISUES00 * LHS 

4149 GOELUEBS6S の 

4179 し LL し = し レー1 iBT ロ 41S の 

4189 FR A=3T ロ CM=M(A) :GOEUE6909:IF ER=1 THEN5949 ELSE hi=H1:GHSILES6S9:TF MPad ソ 衣 
HEN D=D2 GOSLUBS の 659 

4199 NEXTiGOTD 5939 1 
4299 A=LEN(M(1) )+6EFIR 1=A TO LEN(T)-1:H=ASE(MID(T) 1 ) ) GOESUEE9S9:NEXTIBHITH 5030 


4216 G=1IIF M(SB)>"0 ロ R M(4)200 THEN 4249 

4229 }『=INSTR( ロ (2))M) ETF 1> の THEN 1=1/4:H=7+BxTsGHTH 5999 

4236 I=INSTR( ロ (5))) ETF = の THEN4SE の ELSE 1=1/4 ロニ FNX(MIH ま (LIB) TXS+B) ) iGHTU 999 
4249 IF M<>"LD  " THEN 4319 ELSE SnSLIB4570:IF N=B THEN 42S の 

4250 Li=NxE+6iB=4iGnSUEB45796!TF NG THEN Li=5B+Hil+NIGHTI 999 

4249 D=21M=M(4) 

4279 GOSLUIB4999:TF ER=9 THEN 999 ELSE IF FC>62 THEN 5949 

42 ら 9 M=U(3)+M(4) ロニ 1 エニ INSTR( ロ (7)4W) iTF IT く > の 6 THEN 1=1/5:ER=9 : ロ = ニ 2+BXTi IF 4 THEN 
5 の 69 ELSE DH=24?iGOTO 5996 6 
4296 CA=1iG=3EM= ニ LEFT ま (M(3))1)+LEFT ま (M(4) 1) エニ INETR("(H(A(V)M) ITF TS の THEN ロニ 2 る + 
gxTIiB=4-TMCID2EM=MTD ま (M(B))2)LEN(M(E) )-2) iBHTH 4279 

4309 A=4:GDSUB4579:TF NB THEN 5949 ELSE =1+16xNiM=M(4) 3BHTI 479 

4316 M=INSTR(OD(1),M) ITF M> の 0 THEN M=M/4 ELSE M=INETR(H(B) ヵ M)EIF M=9 THEN 43B6 ELS 
E NM=M/4: ロ ニ 2 ュ ロニ 2 の 3 づ GUTO 43649 

4326 IF M(4)>""THEN SMAF_M(B) ょ (4) 

4336 IF WM(4)<>T(5,M) THEN IF M>6 ロ R M(4)<>"HLI THEN 5949 ELSE ドニ 5:D ロ TH 45Z の 
4349 GOSLBR4579:IF N< THEN =128+BxM+NIGHTH 999 

4359 M=M(3) 1GDSLIB4906 9 5 ロニ 19B+SM1 ロ = ニ ZEGUTH S999 6 

4366 IF M<B THEN ロ 1=SxM ELSE 1=44*(MM-7)+BxVAL(M(SB) ) iM( ご )=M(4) 

42379 GOSUB457 の 9:TF N=B THEN 5949 ELSE H1=hH1+NIGHTH 5999 

4386 =U(2) iCEA ニ 1:TF ="RET" THEN A=E ELSE IF MM="RET" THEN A=S ELSE 4499 

4326 GOSIJB4579:TF N=B THEN5949 ELSE =17B+Ax7+BxNIGHTH 5999 

4499 IF MM="JP" THEN ド =194:=15 ELSE TF ="CALL' THEN ド =1?6』 ロ =S95 ELSE 4459 
4419 M=MU(3)sIF M(4)2"! THEN 4449 1 

4429 IF ド に =124 AND ="(HL)" THEN ロニ ESSIGUTU 5999 

4439 DOSIJB6996 1 ロニ コミ 5HTH 59906 6 

4446 A=2iG ロ SUE4579: IF N=B THEN 互 949 ELSE MM=M(4) ロニ ド +NX BCIELB6099* ロ ーSIGHT ロ 999 
4456 IF MM="TNCE" THEN に =3 ELSE IF MM="DE に " THEN ド =11 ELSE 4479 

4449 GOSUB4576:TF N=B THEN 4520 ELSE =4+ に /+BXNIEHTI 6999 

4479 IF いい ="DJNZ" THEN =16IGHTI 459 の 9 

4486 IF ME>"JR" THEN 4516 ELSE IF M(4)="" THEN =4:GHTH 45090 

44 ジ 6 A=2:GDSUB4579: IF N:3 THEN 5 の 49 ELSE ロー コミ + ら XN ビニ B+ 1 
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@ テ キス ト が リア ル ダ タ イム で エディ ト , アセ ンプ ブル で きる / 

















佐々 木 匠 哉 











PC-8001 用 の 2 バス ・ ア セン プラ を 作っ た の で て 発表 し ま | | 
MI 


アセ ンプ ブラ の 仕様 




















す . 

この アセ ンプ ブラ は 『 シ ステ ム ・ プ ログ ラム ・ ラ イブ ラリ 
に 発表 し た MZ 選 用 の アセ ンプ ラ に アセ ンプ ブル 時 の メモ リ ・ シス テム ・ プ ログ ラム ライ ブラ リ で 発表 し た MZ 用 アセ 
アド レス 指定 , 画面 お よび プリ ンタ の リス ティ ング , エ デ ンプ ブラ と ほとん ど 同 じ で す が , マク ロ 命 令 や コマ ンド が 少 
ィ タ の サー チ ・ コ マン ド な ど を 付加 し た も の で す . 々 異な り ま す . ニモ ニッ ク は イン テル 型式 で す . イン テル 

また , この アセ ンプ ブラ の 最大 の 特長 は すべ て を メモ リ 上 型式 に 慣れ て いな い 人 の た め に , ザイ ログ - イ ン テ ル ・ ニ ニモ 
で 行なう の で , 機械 語 の 開発 が イン ター プリ タ の よう に 行 ニッ ク 対 照 表 を 表 1 と 表 2 に 示し て お きま す の で 見 て くだ 
な える こと で す . これ は , 類 わ し い カ セッ ト ・ テ ー プ へ の さい . 

や り 取 り を な くし , メモ リ 上 に アセ ンプ ブラ, エディ タ , ソン 
ー ス , オプ ジェ クト を 同居 させ て ,『 プ ログ ラム アセ ンプ だ 3 人 
ルーRUN」』」 と いう 型式 を 取っ て いる か ら で す . 馬 | ニ モニ ッ ク 

これ で , 『 機 械 語 を 作る 』 と いう 感覚 で な く ,『 イ ンタ ー プ ⑯8080 の 命令 は 表 2 を 参照 し て くだ さい 
リタ を 使う 』 と いう 感覚 で プロ グラ ム が 作れ ます . @Z802 の 命令 は 次 の よう に な っ て いま す . 

で すか ら , いま か ら 和 機械 語 の 勉強 を し て 機械 語 の プロ グ @ ザ イロ グ 型 式 の ニモ ニッ ク と 同じ 命令 は 次 の と お り で す . 
ラム を し よう と し て いる の で あれ ば , この アセ ンプ ブラ は き EX, JR, DJNZ, REX, LDI, LDIR, LDD, 
っ と 機械 語 勉 強 の 役に立つ こと で し ょ う . また , 機械 語 を LDDR, CPIR, CPD, CPDR, NEG, BITT, 
一 応 知 っ て いて , ハン ド ・ ア セン ブル を し て いる の で あれ RES, SET. 

ば , この アセ ンプ ラ の イン ター プリ タ 的 感覚 と 便利 さ に 区 @ ザ イロ グ 型 式 の ニモ ニッ ク と 異な る 命令 は 表 3 を 参照 
か が われ る に 5 と で 7" じ よ りう 5 し て くだ きい 。 





⑥ 擁 仏 ・ マ クロ 命令 は 表 4 を 参照 し て くだ さい . 


表 1-a ザイ ログ ・ ニ モニ ッ ク ー マ シン 語 対 応 表 





















































0 NOP DJNZ e JR _NZ.e JR _NC,e LD B.B LD D.B LD HB LD (HL),B 
1 LD BC, nn LD DE. nn LD HL. nn LD SP. nn LD BC LD D.C LD H.C LD (HL),C 
2 LD (BC).A | LD (DE).A LD (nn).HL | LD (nn),A LD B、D LD D.D LD H.D LD (HL).D 
3 INC BC INC DE INC HL INC SP LD B. ビ LD DE LD HE LD (HL),E 
4 INC B INC D INC H INC (HL) LD B, 晶 LD D,H LD HH LD (HL).H 
に DEC 日 | DEC D DEC H DEC (HL) LD BL LD D,L LD HL LD (HL), し 
6 LD BB, n LD D.n LD H.n LD (HL).n LD B, (HL) LD D, (HL) LD H.(HL) | HALT 

7 RLCA RLA DAA SCF LD BA LD D.A LD H.A LD (HL),A 
8 EX AF,AF' JR e JR ZZ,e JR C,e LD CB LD E, 日 LD L,B LD AB 

9 ADD HL, BC | ADD HL.DE | ADD HL.HL | ADD HL,SP | LD CC LD E,C LD LC LD A,C 

A LD A, (BC) | LD A、(DE) LD HL. (nn) | LD A, (nn) LD CD LD E, D LD L.D LD A,D 

に ) DEC BC DEC DE DEC HL DEC SP LD C.E LD EE BSD に, 所 LD AE 

C INC C INC E INC し INC A LD CH LD EE, LD L.H LD AH 

D DEC C DEC ピ DEC し DEC A LD C,L LD EE, し LD L.L LD AL 

回 LD C.n LD EE,n LD L.n LD A.n LD C, (HL) | LD EE, (HL) LD L, (HL) LD A, (HL) 
了 E FRRCA FRRA CPL CCF LD C.A LD E, A LD L.A LD A,A 
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表 1-b ザイ ログ ・ ニ モニ ッ ク ー マ シン 語 対 応 表 





























































































































































































































































A 
0 ADD A.B SUB B AND OR B RET NZ RET NC RET PO RET P 
1 ADD A.C SUB C AND C OR C | POP BC POP DE POP HL PoP AF | 
2 ADD A.D SUB D AND D OR D JP Nzinn |JPNc.nn |JPpPo.nn |Jp pnn 
3 ADD A,E SUB AND ピ OR E | JP nn OUT(n), A EX (SP), HL| DI 
4 ADD A.H SUB 日 AND H OR H CALL NZ.nn| CALL NC.nn| CALL PO.nn| CALL P.nn 
5 ADD AL |sUB L AND し ] OR し PUSH_ BC | PUSHDE | PUSH HL | PUSH AF 
6 ADD A.(HL)| SUB (HL)| AND (HL) | OR(HL) ADD A.n SUB n AND n OR n 
7 ADD A.A SUB A AND A OR A RST 0 RST 10H RST 20H RST 30H 
8 ADC A.B SBC AB |xORB CP B RET フ RET C RET PE RET M 
9 ADC A.C SBC A.C |xOR C CP C RET EXX JP (HL) LD SP.HL 
A |ApcA.p SBC AD |xORD CcP D JP Z.nn JP C、nn JP PE、nn | JP M.nn 
B |ApcA.E SBC AE | xORE CP E sHIFT & BIT | IN A.(n) EX DE、HL |Ei 
c |Apc AH SBC A.H |XORH CP H CALL Z.nn | CALL C.nn | CALL PE.nn | CALL M.nn 
pD |ApcAlL SBC A.L |xoR し CP し CALL nn |1IX 関 係 EXT IY 関 係 
E | Apc A.(HL)| sBc A(HL)| XOR (HL) | cP (HL) ADC An SBC A.n XOR n CcP n 
F |ApcA.A SBC A.A | XOR A CP A RST 8 RST 18H RST 28H | RST 38H 
表 2-a 本 アセ ンプ ラ の ニモ ニッ クー マシ ン 語 対応 表 
0 DJNZ e JRNZ e JRNC se MOV BB |Mov MOV HB 
1 LXI Bーnn |LXID_nn |LXIHーnn |LxI SsPLnn |MOVB.C |MoVD.C |MovH.C |Mov M.C 
2 STAX 日 STAX D SHLD nn STA nn MOV B.D |MOVD.D |MoVHD | MoVvM.D 
3 INX B INX D INX H INX SP MOV BE |MOVDE |MOVHE |MOV ME 
4 INR B INR D INR H INR M MOV B.H |MovD.H |MovHH |MOV M,H 
5 DCR B DCR D DCR 日 DCR M MOoVB.L |MovD.L |MovHiL |Mov M.L 
6 MVIB.n |MvID_n |MvlHLun |MVIMLn |MovBIM |MovD.M |MovHM |HLT 
7 RLC RAL DAA STC MOV B.A _ |MovD.A |MovH.A |MoVvM.A 
8 EX JR e JRZ e JRC e MOV CB |MovEB |MoOovLB |MovA.B 
9 DAD B DAD D DAD H DAD SP MOov C.C _ |MovE.C |MovLc |Mov A.C 
A LDAX 日 LDAX D LHLDnn |LDA nn MOV C.D |MovE.D |MovLD |MovA.D 
B |pcxBB DcX D DCX 日 | pcx sP MOV C.E |MOVE.E |MOVLE | MOVAE 
C INR C INR EE INR し | INR A MovcH |MovEH |MovLH |MovAn 
D |pcRc DCR E DCR し DCR A MoVC.L |MovE.L |MovLL |MovAL 
E |Mvicun |Mvig_n MVI Ln |Mvi An MOVC.M |MovE.M |MovVL.M |Mov AM 
F |RRc RAR CMA CMC MOV C.A 避 MOVE.A |MovL.A |MovA.A 
表 2-b 本 アセ ンプ ラ の ニモ ニッ クー マシ ン 語 対応 表 
ここ 8 9 
0 B B ANA B B RP 
1 2 (の ANA C で POP H PoP PSw 
2 ADD D SUB D ANA D | oRA p | JNz nn JNC nn JPO nn JP nn 
3 ADD E SUB E ANA E | oRA E | JMP nn OUT n XTHL DI 
4 ADD 日 SUB 日 ANA 日 ORA H CNz nn CNC nn cPo nn CP nn 
5 ADD し (50 間 ANA し ORA し PUSH PUSH D PUSH ロ PUSH PSW 
6 ADD M SUB M ANA M ORA M ADI n SUI n ANI n ORI n | 
7 ADD A SUB A ANA A ORA A RST 0 RST 2 RST 4 RST 6 
8 ADc B SBB 日 XRA 日 CMP B RZ RC RPE RM 
9 ADc C SBB C XRA C CMP C RET EXX PcHL SPHL 
A |Apcp SBB D XRA D CMP D JZ nn JC nn JPE nn JM nn 
B |ApcE SBB XRA E CMP E SHIFT & BIT |INn XCHG EE 
c |ApcH SBB 日 XRA 日 CMP 日 CZ nn CC nn | cp nn CM nn 
D |ApcL SBB し XRA し CMP し CALL IX EXT IY 
E |ApcM SBB M XRA M CMP M ACl n SBI n XRI n CPI n 
F |ApcA ` |sggA XRA A CMP A RST 1 RST 3 RST 5 RST 7 
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以上 が 本 アセ モン ブラ の アセ モン ブル で きる 命令 で す . これ 表 3 ザイ ログ 型式 の ニモ ニッ ク と 異な る 命令 
だ け で は , 多少 説明 不足 な の で , わか り に くい 命令 に つい 


















































































て 1 つ ず つ 閲 明 し ます JRNZ 相 対 ジ ャ ンプ 命令 は イン テル の 
ュ 。 よ RN 必 と 同 よ うに スペ ー ス だ スス 
1)0FSET 命 令 れ な い ・ 
この 命令 は アセ ンプ ブラ が 命令 を 解読 し て , 実際 に メモ リ TX 1Y ce を 4 
に 落と す と き の ア ドレ ス を 指定 する 命令 で す . た と えば , LD (Gore に は すり CT と 
OFSET $D000 と すれ ば $D 000 か ら ア セン ブル し た 例 ) SXDJD_sD000 
結果 を 順次 スト ア し て いき ます . だ か ら , 必ず ソー ス の 先 LD rr',(nn) LXD、.rLnn 
頭 に この 命令 を 入れ て くだ さい . 例 ) LXD こ B_$D000 
SBC HL, rr' SBC_r 例 ) SBC_B 
ADC HL rr' ADX こ r 例 ) ADX_B 
2)0RG 命 令 | cPr CPIN 
アセ ンプ ブル 開 始 ア ドレ ス を 指定 する 命令 で す . この 命令 
の オペ ラン ド に は メモ リ の な い ア ドレ ス も 指定 で きる の で , 表 4 擬似 ・ マ クロ 命令 
R OM の 開発 も で きま す . ! 16 進 x バ イト を スト ア 例 ) ! CD1800 
紀 ラベ ル を 定義 する . 例 ) LP ニー.$12 
0 H コメ シホ 例 ) : コ メン ト ダ ! 
する 朝 SN ru ばり 0 の 例 ) O RIG. き 0000 
M SG ヾ 訪 字 列 / | クォーテーション 内 の 文字 列 を ASCI 
4) ノ 命 令 TI コード で スト ア す る . 
この 命令 は 実に 便利 な 命令 で , 16 進 ヵ 桁 を スト ア し て く 例 ) MSG. び ASSEMBLER? 
れ ま す . た と えば , ! 010000 と すれ ば LXI ご $0000 と 同 DW_nn オペ ラン ド を し 、H の 順 で スト ア す る . 
際 CA ト 分 だ け 短 か く で きま す . また 、 省 4 人 り が 
メモ リ の 他 に デー タ を ずら ずら と 書き 並べ る こと も で き だ ここ の 2 
まま 9 な お 。 MR : い 命令 は | .  』 症 DJNAVXeHesDN キ と で | 
この 命令 を 使っ て 書く こと が で きる の で 有効 に 使っ て くだ SL メー ェ レジ スネ クーペ ゲ あ 訪 ( の 7 
本 ョ ーー ゴー0 例 ) SLX B 
SA23 SRX、r レジ スタ ・ ペ ア の 右 方 向 シ フト 
0 っ モー ゴー 回 例 )SRX B 
9 もの 8 の 人 STx (DE) 一 HL 
その 他 の 命令 は 各自 アセ ンプ ブル し て アモ セン プル ・ リ スト LDX HLー(DE) 
を 見 て ,。 どの よう に アセ ンプ ブル され て いる か 人 確かめ て くだ PRINT ク ォ テ ーション 内 を プリ ント する 。 
さい . \ 文 字 列 ? 例 ) PRINT、 い プリ ント 
GETKY 1 交 字 入力 
展 まこ INKEY リア ル タ イ ム 1 字 入力 
MM ラベ ル GETLN 1 行 入力 
・⑩ 行 の 先頭 に ある こと . の 人 
4 衝 2 05 LAA *※| A レ ジス タ に (DE ) か ら の 16 進 ASCIL コ 
ざき て ー ド を 2 進 に し て 入れ る . エ ラー CY=1 
⑨ 字 数 に 制限 は な 科 マ く チ 2 LAH *※| HL レレ ジス タ に (DE) か ら の 16 進 ASCII コ 
リス ト が 見 づら く な る ・ ー ド を 2 進 に し て 入れ る . エラ ー 中 CY ニ 1 
ラベ ル の 後に 『: ュ ri 提 yh | RA ※| A レ ジス タ を プリ ント 
PRH *※| HL レ ジス タ を プリ ント 
oe る ゞ 9 レジ スタ が 0 か テス る . 
話 | ォ ペラ ン ド 9 レン ンジ 4 が がり 
1) ニ モニ ッ ク と オペ ラン ド 間 の 区 切り は スペ ー ス で ある こ CE ほこ ゃ レジ スタ を クリ ア す る . 
二 、 CLX、r レジ スタ ・ ペ ア を クリ ア す る . 
| OFSET、mn | コン ピュ ー タ 内 の メモ リ に 落と す 実 際 の 
2)MOV, BIT, RES, SET 命 令 の オペ ラン ド 間 の アド レス 柄 
区 切り の み コ ンマ で , 他 は スペ ー ス で ある こと . 注意 ) * の 付い て いる 命令 は この アセ ンプ ブラ が な いと 動作 し ませ ん . 
3) ス ペー ス は いく ら 入 れ て も 良い . 
グラウ ツク ォ ー ゲ ー ジョミ ジン 4 ASCII 
4) 2 バイ CTR pa 1 
スペ ー ス は 定義 で き な い . まだ た , ダブ ル ・ ク ォ テ ーション 数 字 09i|.10 進 
を 定義 むる と き は 次 の よう に 2 つ 並 べ れ ば 良い (MV 1 あの 2 
な ラベ ル ラベ ル 下 位 
5) ラ ベル の 最後 に 10 進 加減 算 が 可能 . 
人 @ 2 バイ ト 命 令 の オペ ラン ド 錯 3 4 バイ ト 命 令 の オペ ラン ド 
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数 字 0 一 9 | 10 進 
ドル ・ マ ー ク $ 16 進 
ラ ベル ラベ ル 











ェ ラー 


1)MNEM ERROR 
ニモ ニッ ク の つづ り 間 違い .、 また は ニモ ニッ ク の 先頭 に 
スペ ー ス が な いな ど . 


2)OP ERROR 
オペ ラン ド が その 命令 の ニモ ニッ ク に 合わ な い . オペ ラ 
ンド の 書き 忘れ な ど . 


3)UNDEF LABEL ERROR 
ラベ ル の 書き 忘れ ,。 つづ り 間 違い な ど . 


4)LABEL NAME ERROR 
ラベ ル の 先頭 に 『「0』ー『 9 』 が あっ た .『 十 』」『ー』 が 合 
れ て いた な ど . 


5)JMP ERROR 
相対 ジャ ンプ の 範囲 を 越え て いる . 


6)LABEL TABLE FULL 
ラベ ル ・ テ ー ブ ル が メモ リ の な い 範 囲 に きた . 


7)*MEMORY FULL 

エディ タ の エラ ー で , テキ スト ・ エ リア が FULL に な 
っ だ と イッ ンー ニー ドモ ー ド で と の エラ ー ガ が 出 だ ら 。 
STOP| キー を 押す こと . 


8)Tape read error 

これ も エディ タ (ROM) の エラ ー で す . これ は テー プ 
の 読み 間違い , キー が 押さ れ た な ど で す . こ の エラ 
ー が 出 た ら N-BASIC に 戻っ て いま すか ら , mon [CR| で ホ 
ッ ト ・ ス ター ト に ジャ ンプ させ て くだ さい . 


上 記 1) 一 5) の エラ ー は 六 番 号 と その 行 を 表示 し て 止ま り 
ます . エディ タ に し て その 行 を 書き 直し て くだ さい (LP 
は エラ ー の 行 に ある ). 


回 | アセ ンプ ラ NN な 2 


モニ タ は N-BASIC の ROM を コー ル し て いま す . 宏 る と 
き は [CTRL| [Bl を 入力 し て くだ さい . 
テー プ の ロー ド , セー ブ , メモ リ の 読み 書き は これ で 行 
な っ て くだ さい . 
画 各 コマ ンド 使用 上 の 注意 
1) 各 コマ ンド は 『※* ょ の 出 て いる と き 入 力 し , カー ソル の 
上 下 の 移 動 は し な いで くだ さい . 
2) プ リン タ ・ モ ー ド に し て プリ ンタ が 接続 され て な い 場 
合 は , ISTOPl キ ー を 入力 し て くだ さい . 
3) 〇 コマ ンド は ラベ ル の ある ソー ス を アセ モン ブル し た 後 
で 使用 し て くだ さい . 
4)A,O 〇 コマ ンド は 出力 中 , キー 入力 が ある と スト ッ プ し 
ます . 好き な キー で 続き が 見 れ ま す (B コ マン ド は ス 
ペー ニー スキー が スト ッ プ ). 


アセ ンプ ラ ・ コ マン ド 表 を 表 5 に 示し て お きま す . 
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表 5 アセ ンプ ブラ ・ コ マン ド 


コマ ンド | 機能 お よ び 使 用 法 | コマ ンド の スト ッ プ 法 





















































*A アセ ンプ ブル 
ネ B アセ ン ブ ル & リス ト 
※A ま た は B 
LABEL NAME FROM ? E000 
*Mm m か ら メ モリ ・ ダ ンプ 鐘 大 廊 字 
ネ ※J m m へ ジャ ンプ 
*1 モニ タ を コー ル CTRLlgl 
*E エディ タ を コー ル 判 RI[RET| 
* 〇 ラベ ル ・ テ ー ブ ル を 出力 較 
* 圭 プリ ンタ ・ モ ー ド の 切り 換え 
| *P 入力 行 を プリ ンタ 出力 
回 | バ > 
⑯PASS0 
ラベ ル を バッ ファ に スト ア 
@PASS1 
ラベ ル を 定義 し な が ら ア セン ブル 
PASS2 


定義 8 きれ た ラベ ル で アセ ンプ ブル . この と き B コ マン ド で 
あれ ば リス ト を 出力 し . プリ ンタ ・ モ ー ド で あれ ば , プリ 
ンタ に も 出力 する . 

PASS0 一 2 は アセ モン ブラ が 自動 的 に 切り 換え ます . 


その 他 の 規則 


⑱ ラ ベル の 2 重定 義 を し な い ( エ ラー が で な い ). 

@OF SET 命令 を 必 ら ず 先 頭 に 入れ る こと . 

マル チ ・ ス テー トメ ント が 可能 . 

⑳ ア セン ブル する と き は , ソー ス ・ プ ログ ラム と オプ ジェ 
クト ・ プ ログ ラム , お よび ラベ ル ・ テ ー プ ル が 重 な ら な い 
よう に 注意 し て くだ さい . 

JR 命令 は ラベ ル で 定義 し て くだ さい . 

【 例 】] LOOP DJNZ LOOP 

ニモ ニッ ク の 先頭 は スペ ー ス で ある こと . 


旧 4 エ テ ィ タ の 仕様 


MZ 用 に 作ら れ て いた も の を PC 用 に し た だ け で , ほ と 
ん ど 変 わっ て いま せん . N-BASIC で スク リー ン ・ エ ディ ッ 
ト を 使え る 人 で あれ ば , だ れ で も すぐ に 使い こなせ る と 思 
いま す . 





馬 | エ ディ タ ・ コ マン トド 
表 6 に エディ タ の コマ ンド を 示し て お きま す . 


昭 | エディタ 使用 上 の 注意 


1) タ イプ ・ ア ウト 中 に キー 入力 が ある と , 次 に キー 入力 が 
ある まで 停止 し ます . この キー 入力 の と き , [ 図 を 入力 す 
れ ば コマ ンド 待ち に な り ま す . 他 の キー は タイ プ を 続け 
ま : す > 

2) エ ディ ッ ト は BASIC 同 様 に カー ソル を 使っ て 書き 換え , 
恨 gETI を 入力 すれ ば エディ ッ ト で きま す . 





3) イ ン サ ー ト ・ モ ー ド で は カー ソル ・ エ ディ ッ ト で きま せ 
ん . この モー ド を 抜け る に は , [RET] キ ー の み 入 力 か [STO 
キー を 入力 し て くだ さい . 

4) プ ログ ラム を テー プ か ら 結 合 す る 場合 は ,、 まず , 貴 コ マ 
ンド と 回 コマ ンド で テキ スト の アド レス を 調べ て お き , 

















X コ マン ド で の アド レス に テキ スト ・ ポ イン タタ を 置き , 








2 さら Ye050 二 MESS 友 

ロー ド が 終わ っ て か ら 談 コマ ンド で テキ スト ・ ポ イン タ 
を 司 の アド レス へ 戻し ます . この 操作 に よっ て RAM 上 
の プロ グラ ム の 後に , テー プ の プロ グラ ム を 結合 する こ 
と が で きま す . 

5) X コ マン ド で テキ スト ・ ポ イン タ を 変更 し て , 新しく プ 
ログ ラム を 入力 する と き は & コ マン ド で クリ ア し て お い 
て くだ さい . 

6) ロ ー ド 中 は [STOP| キ ー を 押さ な いで くだ さい . 

7 コマ ンド eZ2 レ ミカ ン に ジャ ン ン 9 る と 7 エン フラ 
に 戻り ます . 

8) ブ プリ ンタ の 接続 きれ て な い 場 合 、 プ リン タ ・ モ ー ド を モ 
ッ ト し な いで くだ さい . 


プロ グラ ム の 入力 


この アセ ンプ ブラ は 32K シス テム 用 に アセ ンプ ブル し て いる 
の で , 16K の 人 は メモ リ を 買う か , カセ モッ ト ・ サ ービス を 
し て も ら う と 良い と 思い ます . 

32K シス テム の 人 は ダン プ ・ リ スト か ら 入 力 し て くだ さ 
い . 

5 K バ イト 弱 の プロ グラ ム な の で , 入力 は 慎重 に 行なっ 
GL く 37GCSRMG 1 


川 罰 アセ ンプ ラ の 便 用 法 


アモ ンプ ブラ の 使い 方 を 述べ る 前 に 1 つ 重 要 な こと を 書い 
て お きま す . それ は OFSET 命 令 と ORG 命 令 の 関係 で 
す . これ は 不 連続 アド レス へ の アセ ンプ ブル の と き に , と て 
も 重要 な こと な の で 頭 に 入れ て お いて くだ さい . 

説明 の 都合 上 , 例 を 出し て 説明 し ます . た と えば , $ 
000 一 と $E100 一 に プロ グラ ム を 作成 し た いと し ます . こ 
の と き , PC に は メモ リ が ある アド レス な の で 次 の よう に 
2 ます 

OFSET $E000 ORG SE000 
| 一 命 令 (アセ モン ブル 記述 ) 

OFSET $E100 ORG SE100 
@ 「 一 命令 (アモ ン ブ ル 記 述 ) 

ここ で 下 の 方 の OF SET 命 令 を 取っ た ら ど の よう に な 
る か と 言い ます と , 夫 の アセ モン ブル 終了 アド レス に 続け て 

















$E100 か ら の プロ グラ ム を アセ ン ブ ル す る こと に な り ま す . 


だ か ら そ の まま 走ら せる こと は で きま せん . 

これ を 走ら せ た い な ら @ の プロ グラ ム を $E100 に ブロッ 
ク 転 送 し な けれ ば な り ま せん . 逆 に 今度 は ORG 命 令 を 取 
っ た ら ,$E100 に プロ グラ ム が アセ ンプ ブル され ます が , こ 
の アド レス で 直接 走ら せら れ ま せん . 走ら せる に は , リロ 
ケー ト し な けれ ば な ら な く な り ま す . 
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表 6 テキ スト ・ エ ディ タ の コマ ンド 表 
































ュ マ ンド | 機 能 の 
ト :30 LP か ら タ イプ 無 
# せ TA 条 ダ イプ 無 
Tn n 行か ら タ イプ 有 
#P LP を エン ド に 移動 有 
半 Pn LP を n 行 へ 移動 有 
PB LP を 1 行 目 へ 移動 有 
#D LP の 行 を 1 行 削除 無 
#Dn n 行 目 を 削除 有 
DPn LP よ り n 行 削除 無 
半 1 LP か ら イ ン サ ー ト する . 有 
せ Wf セー ブ プ (テキ スト の み ) 無 
#L ロー ド (・ の アド レス か ら ) 無 
キ Xm テキ スト ・ ポ イン タ を m に する . | 有 
3 テキ スト の 先頭 アド レス 表示 (テキ スト ・ ポ イン タ ) 無 
革 ・ テキ スト の エン ド ・ ア ドレ ス 表 示 無 
# ブ LP の 文 番号 表示 無 
韻 す m m ヘ マシ ン 語 ジャ ンプ する 。. 無 
ト ・ 王 4 ニュ ー〔NEW〕) テ キス ト ・ ポ イン タ の ア 有 
ドレ ス に 00 を スト ア 
#E エディ ッ ト ・ モ ー ド に する . 有 
せ R テキ スト ・ エ ディ タ か ら リ ター ン す る . 無 
せ Ss s と 言う 文字 列 を サー チ し , あれ ば LP 有 
を その 行 へ セット し, な けれ ば 最終 行 へ 
セッ ト す る . 
壮 壮 プリ ンタ の モー ド 切 り 換 え 無 





nーIQO 進 到 m 三 |6 進 4 桁 7 ニ フ ァ イル ・ ネ ー ム (2 文字 ) 
s 三文 字 列 LP ニ = ニラ イン ・ ボ イン タ 


注意 : テキ スト ・ ポ イン タ と 言う の は テキ スト が どこ か ら 始 まっ て いる か を 示 
し て いま す . この アド レス を 変更 すれ ば , メモ リ 上 に 複数 個 の テキ スト 
を 置く こと が で きま す . その コマ ンド が X コマ ンド で す (アセ ンプ ブラ は , 
テキ スト ・ ポ ボ ポイ ンタ の ある プロ グラ ム を アセ ン ブ ル し ます ). 











実行 例 1 
FC-800C1 RSSEMBLER UER 5 ** 
1 

実行 例 2 
\E 
1 
#1 
DFSET *$CODO DRG CUG 
WMUI R Sn 


LHHF FUSH PSM 

ER " 間 " ERLL 生 1 

MMI RH ア 。 CRLL ま 14 

FDF PSM DCR R JRNZ LDHF 














以上 の よう に , OF SET 命 令 と ORG 
係 で すか ら 注 意 し て くだ さき さい. 

で は , アセ ンプ ブラ の 使用 法 を 述べ て 行き た いと 思い ます . 
プロ グラ ム は 入力 され て いま すか ? 入力 され て いれ ば 一 
応 モ ニタ で セー ブ し て くだ さい . それ で は モニ タ か ら *G@ 
81OO [RET| と 入力 し て くだ さい . 実行 例 1 の よう に 表示 さき 
れ コ マン ド 待 ち に な っ て いま ず . さあ, アセ モン プラ で の プ 
ログ ラム 開始 で す . 

まず は エディ タ を コー ル し ます .[ 加 RET| と 入力 し て くだ 
さい (小文字 も 可 ).、 コー ルド ・ ス ター トト 直後 は & コ マン ド 
は 入力 の 必要 は な い の で す が , [IRET| と 入力 し テキ スト 


/ 


令 は 密接 な 関 
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実行 例 3 





#TH 
DFSE 
MMI 
LHDP 


OO URG まじ DOn 


CN EtO mm 
つつ で で ユ ゴ 





hl r 
FDP FSM DCR H JRRZ L ロ ロ F 
_F 81HS 





-Y 


E: コ 





実行 例 4 





電 E 

# 則 

LHEEL NHIE FRDI ROD 
F リ 





五 
3 
1 
Ta 





実行 例 5 








HFPE FR HP 


HFSET * ま CCnn 






































を クリ ア し ます . それ か ら 呈 RET| と 入力 し イン サー ト ・ モ 
ー ド に し て 次 々 と ソー ス ・ プ ログ ラム を 入力 し て いき ます . 
実行 例 2 を 見 て 入力 し て くだ さい . 入力 を 終わ っ た ら , 
IRET] キ ー の み 入 力 す る と コマ ンド 待ち に な り ま す (入力 は 
小 廊 字 で で きま す . クォーテーション の 中 は BAS1IC の ょ 

う に 必要 で あれ ば 大 文字 に し ます ). 

それ で は , 入力 され た も の を リス ト し て 見 まし ょ う . コ 
マン ド は TA で す . 実行 例 3 の よう に リス ト き され た と 思い 
ます . ここ で 誤り が あれ ば 剛 [ 選 ET と 入力 し , カー ソル を 使 
っ て BASTIC と 同様 に エニ ディッ ト し て RETI キ ー を 入力 









































し て くだ さい . 下 ま で IRET| を 入力 する と コマ ンド 待ち に な 








り ま す . 
いよ いよ アセ モン ブル で す . まず 恨 |[RET| と 入力 し エディ タ 

















7 和久 


写真 1 エディ タ ・ モ ー ド で テキ スト を 作成 


信 ご こら BB CORG $ こ CB98 
を た 】 
3 お 8 


に |) 
1 :」 


いい に いい FE うり いい りこ 


NZ Vp 
JHP *CGBg 
PP 導 ウ 間 | 


は 





写真 2 B ロ コマ ンド で アセ ンプ ブル が 完了 


OFSET $*C ら 99 
ORG 信 





写真 3 で き 上 が っ た プロ グラ ム を 実行 し た と ころ 


導 GC ら 998 





か ら ア セン ブラ に 制御 を 移し ます . 実行 例 4 の よう に コマ 
ンド と アド レス を 入力 すれ ば , PASS0 一 2 まで 表示 し 
て アセ ンプ ブル を 終了 し ます . 

ここ で も う 走 ら せ る こと が で きる の で す が , 一 体 ど の よ 
うに アセ ンプ ブル され て いる か , B コ マン ド を 使っ て みる 
こと に し ます . 操作 は A コ マン ド と 同じ で す . 実行 例 5 
の よう に 表示 され ます . これ で いか に アセ ンプ ラ が 便利 な 
シス テム ・ ソ フト で ある か わか っ て いた だ ける と 思い ます 

次 に メモ リ ・ ダ ンプ と ラベ ル 表 示 を 行ない まし ょ う . 実 
行 例 6, 7 の よう に 入力 し て くだ さい . メモ リ ・ ダ ンプ "は 
大 文字 の 談 を 入力 する と コマ ンド 待ち に な り ま す . 

一 応 ア セン ブル が エラ ー な く 終 了 し た と ころ で , ソー ス 
・ プ ログ ラム を セー ブ し まし ょ う . まず , [ 加 限 g 証 | と 入力 し 
エディ タ に 制御 を 移し ます . そし て WO 〇 O 〇 と 入力 ( 〇 は フ 
ァイル ・ ネ ー ム で , 必ず 2 女 字 必要 ) し て カセ モッ ト の PL 














AY ボ タン と REC ボ ポタ ン を 押し て 恨 ET エ キー を 入力 し ま 
す . 
余談 に な り ま す が , ファ イル ・ ネ ー ム の 6 廊 字 は 少々 中 
途 半 端 を な 長 さ で, 6 文字 で は どう も 足り ませ ん . MZ の 16 
文字 で も 少々 短 か い くら いで す . どっ ち に し て も 短 か い の 
で あれ ば 思い きり 短 か く し よう と 言う こと で 2 廊 字 に し ま 
1 

セー プ ブ が 終了 する と 『 ピ ー』 と 音 が し セー ブ 終 了 を 知ら せ 
ます . ロー ド は 実行 例 9 の よう に し ます -. 

それ で は , こん ど は オプ ジェ クト を セー ブ し ます . も う 
一 度 ア セン プラ に 制御 を 移し て , | ET| と 入力 し ROM モ 
ニタ に し ます .。 これ は マニ ュ ア ル に 書い て ある モニ タ で す 
か ら , そちら の 方 を 良く 読ん で セー ブ し て くだ さい . 実行 
例 10 に 一 応 示 し て お きま す . 


時 | つい で の お 語 


私 は この アセ ンプ ブラ を 作成 する き っ か け に な っ た の は , 
自作 マイ コン ・ シ ステ ム SKY- 用 の ROM 開 発 だ っ た の で す . 
この SKY- 妥 は CPU に Z80A を 使い , 4 MHz で 動作 し て 
いま す (4.5MHz で も 動作 し た ). CRT デ ィ ス プレ イ に 秋 
月 の VDG を 使っ た 256 X192 の グラ フィ ッ ク や PSG を 使 
た シン セ サ イ ザ な どの ハー ド を 生か す ソ フト は , どう し て 
も アセ ンプ ブラ に 頼ら ざる を 得 ま せん . 

し か し , Assembler ver 3.0 で は メモ リ の な い ア ドレ ス 
に アセ ンプ ブル で き な い , アセ ンプ ブル ・ リ スト が で な いな ど 
で , SKY-Z の ROM は 開発 が で きま せん で し た . そこ で 
頭 に き て , ver 3.0 で アセ ンプ ブラ を 記述 し た わけ で す . 

アセ ンプ ブル 記 述 の アセ モン ブラ だ か ら 変 更 が 容易 に な り ま 
し た . それ で いろ いろ 付加 し て MZ 用 の アセ ンプ ブラ に し ま 
し た . そこ で 稚 が 出 て 、 PC 用 を 作っ て みよ うと 思っ だ た の 
が 運 の 尽き で 。 PC 用 の 1/O ル ー チ ン や テー プ の ロー ド ・ 
セー プ , プリ ンタ な ど を 調べ て ソー ス の 変更 を 行なわ な け 
れ ば な ら な いと いう 奄 劇 が 起こ っ た の で し た . 

それ だ け な ら 良い の で す が , で きた プロ グラ ム を PC に 
入れ る 手段 が あり ませ ん . テー プ の セー プ ブ ・ ル ー チ ン を M 
Z に 入れ る し か な いと 思っ て いた と ころ へ ., 1/0O "80 年 10 月 
号 に 『MZ つ PC テー プ 変 換 プ ログ ラム 』 が 載っ て いた の 
で , さき うそ く 大 力 し て 使っ つて み ま し た . この プロ グラ ム は 
正 に 天 の 助 け で し た . 

運 良く 基本 機能 は 9 月 の 末日 に 動作 し まし た .. それ か ら , 
何 日 も か か っ て デバ ッ グ を し て や っ と 完成 し た の で し た . 
まっ た く PC を 持っ て いな い 私 が な ん と MZ 上 で PC の ア 
セン プラ を 完成 きせ た の で す . PC の ユー ザー の 皆さん , 
MZ の ユー ザー に 負け な いよ うに 頑張 っ て くだ さい . M 用 
の ユー ザー の 皆さん も 負け ず に 頑張 っ て くだ さい . 

SKY-Z は 一 体 ど うな っ た か と いう と , いま , フル グラ フ 
ィ ッ ク 上 で BASIC SP-5010 が 動作 し . R AM は D-RAM48 
K, V-RAM 6K, WORK RAM2K, ROM2K が 乗っ て 順調 に 
動い て いま す . 








呈 後書き 


今回 の プロ グラ ム は 今 ま で に な く 疲 れ ま し た . 何と 言っ 
て も 私 が PC を 持っ て いな いと いう こと が 一 番 疲 れ た 原因 





| 則 





』O 


実行 例 8 
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実行 例 9 
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LUHDIHG TS 
OK 
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実行 例 10 





# ド 
玉 ! 


MC  E ロ 14 
Pd 











だ っ た よう です. 今度. PC 用 の ソフ ト を 発表 する と き は 
PC を 買っ て いる か も し れ ま せん . 

最後 に お まけ と し て , 『 シ フト 系 ロー テー ト 命 令 早 見 表 』 
を 付け て お きま す の で 利用 し て くだ さい . それ で は , また 
の 機会 に . 


只 参 考 文献 
1)1/O 別 若 シ ステ ム ・ プ ログ ラム ライ ブラ リ 2)1/O, "80 年 2, 
3 10 月 号 3)ASCIL, 80 年 9 月 号 4)N-BASIC 入 門 (AS 
CI 出版 ) 
.・ @ カ セッ ト ・ サ ービス の お 知ら せ @ ・…・ 
PC- 8001 版 2 パス ・ ア セン プラ は 。 約 5 K バ イト の 大 き 
さき が あり ます . カモ セット ・ サ ービス は 1/O で 行なっ て いま 
す が , キャ リー ラボ ラ ト リ で も カモ セット 販売 を 行なっ て い 
ます .~- ご 利用 くだ さい . 
PC 版 (32K 用 ) \5,000( 送 料 込み ) 
PC 版 (16K 用 ) \5.000( 送 料 込み ) 
郵便 振替 口座 熊本 18846 
販売 元 キャ リー ラボ 
〒860 功 本 市 保田 窪 本 町 1000-2 
1/O0 の カセ モッ ト ・ サ ービス は p.144 を ご 覧 くだ さい . 
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RL トド に 02 0A 12 1A 22 2A 32 3A 
GY_ 7 0 

RR 03 0B 18 1B 23 2B 33 8B 

SLA サイ ニー 04 0C 14 1c 24 2C 84 3C | 

SRA | 05 0D 15 1D 25 2D 85 3D 

に je= 計 款 ] 
STI け イ 」 06 0E 16 1E 26 2E 36 8E 
SRL ロ 07 M 0F | 17 1F 27 2F 和 37 3F 
PC- 8001 版 2 パス ・ ア セン プラ (32K 用 ) 

8100 C3 RE 8F C3 C3 8F CU 7E 1B 11 96 EC 3E 2n 32 43 84FD ED 5 81 1H FE HI CS CH H5 34 18 F4 SR 4 FF 22 
8110 21 1H FE 22 CC 28 81 B7 28 7 CD 32 21 12 13 18 9500D 49 FF EB 21 397 EC 42 4E HH EE 28 12 7EFE 0D 28 
812n FO 3E DD 12 11 95 EC C9F5 3R 43 81 EE 20 32 43 S51( BE 1H FE 0D 28 11 21 97 ED 13 18 EH HF LC9 7E FE 
8130 81 F1 C9 FE 61 DI8 FE 7B DO C5 4F 3H 43 81 4?7 79 8520 DD 28 F9 0n3 232 18 E1 37 P9 13 1H FE DI C8 CD FC 
8140 9n C1 C9 00 3E OU CH R5 40 3E 0nR C3 HR6 40 3E 20 2530 84 3 5 ED 7E 82 1P BZ C82 19 F3 HE5R 82 Fn 
8150 C3 H5 40 05 1H FE nD 28 06 13 CD R6 40 18 F5 D1 8540 82 37 C9 CU n6 81 CD 34 82 7 B5 C8 H5 CD 85 82 
8160 C9 3E 07 C3 RE 4D FE 30D D8 FE 3H 38 n9 FE 41 D9 8550 2H 48 FF 22 4 FF CH 55 S4 Q1 19 CD H5 84 18 E3 
8170 FE 47 38 05 37 C9 D6 30 C9 D6 37 C9 1R PD 66 81 5560 11 C3 85 D5 32E 23 CU HE 4n CD n6 31 #R FE 25 PH 
S180 D8 CS 07 n? 07 n7 4F 13 1R CD 66 81 38 02 81 13 557D 39 34 FE 52 CR 29 25 FE 54 CH 2R 83 FE 4C FR5 
8190 C1 C9 05 CD 7?C 21 38 07 67 CD 7C 81 38 01 6F D1 852n 283 FE 57 CH 39 33 FE 2C PH 4C 84 FE 2E CR 52 84 
81RO C9 0O Qi 0E DO 0C 29 30 FC CD D2 81 E5 21 nn nn SS53n FE 23 CR <Z7 SG FE 2ZF PR 4n 84 FE SH PH 5F 84 FE 
81B0 E3 7B 95 5F ?H 3C 57 23F 28 n4 EB 19 EB B7 E3 7D 95RD 4H CH 52 824 FE 52 CH 27 2B4 FE 44 PH 8P 984 FE 49 
81C0 17 6F 7C 17 67 E3 DD 28 05 CD D1 21 18 E3 E1 EB 55BD CH FI 84 FE 45 CR 43 25 FE 52 28 HER FE In 28 ロ F 
81 ロ 0 C9 BZ 7C.1F 6? 7D 1F 6F C9 21 9B EC 05 Q6 3 2D 85C0 11 03 35 CD 53 81 C9 n1 C9 CO 44 81 C3 60 85 D1 
81EU 2B 1 り FB 21 9B EC 36 nn E5 21 nH nn CD H3 81 7D S5UU C3 5 85 43 4F 4D 40 41 4E 44 2n 45 52 52 4F 52 
81FI C6 30 E1 2B 7? 7B B2 20 EF DP29C5 E5 [5 PH [9 81 85EOD DU 11 E5 35 19 45 4F 5n Q ロ D 11 EE 25 18 2E 4D 4E 
8a0D CD 44 81 11 9? EE CD 53 81 [1 E1 C1 C9 D5 E5 DS S5FI 45 4D nH 11 F8 85 1S8 3 4E 44 45 46 2 4D 41 
8810 CD D9 81 EB CD 53 81 D1 E1 C1 C9 C5 D5 44 4D 21 86n0 42 45 4C OU 11 09 86 18 23 4P 41 42 35 4P SO 4E 
8220 00 nO CB SH CB 1B 30 n1 0n9 CB 21 CB 10 7R BS 20 S610 41 4H 45 DU 11 19 SE 18 13 4H 4D 5D D 11 22 85 
8230 F1 D1 C1 C9 21 DO QO 1H FE Zn 20 3 13 18 F8 FE 2520 19 nH 32 44 45 46 20D 4 とじ 41 42 45 4C CH 44 81 CD 
824 ロ 30 38 18 FE 3R 30 14 DS F5 11 DR nO CU 1E 82 F1 2630 53 81 11 44 86 CD 52 81 ED 44 81 CH ER 282 CD Pg 
8250 16 OO D6 3n 5F 19 D1 13 1H 18 E4 BZ C9 En 58 49 864U SC CS C3 8BF 2 45 S2 5S2 4F 52 nD E5 21 QQ nn ED 
Se6H FF iR BZ 28 8 FE 0D 28 03 13 18 FS 13 EH 53 48 265D 3B 48 FF 1H FE 3n 28 12 FE 2R 3 ロ 0F n6 2n 29 44 
8270 FF C9 ED SB 40 FF ED 53 42FFC9CD72 82 CD 5D 866 4D 29 29 n9 4F n5 nn 9 13 18 ES EB E1 C9 E5 21 
82g0 82 ED 53 40 FF C9 Eh SB 42 FF ED 53 48 FF 44 4D g67 ロ ロ U OO ED 5B 48 FF 13 1H FE 3 36 EF FE 4? 3 EB 
8230 UB 78 B1 C9 CU 5D 82 DB 1H BZ D93 18 F4 21 FF FF 868 FE 3H 328 1 FE 41 3n 1 18 E1 29 29 29 29 4F H6 
82RO 22 46 FF 2RH 42 FF 822 48 FF 18 US CD E5 82 2R 48 269n On 09 18 E2 D5 32n 18 F2 H6 37 18 EE 3R 5nFF B7 
82B0 FF 7E B7 C8 CD C8 82 CD RC DF B7 28F1 Ch 75 nF S6RD CS 1H FE 23 C2 05 88 13 EH SS 48 FF CH n5 88 SH 
82Cn CD HEC DF FE 78 C8 18 EE E[ 5E 4E FF 13 Eh 53 46 26BU C3 EH 5R 4 FF 1H 13 FE DD 2 ロ FR ED 532 4nFF C9 
82DOD FF 13 CD FR 81 CU 4E 81 ED SB 42 FF CD 53 81 CD 86 じ H ED SB 48 FF 3H FE 2n 2n 03 13 18 FS EH 53 48 FF 
SeEU 3H 33 C3 5D 82 2R 42 FF 22 48 FF 01 FE FF n3 2R 36D C9 ED 5E 48 FF 1H FE 2 2G F2 13 18 F8 ED 5E 498 
82F0 48 FF EH 5B 40 FF B7 En S2 3n 0D5 CH 5D 82 19 EE 86E FF 1H FE Zn 28 E6 FE Qn 28 ES 13 18F4 CH F3 85 
8300 ED 43 46 FF C9 11 97 EC CD 34 82 CD 85 82 2R 48 geF0 C3 4D 87 CH D1 86 18 Cg DE DO 21 51 91 ED 5B 48 
831 FF 22 4 FF C2 CD ロ 5 83 CH HB 22 9 2R 42 FF TE 8700 FF 79 FE 68 C8 1H BE 2n HB 7E FE nD CS 83 13 18 
8320 B7 28 3 23 18 F9 22 44 FF DC9 2R 97 EC FE DD PR 8710 F4 7E FE DU 28 OR 23 7E FE OH 2n FR 22 DC 18 nh 
8330 HE 82 FE 41 CH 9D 82 18 DC 13 1H 32 R1 81 13 1H 872n 1H FE 2U ES 18 EE DE IT 2HN 4E FF EH 5R 48 FF 79 
8340 FE OU CS8 32 R2 S1 CU 1C 83 ED SE 42 FF 2H 44 FF 872 FE 08 C8 1H BE 20 08 7E FE DD C8 23 13 18 F4 7E 
8350 23 B7 ED 52 EB 7B B2 28 38 C0 46 0C n6 nH 3E B9 874 FE DU C5 23 7E FE ロ D 2n FR 23 PF 18 hE E5 21 3 
835 CH DR DC 10 FE 7R CH nH nC 7B Ch nHR OF SR H1 81 8750 93 22 4E FF CU 26 27 E1 C9 E5 21 1D 93 12 F2 E5 
S37 CD DR ロ C 3R H2 81 CD HH ロ C n1 Dn DO 0B 78 B1 20 875n 21 13 933 18 ED E5 21 25 93 18 E6 79 n7 07 07 8n 
838 ロ FB ?E Ch DR DC 23 1B 7R B2 2n F6 CU 2E nF PC3 61 9770 77 23 CH F3 26 1H FE 24 298 11 FE 22 28 12 FE 3 
8330 S1 CD 44 81 11 9H 83 3 52 81 53 41 56 45 2n 45 87SH 38 13 FE 3R SO DF CD 4B 85 18 0D CD 5E S6 1S n8 
83HD 52 52 4F SZ DO ED 5B 42 FF 21 FF E9 BE7 Eh 52 EFD 8720 13 1H 5F 12 3 CD 2C 26 73 22 9 1 nn ロ O SH 4H 
83BU F3 DB D5 DR CH 8g HC FE B9 2n F7 1 F7 CFD 89 nC 87RU FF Eh 5E 48 FF 7E BZ CH F3 85 1H BE 20 8 7E EE 
83CD 47 CH SS CE 4F CD 88 nC 32 R1 81 CH 88 OC 232 RZ YBI DD CB 23 13 18 F4 7E FE DD 28 DR 23 7E FE nh 2n 
8S3HD 81 C5 DS5 11 1E 84 CD 52 8 は 1 2H H1 81 CH 18 On 3H 87CO FR 23 03 18 DE 1H FE En DS FE 2E CS FE 2h PS 18 
283ED He 81 CH 18 nh1 1 B7 E[I 42 EE 38 17 CU 88 DC 87Dn FU 60 69 29 EI 4B 4C FF 09 5E 23 56 C2 13 En 53 
83FD ?? 5F 223 DB 78 B1 2n F5 CD 31 nC CH 44 81 11 1B 87EH 48 FF CS5 CU 4B 25 C1 H5 CH ロ 1 8? 2 6B n1 19 EB 
8400 34 C3 S3 81 CD 31 nE 11 nE S4 Ch 53 81 C9 2H 4h 87FOD C3 1S3 EH 53 48 FF C5 CD 4B 267B 2F 5F 7H 2F 5? 
8410 45 4n 4F 52 59 20n 46 55 4 じ 4P 0 4F 4B OUD 4P 4F 8800 13 19 E3 18 17 E5 CU 9B 87 1H FE 2B 2S 9 FE 2h 
842H 41 4 482 4E 47 2n nD 13 Ch 92 81 DS 22 42 FF FD 8810 28 ロ H CH 1 87 E1 9 CH P じ 8? E1 C9 CH F1 7 E1 
843n 1 じ 83 2HR 42 FF 22 4 リ FF C9 2R 42 FF 36 nD 18 F2 S520n C9 CH F3 S6 1H FE 24 25 1n FE 30 38 11 FE 3R 3D 
244 CD E5 82 2H 96 FF 23 23 EB C32 nD 82 2H 42 FF 3 8830 DD CD 4B 85 73 23 72 23 C9 CU 6E 26 18 FE CD n5 
8450 35 91 CH 1C 83 C32 36 91 13 CH 92 81 2 D1 E9 13 8840 88 18F1 72 07 7 ロア 7 77 22 ED F3 86 2H 5 FF 3P 
846H 1R FE 42 28 CD CS 5 SS SH 4nFF Ch 72 82 CD 5D 885 28 26 CH 05 88 ES ED 4B 56 FF BE7 EB ED 42 EB E1 
8470 22 ED 5B 48 FF 1R 7? B7 C2 13 23 18 FS 13 CHS 886 E5 EE B7 ED 52 2B 7C BZ 22 7 FE FF 22 nC P3 14 
8480 82 44 4 7S B1 DS nR CU 58 84 18 F? 13 1R FE SO 587D SG 7U FE 8 30 F8S E1 77 23 C9 7D FE 8n 38 EF 18 
8430 28 EB FE CU 29 D2 CD 34 S2 CD 86 82 2H 49 FF 22 888n FS ED 5B 52 FF E5 Eh 4B 5 FFP ロ 3 7h 12 13 7C 12 
84RI 4 FF CD3 52 84 5 ni ロ 1 nn 2H 4H FF 7E B7 28 n4 8820 13 EH 53 52 FF Ei C3 CH F3 86 CU 59 87 79 FE Qn4 
84EU 23 3 19 FS E5 1 FE DP 28 04 13 23 18F7 23 7C 88HO D2 E1 85 07 n7 0n7 07Z 80 77 23 C9 CH F3 86 CD SF 
S4CO FE ER 30 20 7E FS 35 HH 7E FE HU 2 155F1 77 EB 88BD 87 198 ER 35 CU 23 73 23 72 23 C9 CH DD 86 1R FE 
54DD E1 ED B8 2R 4D FF ロ i 1H 77 FE nH CH 78 82 23 13 525CD QD 28 1R CD E1 88 CU HU 86 CO 4? 8E CH 28 8E 2H 
g4ED 18 F5 F1 77 11 dE 84 CH 53 81 Ch 44 81 Et h1 9 8800 SC FF B7 28 E6 CU 3H 93 CD 44 81 18 QE CD 28 8E 
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82ED C9 CH CO 86 22 59FF EDS32 5HFF 1RFE 21 20 09 59 FF B7 ER 5 5 78 BZ 28 85 
88F0 13 CD 7C 81 D8 77 23 18 FS FE 3B 2n ロ 2 0D1 C9 FE 2H 7E CD 3R 31 55 0S ES 
8300 23 20 DB 13 ED 53 42 FF CD 4B 86 73 23 C9 FE 30 ni CE 3H 93 CD 19 
891 2H HE E5 2H 5Z FF 2B 2B ED 21 88 CD 2D 9E E1 C3 94 4E81 Ei 1 還 3 : と 
8220 E5 CU F8 86 E1 79 FE 68 2 42 1H FE 52 20 16 13 2 SC FF 5B7 Ca CB PH 
893 り EH 53 48 FF CD 65 87 79 FE ロ 8 CH E9 85 07 7 ロア 7 SF 22 48 FF 22 5R FF 
8940 C6 CO 77 23 C9 FE 4 2n 19 ロ 5 C2 13 EH 83 49 FE EB 22 58 FF En S5 dn 
8950 CH 65 87 79 FE 8 FR E9 85 ロ 7 Q7 ロ 7 80 77 23 C3 1H FE 3B 29 31 FE 
8960 21 58 FE 43 C2 E9 85 5 C4 13 18 ED FE ロ 9 30 OB 81 28 CD 17 SEEH PD 
8970 07 07 07 FE 10 02 43 88 77 23 C9 FE ロ 9 28 ロ R 30 B7 eSmOE 22 S8 FEF CU 
9980 nD 6 1 CD 97 88 DC3 21 88 ロ 6 09 C3 37 898 FE DB 30n CD BB 88 18 2B CD 3 2E 
8920 29 19 3 1H 05 2 PD F3 86 CD 59 87 79 FE 2 DZ 32 64 ER CH SF 2n 2 SE 8 ロ 3 CH SR 93 
99RD E1 85 nH7 ロア 07 H7 8D 77 23 CE9 n6 ロ H 18 E5FE 10 SF2H CH 44 81 CH F1 DC CE 88 6F EEEWG2UUIBU 軍 5 
83E0 28 nHE 80 11 H6 IE O7 7 07 C6 22 77 23 CS 1 88 aF30 nF 19 93 CD R1 25 18 ER CH C3 CE3 2F ED 5 
89C0 06 n3 C3 97 89 FE 12 29 ロ 7 30 1H n6 DB C3 97 88 gF4n 8n 3E FF 32 5n FF 2 32 5D 44 821 11 2F 2F 
89Dn 06 04 CH F3 85 CD 4 87 79 FE 08 CR E1 85 ロ 7 7 8F5n CD 5S3 81 CD 44 31 CH Rh EE 1 2R 52 FEF 88 
89ED 07 20 77 22 C9 FE 14 29 520 15 ロ 065 18 E3 PH 2F60 35 DO 7E B7 2n iD 3E 01 32 2H 50 FF 22 5D 
a9F0 F3 86 CH 4H 87 79 FE ロ 8 ERH E1 85 ロ 6 6 C3 5B 7 8F7n FF FEH 44 81 11 35 8F CD 53 44 1 CH NH BE 
SRnO FE 1D 29 nHC 3n 3 H6 15 07 07 07 C6 07 77 23 C9 gF2n C32 44 21 11 9D 2F CD 44 81 31 DS3 D9 2F 50 
8R10 CD F3 86 CD 4 8Z 79 FE ロ S CH E1 85 4? EH 5B 38 8F9n 41 5S3 53 2n 31 nn 5n 41 53 32 0UD 4C 41 48 
9H20 FF 13 1H FE 2C CE3 E 85 13 ED53 48FF CD 49 87 gFROD 35 4C 20 54 41 42 4P 45 2n 4F 4C Hn 11 85 
8H30 79 FE 8 CH E1 35 78 7 ロ 7 ロア 7 21 C6 4D 77 83 9 8FBD 90 CD 53 81 231 nn 94 RF 3 と 22 22 FF 36 HO 
gH40 FE 25 29 1 30 1 n6 1E n7 7 n7 4? CDF3 86 CD aFCn 22 40 FF 31 FF FF CD 44 81 : CD H5 4n Ch ng 
aR50 4 87 79 FE HG CH E1 85 80 CE6 8 7 23 59 nH5 C1 SFHO SR1 1H 13 FE 45 SS SD FE 5 FI 31 FE 41 28 28 
8H60 C3 HB BS FE 2? 805 HER FE5 CB HE BS FE 30 29 ロ H FE FE 42 28 2H FE 22 ER 21 9 ロ 【 28 2E FE 4h 28 
SH7O SH 2T U5 28 4F 5 C6 CS3 5B 87 CUF3 86 1HFE 30 8FFD 6 FE 4F CH 7 9n FE 21 FR 38 5 CO 2 部 
SH20 DH E1 825 FE 3H D2Z E1 85 H5 3n n7 ロ 7 nH7 E6 CZ 7 アア 9g00n CS C3 5F CO 50 85 18 BB RF FE PDG32ES8E 18 
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g 有 HI 3 (5 230 nH 36 9 23 C9 36 3 23 CS 3n8 E9 CD 世 3 5E 28 n ロ 9 F 32 5E 
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SB 3 ロ n ED 23 CH 27 382 C3 21 8906 4B 28 220 8F Ch 2R 2R 43 2D 38 30 
SB1I FS 30 43 ロ 6 42 nF nF 32 51 10 S5 CS 303 リ 31 2O 42 4C 2 5 45 SE Sn 
8B2U 23 FE 30 HR E1I 85 FE 3R H2 E1 85 D5 2nRO 35 2| 2| 13 nID 53 81 FU SR 33 
BESU 3 13 1H_FE_2C 52_E1 8S 13 53 49 』 n 4B En 5 Fh EE gh9 7 ロ 
8B4 FF FE 2 CR E1 55 8n 47 3R 61 10 80 30CO 4E 31 33 21 n9 33 1H 67 1B CS 
8E50 7 アァ 23 SE 83 ed n4 35 75 3 CH 3) Ch SR 293 Ch ィ 5 CO RC 
8B5n 23 DE n6 Hi H nr 8n 36 ED 30En CR C: nR 8 
2B7 83 5 28 1 H6 4 18 ER 9nFn 44 85 53 谷 
SBSn E5 : | SS EB 7 EhH S2 22 : 41 42 45 4 に 2 
SE30 FF CR 21 85 FE ) 24 nn mn ら 1 
8BHQ CZ FE nn 94 rh CFP 233 1 
EE FC 9 EE 86 CO: 区 ? 選 
: 79 FE_ 03 E1 85 7 F3 ら 85 48 91 F1 E6 OF 
87 79 FE 0S PS E1 的 き 7 23 C5 50n nD <5 Sg nh 4 
23 C9 FE 55 22 1E 30 3 53 87 5 ni 4 52 5H HH 4HR 52Z 4E da3 nh 4R BZ 
DS D2E 85 87 36 CB 8 35 CB 49 HI 34 8 53 54 41 58 nh 4F 
23) 誠 軸 23.69TGD FS 86sC ロ 3 n2 53 48 4C 44 nh 48 4C 44 nH 58 54 
87 356 CB 83 C5 DS 77 8 23 77: 41 nn 43 <E SS 2 43 58 nh 49 GE 
FE 57 28 15 Sn 26 35 iR [ 13 c3 35 ) 52 nh 4n Sg 49 52 4C 43 nn 52 52 
1 23 326 67 23 36 1B 23 ? 12 23 36 3? 4C OU 52 2? 2 24 41 43 nn 43 40 
13 22 36 7CD 2S 36 12 る <3 59 23 4D 43 43 4 43 4D 4F 56 nH 41 44 
30 51 PD F32 86 iR 22 85 CS 235E5 43 nn SS 5 48 5 42 42 nHD 41 4E 
所 S 13 18 Fa 2 41 43 4 5 ロ H 5 4F 
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42 BE : 5 き ( 放 nO 52 52 43 0 4F 
11 C3 75 OF nD 4R 4 5 nn 43 
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H6 40 8 43 42 
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5 ら 5 FE nS CH 43 nn 43 
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BDPEH に 30| nH 3A 49 1H B ァ FE 
ahF 8 = FE 3 0D nn 32 49 FF 
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SE2G D1 1 En 5B 48 Na が に 
SESn ドド Ch SF SH ( 
2E4n 5 FF 加 ら 置 
ES に 29 1! CD 81 
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PC-8001 の N- BASIC は 使い や すい の で す が , マシ ン 語 
レベ ル で 何 か や ろう と 思っ て も モニ タ ・ プ ログ ラム が まっ 
た く 《 公 素 され て いな い の で , 手 も 足 も 出 ま せん . 

事務 処理 な ど は BASIC だ け で 充分 で す が , 我々 アマ チュ 
ア と し て は , や は り マ シン 語 も 使っ て みた いも の で す . 

そこ で , まず モニ タ ・ プ ログ ラム が 見 て みた く な り , 逆 
アセ ンプ ブラ を BASIC で 使っ て み ま し た . 


し プロ グラ ム の 説明 


実行 速度 を 少し で も 速く し よう と 思っ て 。 サ プル ー チ ン 
を 前 の 方 に 持っ て き て あり ます . その た め , プロ グラ ム が 
や や 読み に くく な っ て いる か も し れ ま せん . 

あと で わか っ た こと で す が , サ プ ブルー チ ン を どこ に 置い 
て も 実行 速度 に は まっ た く 関 係 な か っ た の で す (後述)、 参 
辺 ま で に , 逆 ア モン ブル する 平均 速度 は 3.5 行 / 秒 で し た . 

以下 , ブログ ラム の 内 容 を 簡単 に 説明 し ます . 


行 番 号 処 理 

50 B$ に ニモ ニッ ク を 付け 加え る 

100 一 110 | 1 バイ ト 読 み 取 り B$ に 付け 加え る . 
200 一 295 | B$ に オペ ラン ド を 付け 加え る . 
(テー ブル 使用 ) 





300 OP コ ー ド に CBH が ある 場合 の 処理 . 
400 オペ ラン ド に 規則 性 が ある 場合 の 処理 . 
600 該当 する ニモ ニッ ク が な い 場 合 の 処理 . 


1000 一 1030 | 1 バイ ト 目 が 40Hー BFH の 場合 の 処理 . 
2000 一 2010 | 1 バイ ト 目 が CBH の 場合 の 処理 . 

3000 一 3080 | 1 バイ ト 目 が DDH か FDH の 場合 の 処理 . 
(IX か IY が 必ず オペ ラン ド に ある ) 

4000 B$ の 初期 設定 . 

4010 1 バイ ト 目 を 判定 し て , 1000 一 3000 の 条件 
と 合え ば そこ へ 飛ば す . 

4020 一 4060 | 1 バイ ト 目 が 1000 一 3000 の 条件 以外 の も の 


の 処理 . 

5000 一 5030 | まとめ て 送 ア モン ブル する と き に 飛ん で 来 
人 る: を 記 . ろ 。 

6000 一 6040 | 少し ずつ 送 ア セン ブル する と き に 飛ん で 来 
交信 。 











7000 一 7080 | 配列 の 初期 値 設 定 . 5000 か 6000 へ 飛ば す . 





7 る 


(る 」 変数 の 説明 


配列 変数 に つい て 

配列 の 中 身 は どん な も の か と いう と , NM$ に は 8090 一 
8100 に ある ニモ ニッ ク が 入り , OP$ に は 9110 一 9120 に ある 
ポン ペラ ンド が 大 り ま すず 。 また ぉ 。、T。 昌 DUD* に ほそ それぞれ 
8000 一 8040, 8130 一 8140, 8150 一 8160 の DATA が 数 値 と し 
で ょ 人 人 り ます c。 

この 6 桁 の 数 が 何 を 意味 する の か と いう と , 下位 2 桁 が ニ 
モニ ッ ク を, 中 位 2 桁 が 第 1 オペ ラン ド を , 上 位 2 桁 が カ 
て 迷 に 第 2 オペ ラン ド を それ ぞ れ 表わし ます . 

と そば, 000137 な ら ば ニモ ニッ ク は NM$ の 3837 番目 に 
Ha “INC" で あり , 第 1 オペ ラン ド は OP$ の 1 番 
目 に 入っ て いる “B" で あり , 上 位 2 桁 が 00 で ある の で 第 
2 オペ ラン ド は な いこ と が わか り , 結局 , 000137 は “INC 

を 表わし て いる の で す -. 

も ちろ ん , OP コ ー ド が 696 個 も ある 乙 80 の 命令 全部 を こ 
の 方 法 で 表わし て いる わけ で は な く , 規則 性 に 乏しい 部 分 
に つい て の み , この 方 法 を 用 いま し た . 


2. 単純 変数 に つい て 


変数 名 は 何 娘 字 で あっ て も か まい ませ ん が , 有効 な の は 


最初 の 2 廊 字 だ け で す . 以下 , 主 な 単純 変数 の 意味 に つい 
で KS まい 9:。 





SA : 逆 アセ ンプ ブル 開始 アド レス (1 バイ ト s 0 (GO 
イン クリ メン トト され て で いく) 

BA 聞 吉 セン ワル 衝 了 アド レス 

CL : 行 数 の カウ ント 

DT : PEEK し た デー タ 

〒1 : 配列 下 の 要 素 の うち の 1 つ 

T2 : TH の うち の 2 桁 

B$ : 1 行 分 の 送 ア セン ブル ・ バ ッ フ ァ 


〔3〕 新しい 命令 


この PC-8001 の N-BASIC に は いく つか の 新しい 命令 が 見 
受け られ ます . ここ で その すべ て を 紹介 する の は 不可 能 な 
の で , 本 プロ グラ ム に 使用 し た 命令 に つい て 多少 説明 し ま 
9 








想 田 鷹 男 画 還 記 


DEEINT < 交 字 地 囲 > …… 整 数 
SNG < 交 宇 範囲 > …… 単 精度 
DBIL < 凛 字 範囲 >? …… 倍 精 度 
STR < 交 字 範囲 > …… 交 』 字 

X 字 字 範 囲 内 の 廊 字 で 始ま る 変数 を 各々 の 型 に 宣言 する 
か ) 

だ た だし, プログ ラム 中 に お いて 個々 に ( 整 数 )。 ! ( 単 
精度 )。 半 ( 倍 精度 )。 $ ( 廊 字 ) を 付加 し た 場合 は , 言 
に 優先 し ます . また だ , 型 宣 言 で 重複 し た 場合 は 。 
行 し た 型 宣言 が 優先 し ます . 


2 . MID$ 

a) MID$(p1$, p2, p3) p2、p3: 0 一 255 
文字 列 p1$ の 始め か ら p2 番 目 の 朗 字 よ り p3 個 の 廊 字 
列 を この 関数 値 と し て 与え ます . 

b) MID$S(p1$, p2, p3) 三 p4$ 
文字 列 p1 中 の 任意 に 指定 され た (p2 に て ) 位 置 よ り p3 
個 の 廊 字 列 に 交 字 列 p4 の 頭 か ら p3 個 の 婦 字 列 を pl 中 
に 挿入 し ます . 


3 . INSTR(p1, p2$, p3$) pi : 0 一 255 

廊 字 列 p2$ 中 の 最初 に p3$ の 廊 字 列 が 現われ る 位置 を 走 
奉 し 。 何 番 目 に ある か を 関数 値 と し て 与え ます . pl で 二 査 
を 始め る 位置 を 指定 し ます が , 特に 指定 が な けれ ば p1 ニ 1 と 
し て 走査 し ます 。 も ちろ ん , 寺 査 する 疫 字 列 が な けれ は ば 関 
数 値 は 0 に な り ま す . 


[ 旬 〕 便 用 方 法 


まず , リス ト 1 の プロ グラ ム を 入力 し て くだ さい . DATA 
文中 の 数 字 や 廊 字 は 見 や すい よう に 並べ て あり ます が , 余 
分 な プラ ンク や 数 字 の 頭 に 付い て いる 0 は 省略 し た 方 が メ 

モリ 効率 は 良く な り ま す . 

RUN す る と , 少し ずつ 逆 ア セン ブル し た いか どう か 義 い 
て きま す 。 CRT を 見 な が ら 少 し ずつ プロ グラ ム を 追っ て い 
く よ う な 場合 は , 闘 以外 の 廊 字 を 入力 し て くだ さい . する 
と , 逆 ア セン ブル 開始 番地 と そこ か ら 何 行 述 ア セン ブル す 
る か 聞い て くる の で , アド レス は 16 進 数 で 行 数 は 10 進 数 
で 入力 し まず 。 その 場合 。 マイ ナス 記号 で 2 2 つの 数 字 を 区 
切っ て くだ さい . 

な お , アド レス お よび 行 数 は どちら も 省略 可能 で , アド 
レス を 省略 すれ ば 前 の 続き を 逆 ア セン ブル し ます し , 行 数 
を 省略 すれ ば 18 行 と 見 な し ます . 

次 に , まとめ て 逆 ア セン プル し た いと き は RUN し た 後 で 
剛 を 入力 し て , 逆 ア モン ブル 開始 番地 と 終了 番地 を 16 進 数 
GA に SS) お 

また , 逆 ア モン ブル し た も の を プリ ンタ に 出力 し た い 場 
谷 : に は 。 行 番号 5030 と 6040 に ある PRINT 女 を LPRINT 廊 
に 変更 し て くだ さい . 実行 例 を リス ト 2 に 示し ます . 


[ 5 〕 逆 ア セン ブラ に よる 収穫 


PC-8001 の モニ タ ・ プ ログ ラム を 逆 ア モン ブル に に で の 2 
と ころ ,。 使え そう な サブ ルー チン が いく つか 見 つか っ た の 
で , 表 1 に 示し ます . 

この 中 で , Flow Acc と いう の は FO0A8H 一 F0ABH の 4 バイ 
ト の こと で 。 演算 する 場合 に は ここ を よく 使い ます . 
Reg Pair と いう の は , BCDE の 4 つの レ ジス タ を ペア に し 


の 賠 3 ビ 5 ヵ す ? 











ムシ ステ ム 風 明 

表 1 モニ タ ・ プ ログ ラム 内 の サブ ルー チン 
使い 方 ・ 動 作 
キー ボー ド が 押さ れる まで 入力 待ち と 
な る . 
結果 は Acc に ASCII コ ー ド で 入る . 


0FAC | 1 文字 入力 | キー ボー ド が 押さ れる まで 待た な い . 
結果 は Acc に ASCII コ ー ド で 入る . 



























1B8Al| 1 行 入力 EC96H か ら バ ッ フ ァ ( 最 後 の 文字 の 
次 に は 0 が 入る ) . 
単 精度 減算 (Flow Acc) ご (Reg Pair) (Flow Acc) 
2 4 1 2 | 単 精度 加算 (Flow Acc) ご (Reg Pair)+(Flow Acc) | 
2 5 4 1 | 単 精度 乗算 (Flow Acc) (Reg Pair) X(Flow Acc) 
2 5 9C | 単 精度 除算 (Flow Acc) ご (Reg Pair) エ (Flow Acc) 





309F |HEXDEC | (FOA8) 一 (F0OA9 ) の 16 進 数 を 5 桁 の 10 | 
進数 の 訪 字 列 に し て (HL) 一 (HL+ 
4 ) に 入れ , (HL 二 5) に は 0 を 入れ 
る . 

3 BF 9 | エラ ー 表 示 E レ ジス タ に ERR コー ド を 入れ て お く 
(必ず BASIC モー ド の コマ ンド 待ち に 
| な る ). 

40A6 1 1 文字 出 カ Acc に ASCII コー ド を 入れ て いく . 
44C7 |DECーHEX | HL に 六 字 列 の 先頭 アド レス を 入れ て 
いく と , それ を 16 進 数 に 変換 し た も の が 
| DE レジ スタ に 入る . 


5 2ED | 文字 列 の 出力 H し に 文字 列 の 先頭 アド レス を 入れ て 
いく と , 0 が ある ま て 出力 する . 


表 2 モニ タ ・ プ ログ ラム 内 の DATA 領 域 
































マト リク ス を ASCII コ ー ド に 変換 する . 
3148-3151|16 進 数 を 10 進 数 に 変換 する . 








33BD-3466 | 中 間 言 語 に 対応 し た 処理 ルー チン を CALL す る . 
3467-34C0O | 関数 の 中 間 言 語 に 対応 し た 処理 ルー ナン を CALL す る . 
34C1 一 37A7 | コマ ンド を 中 間 言 語 に 変換 する . 

37A8 一 3 7 BC | 特殊 記号 を 中 間 言 語 に 変換 する . 

37F2 一 8A0 4 | エラ ー メ ッ セ ー ジ の テー プル 

3A05-3B5B | 初期 設定 の と き , EA00H 一 EB56H に 転送 する . 
5C6F-5C9 2 | モニ タ ・ モ ー ド に お いて , コマ ンド に 対応 し た 処理 
ルー チン を CALL す る . 





























(に 孝 





た も の の こと で す . 単 精度 演算 の 場合 ,FOABH お よび B 
レジ スタ に 指数 部 が 入り , 以下 , 順に 仮数 部 の 上 位 ・ 中 位 ・ 
下位 が 入り ます . 

モニ タ ・ プ ログ ラム を 読む 場合 に , プロ グラ ム 領 域 か テ 
ー タ 領域 か が が わか ら ず , 苦労 し た こと が あり まし た . そこ 
で , これ か ら モ ニタ ・ プ ログ ラム を 読も うと する 人 の だめ 
に , 主 な デー タ 領 域 を 表 2 に 示し まし た の で 参考 に し て く 
だ さい . 
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送 ア セン プラ ・ リ スト 
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リセ ッ ト し て し まえ ば すべ て が イニ シャ ライ ズ さ きれ て し 
まい ます . そん な と き は , 固 W@ キー を 押し な が ら [ESE 恒 
を 押し まし ょ う . 画面 は トク リア され ます が , イニ シャ ラ 
イズ は され ませ ん . も ちろ ん , BASIC の プロ グラ ム や 
変数 の 値 も 残っ て いま す . 

@ 普 通 .、 ファンク ショ ン ・ キ ー に は 15 文 字 ま で し か 入り ま 
せん が , POKE 文 か モニ タ ・ モ ー ド の S コ マン ド を 用 い 
れ ば も っ と 入れ られ ます . た と えば , 障 の バッ ファ は 
EA7CH か ら で す の で , ここ か ら ASCII コー ド で 入れ て 
いけ ば 何 文字 で も (と いっ て も , バッ ファ 全体 の 大 きき 
が 160 バ イト な の で その 範囲 内 で ) 入り ます . 最後 に 0 
を 入れ る こと も 忘 れ な いよ うに ソ 

@ フ ァ ン クシ ョ ン キ ー が 押さ きれ る と フラ グ が セッ ト さ れ , 
ファ ンク ショ ン ・ キ ー の バッ ファ の アド レス を 示す ポイ ン 
タ も セッ ト さ れ ま す . し た が っ て , 強制 的 に フラ グ と ポ 
イン タ を 変え て や れ ば , 入力 待ち の 状態 に な っ た と き に , 
その ポイ ンタ か ら デ ー タ を 持っ て きま す . 

フラ グ の アド レス は EA68H で , ここ に 0 以外 の も の が 
入っ て いる と ファ ンク ショ ン ・ キ ー が 押さ れ た も の と 見 な 
に し た さぶ で 

また , ポイ ンタ の アド レス は EDC0H 一 EDC1H で す . 
何 か ユ ニー ク な 使い 方 を 考え て みて は いか が で し ょ うか . 

@GOTO 文 な ど , 行 番号 を 必要 と する 命令 を 入力 する と 行 
番号 は 16 進 数 に 変換 され , 2 バイ ト に 収まり ます . と こ 
ろ が , RUN し て その 文 が 実行 され る と , そこ に 収まっ て い 


82 


リス ト 3 SEARCH プロ グラ ム ・ リ スト 


た 行 番号 は , な ん と アド レス に 変わ っ て し まう の で す 、 
つま り , その 行 番号 の プロ グラ ム が 実際 に 存在 し て いる 
アド レス に 変換 され る わけ で す . その た め に , この 逆 ア 
セン ブラ ・ プ ログ ラム の よう に , サブ ルー チン を 前 の 方 に 
持っ て 来 て も まる で 意味 が な いこ と に な り ま す . も ちろ 
ん , LIST すれ ば 画面 に は 行 番号 に 変換 され た も の が 出 
て きま す . な お , リナ ン バ ー す る と き に も 1 度 ア ドレ ス 
に 変換 し て か ら 行 な っ て いる よう で す . 


[と 〕 お わり に 


モニ タ ・ プ ログ ラム を 読む 場合 に , 文字 列 や 数 字 の 列 を 
探し 出す プロ グラ ム が ある と , な に か と 便利 で す . そこ で , 
オマ ケ と し て search プ ログ ラム を リス ト 3 に 載せ て お き 
ます の で 利用 し て くだ さい . また , N-BASIC の 中 間 言 語 
は 表 3 の よう に な っ て いま す . 表 の 中 で , 0DH と 0EH の 
『 ア ドレ ス 』 と 「『 行 番号 』 と いう の は , 上 で 説明 し た も の 
の AG 

PC-8001 は 使い や すい マイ コン で す . ス クリーン ・ エ ディ 

タタ や ファ ンク ショ ン ・ キ ー な どの 機能 は 便利 で す . 
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function 時 の 第 2 コー ド ( *3) 







































@ 8 0 ーー 
1 A 1 | END 1 | LISTEN 1 | LEFTS 
2 B 2 | FOR 2 | DSKO$ 2 | RIGHTS 
EX 3 人 3 | NEXT 3 | REMOVE 3 | MIDS 
EiI 4 D 4 | DATA 4 | MOUNT 4 | SGN 
EQ 5 E 5 | INPUT 5 | OPEN 5 |INT 
AK 6 F 6 |DIM 6 | FIELD 6 | ABS 
BL 7 G 7 | READ 7 | eET 7 | SQR 
BS 8 H 8 |LET 8 | PUT 8 | RND 
HT 9 I 9 | GOTO 9 | SET 9 |SIN 
LF A J A | RUN A | CLOSE A |LOG 
&O B K B IIF B | LOAD B | EXP 
&H @ L C | RESTORE C | MERGE @=|.GOS 
アド レス D M D | GOSUB D |FILES D |TAN 
行 番号 世 N E | RETURN E | NAME E | ATN 
整数 (10 一 255) F O F | REM F | KILL F |FRE 
5 0 P 9 0 | STOP D0 | LSET 9 0 |INP 
1「0 1 Q 1 | PRINT 1 | RSET 1 | POS 
桁 | ! 2 R 2 | CLEAR 2 | SAVE 2 | LEN 
の | 2 3 S 3 | LIST 3 | LFILES 3 | STRS 
整 | 3 4 T 4 | NEW 4 |INIT 4 | VAL 
数 」 4 5 U 5 | ON 5 | LOCATE 5 | ASC 
の | 5 6 V 6 | WAIT 6 ー 6 | CHR$ 
と |6 が w 7 | DEF 7 |3LO 7 | PEEK 
き |7 8 院 8 | POKE 8 | THEN 8 | SPACE$ 
8 9 Y 9 | CONT 9 | TAB( 9 | OCTS 
9 A Z A | CSAVE A | STEP A | HEXS 
B [ B | CLOAD B | USR B | LPOS 
整数 (256 一 ) C \ @。 |.OUiT C |FN C | PORT 
単 精度 D ] D | LPRINT D | SPC( D | DEC 
1F に 同じ E へ E | LLIST E |NOT E | BCD$ 
倍 精度 F ー F | CONSOLE F | ERL F | CINT 
brank 6 0 A0 | WIDTH E0 |ERR A0 | CSNG 
! 1 a 1 |ELSE 1 | STRINGS 1 | CDBL 
W 2 b 2 | TRON 2 | USING 2 |FIX 
せ 3 c 3 | TROFF 3 | INSTR 3 | CVI 
$ 4 d 4 | SWAP 4 り 4 | CVS 
% 5 e 5 | ERASE 5 | VARPTR 5 | CVD 
& 6 f 6 | ERROR 6 | CSRLIN 6 | DSKF 
う 7 g 7 | RESUME 7 | ATTRS 7 |EOF 
( 8 h 8 | DELETE 8 | DSKIS 8 |LOC 
) 9 i 9 | AUTO 9 |INKEYS 9 |LOF 
ネ A j A | RENUM A | TIME$ A |FPOS 
ー B k B | DEFSTR B | DATES B | MKIS 
5 C I C | DEFINT (g ー C | MKSS 
ニ D m D | DEFSNG D | SRQ D | MKD$ 
> E n E | DEFDBL E | STATUS E ーー 
/ F o F | LINE F | POINT F ー 
0 7 0 P B0 | PRESET F 0 > 8 
1 1 q 1 | PSET 1 近 8 
2 2 r 2 | BEEP 2 く EC | IEEE(*4) 
3 3 s 3 | FORMAT 3 テキ 
4 4 t 4 | KEY 4 ー 
5 5 u 5 | COLOR 5 3 
6 6 v 6 | TERM 6 / 
7 の w 7 | MON 7 へ 
8 8 x 8 | CMD 8 | AND 
9 9 y 9 | MOTOR 9 |OR 
: A 3 A | POLL A | XOR 
1 B ) B | RBYTE B | EQV 
sS (の 2 H C | WBYTE C |IMP 
三 D 1 D |ISET D | MoDp 
> E ー E | IRESET E \ 
? F F | TALK F | function(*2) 
: 0D の アド レス と は , RUN さ せる と GOTO な どの 行 番号 が その 行 の あ ※NOTE 2 : FF の function と は 、 FF に 続く 次 の ペー ジ の 80 一 AD まで の 中 間 言 語 の 
る 先頭 アド レス を 示す . コー ド を も っ て , 1 つの 関数 を 成す . 
0E の 行 番号 と は , RUN させ る 前 の GOTO な どの 行 番号 を 示す . *NOTE 3 : この 表 に ある コー ド は これ だ け で は 意味 が な く , こ の コー ド の 前 に FF 
の コー ド を 付加 し て 初め て 関数 に な る . 
と Ss *NOTE4 : コー ド EC に つい て は 何 に 使わ れ て いる か 不明 . 
1D の 単 精度 と は 以下 4 バイ ト は 昌和 * ま この 中 間 言 語 表 に よれ ば , ユー ザー マニ ュ ア テル に は 書か れ て いな い STATE- 





1E、1F の 倍 精度 と は , 以 下 8 バイト は 倍 精 度 2 


MENT が あっ た り し て , 面白 い - 


の ア C-8004 
取 ASIC に よる 


*80 年 2 月 号 に 載っ て いた 『PC-8001 BASIC に よる 
導 ア セン プラ 」 を 走ら せ て みた と ころ , いく つか の 虫 が 見 


つか り ま し た . 全体 と し て は 良く で きた プロ グラ ム な の で 


この まま 眠ら せ て お く の は も っ た いな いと 思い , 手 を 入れ 
て 発表 させ て も ら う こと に し まし た . この プロ グラ ム は 原 
作者 の 了解 を と っ て カセ ッ ト ・ サ ービス させ て いた だ く こ 
に じ ま 必 た 


1 ング ラク 
人 4 


民 還 biseoQ の ま D000 一 RGB の エ りか 惨 10 
全 命 令 696 個 が アル ファ ベッ ト 順 に 並ぶ よう に 入力 し , こ れ 
を 逆 ア セン ブル し て 行ない まし た だ. これ は 手間 が か か り ま 
す が , 大 変 確実 な 方 法 で す . カセ モット の B 面 に お まけ と し 
で 入れ で お 人 く の 試し じ で みて ぐだ さ Wn、 

この デー タ は , 最初 シャ ー プ の マシ ン ・ ラ ン ゲ ー ジ , SP- 
2001 の マニ ュ ア ル に 載っ て いた も の を 入力 し た の で す が , 
な ん と 279 番 目 の LDA,.R と 357 番 目 の LD R, A が 抜け 
CVS まり 7 

また だ, IN A, (N) と OUT(N),A の カッ コ も 抜け て 
いる の で , 現在 は シャ ー プ の シス テム ・ プ ログ ラム SP21 
01 一 2401 に 付い て くる プロ グラ ミン グ ・ マ ニュ アル の 後に 
畔 っ て いる も の を 使っ て いま す . 

だ た だし, オペ ラン ド の 定数 だ け は マシ ン ・ ラ ン ゲ ー ジ の 
マニ ュ ア ル そ の まま を 入れ て あり ます . 


2 で 


まず , 実行 例 を 見 て くだ さい . これ は 中 の 出る コー ド の 
サン プル で , a が オリ ジ ナ ル ・ プ ログ ラム , b が 改良 プロ 
グラ ム で 逆 ア セ モン ブル し た も の で す . 

虫 の 出る コー ド を 分 類 し て みる と , 
@⑯DCnneCALL C, nn 
@ 先 頭 に FD が 付く 命令 の すべ て 
DDF9 呆 LD SP, IX と EDF9 中 LD SP, 

TS 
人 @8DDCBd06 二 DDCBd3E 中 RLC (CU 区 .- 王 

や 。 EDCBd06-FDCBd3ETRLC (CEYER 

は) る 。 

の 4 つ に 分 けら れ ま す . この 他 に ザイ ログ の ニモ ニッ ク と 
異な る も の を 使っ て いる の が 2 つ あ り ま し た . 

これ は 行 番号 8090 の 文字 デー タ を 変え れ ば すぐ 直り ます 

(CS:EJR-SLA。 SRE->S RT ): 
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プロ グラ ム は 1I/O780 年 2 月 号 の リス ト に , いま 述べ た 4 
つの デバ ッ グ と 3 つの 機能 追加 を 行なっ て いま す . プログ 
ラム 中 , 国 al の 部 分 が 今回 改良 し た と ころ で す . 次 に , 
具体 的 な 変更 点 を 述べ ます . 

@CALL C, nn を 表わす 6 桁 の デー タ が な い . 
DC コー ド を チェ ッ ク し て , 見 つけ た ST 1 に , 正 し 
い 6 桁 の デー タ を 入れ て いま す ( 行 番号 4010). 

@Y フ ラグ の 取り 扱い が 間違っ て いて , オペ ラン ド の II 区 
を IY に 変え る べき と ころ を オペ コー ド の 方 を 変え て し 
まっ て いる . 

ぁ 問 違 っ て いる と ころ を 削除 し て , 新しく Y フ ラグ の 処 

理 を 追加 し ます ( 行 番号 3000, 3060, 3063, 3064, 3065). 
39 個 ちあ る テー ブル の デー タ を 38 個 まで し か 比較 し て くれ 

な い の で , 最後 に ある F 9 コード を 見 逃し て し まう . 

ル y 38 を 39 に 変え る だ け で す ( 行 番号 3020). 
@⑳DCBB 一 , FDCB 一 の 大 部 分 は ビッ ト 操 作 命令 で す 

が , 前 の 方 の 7 個 ど だ け は ロー テー ト ・ シ フト 命令 に な っ 

て いま す . その 処理 が まっ だ た くさ れ て いま せん . 

該当 する コー ド を ピッ クア ッ プ し て 処理 し ます ( 行 番 

号 3070, 3071, 3072). 


その 他 の 変更 点 は 追加 機能 に 関す る も の で , 逆 ア デモ ンプ 


ラ 本 体 に は 関係 あり ませ ん . な く て も 送 ア モン ブル 自体 は 
正しく 行なわ れ ま す . 追加 機能 は 

a) プ リン タ へ の 出力 と その ソフ トウ ェ ア ・ ス イッ チ の ON/ 
OFF( 行 番号 7080, 7085, 5030, 6040). 


b) 逆 アセ モン ブル 中 の コー ド を 画面 右端 に キャ ラク タ て 出力 . 


だ ただし, 20H 以 民 の ヨド は すべ で デラ ング に な り ま す 
( 行 番号 50, 110, 600, 4000, 5030, 6040). 

c)[ 上 キー の 入力 で 逆 ア モン ブル の 中 断 、 お よび 再 ス ター ト 
( 行 番号 5031, 6010, 6041). 


テー 


重い カー 


ラテ ーー ス 


プロ グラ ム を スタ ー ト させ る と , まず , LPRINT2? 
と プリ ンタ 出力 の 有無 を 聞い て き [yy IcCRI を 入力 す 
れ ば プリ ンタ 出力 の ソフ トウ ェ ア ・ ス イッ チ が ON, その 
他 の 入力 で は すべ て OFF に な り ま す . 

次 に , STEP BY STEP? と 聞い て き : ま す 。 こ 肖 
以後 は オリ ジ ナ ル と 同じ 手順 そ す が プリ ンタ 出力 ON の 
と き 。、『 ス テッ ンジ" が ポー ステ ッ ワ モデ ボ ま で ば Al ジリ ドジ 
タ と 画面 に 同じ も の が 逆 ア セン ブル 出力 され ます が ,『 連 続 
モー ド 』 で は 画面 に は 出力 され ませ ん . 

どちら の モー ド で も , [キー (シフ ト が 必要 ) を 押す こ 

こよ っ て スタ ー ト へ 戻る こと が で きま す . また だ ,『 連 続 モ 
ー ド 』 が 終わ っ た と きも スタ ー ト へ 戻り ます . 

B 面 に 入っ て いる 『 テ スト 用 デー タ 』 は モニ タ で ロー ド 


し て くだ さい . $D000 一 $ D587 に ロー ド さ れ て いる の で , 


逆 ア セン ブル し て 前 記 の プロ グラ ミン グ ・ マ ニュ アル の リ 
スト と 比べ て みて くだ さい . この リス ト を すべ て 載せ れ ば 
良い の で し ょ う が , 





な に し ろか な り の 量 な の で あし か ら ず . 
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写真 1 ステ ッ プ ・ バ イ ・ ス テッ プ 時 の 逆 ア セン プル 例 


むい ロロ 
LPRINT タ マロ 
STEP BY ST ビビ 
人 DRRE ら ーーL INE マ 
D ら 8 ら ー8 ビ 
リー に と もう りり 放 -】 コ - に 2 
DB ロロ 4ーFD BE 9 ら S 
D ら BB アー お ぼ 
Dd98ー8 お 8 

DGG ラー89 
DOGgaー8 介 

DB ゼー お 紀 
DB8 こ 8 で 

DB ロー お 

D ら 9 ビー で CE 

D り 3 ワー ビ D 

リート とこ づ すり 
DOG44ー ヒ D 

如 


m い 工 

て ズ ビ 
ン 
部 

四 和 


ILLLDLLp デ 


4 ら 4 で は H 
(ER6gH〉 ,Q 
人生 


(ERG4H> , 
に 1e が と | 
に の 


BC ,FFBgH 
BC で 

に よ に 】 所 コ | 

F 1BBH 

4 の 4 3 : に た 】。b】 
, 全 

人 ,FFH 


て E4H) , 
に aa 


参考 引 用 文献 
1) 村 田 鷹 男 : BASIC に よる 逆 ア モン プラ ?,1/O, 80 年 2 
月 号 
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1 THEH E ま = B+LEFT ま く TT ま 。Pー1 > 


FETUR 
) T Hb 











1F ET=EEHFE: THEH 
1 CB EE THEH 回避 5 
TO 議 旨 : IF ET= IT3 THEH 





TI 1 STEF -18TF DPT=IDET ラ 
HITU EEE 


DSK TE:sRETLIEH 
ド まう 1 3 いり まっ" 9"+M ま = 





叶 THEH _LI1 ま = まま ロ HTH SEG 還 


HE 宮 ま で TH テロ HIT 
1 回 まま 1 ま 


昌 ま =B ま +M1 ま +"H"iTF LEHCTT ま 》>F THEH E ま =E ま TRITGHT ま CTT ま 。LENtTT ま >ーF) 


千曲 3\ ロ +15i 日 ま =E ま +HF ま ピコ キリ ュ リ iRETLURH 
FETLEH 


ロロ THEH T<=LT ギ +1: IF TS=7 THEN GE ELSE UISUE 5:BUTU 


=1 ELSE 
E TF DTI 
世 昌 ELSE 1F [TIDKT) THEH HERT 











が UE TE=11 THEH は EELSE T ミ = ロ HTH 











。 THEH 回 叶 回 


3 ELSE IF DTEIECT3 THEH HEST 
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IF 『 三 還 THEH SE ELSE TF "1 THEN 3 ロ 53| 
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( 遇 狼 刑 ) 記 琶 下 )【0 COMPILER 四 


宮崎 マイ ゴン * 


ン ルプ 高 本 秀雄 











今回 , 開発 し まし た BASIC COMPILER に つい て 全国 各 
地 か ら 多 数 の 問い 合わ せ を いた だ きま し た が , ここ て 誌面 を 
借り て その 概要 を 説明 し ます . 


この コン パイ ラ の 開発 の 基本 的 思想 は 次 の と お り で す . 
務 用 ソフ トウ ェ ア で BASIC 言 語 の 弱い 部 分 、 た と えば 
ソー ティ ング な ど に つい て マシ ン 語 レベ ル の 高速 性 を 求め 


る . 
@RAM の ユー ザー 領域 を 考え て , N-BASIC と 完全 コン パ 
チ ブ ル な コン パイ ラ は 耳 区 で ある . 

も っ と も , 実際 は INPUT や PRINT な ど は , た と えば 伝 
上 票 を めく る 時 間 に BASIC で も 対応 で き , コン パイ ル の 必要 
性 は あま りあ り ま せん . む し ろ ,FOR-NEXT,IFE-THEN な 
0 に 近い 7 が ソフ ト の 容易 性 、 メモ 
リ 容量 な どの 点 で 有利 だ と いえ ます . 





この コン パイ ラ は BASIC 記 述 20K バイ ト を 使用 し て 
いる た め , オプ ジェ クト 生成 アド レス は &HD100 以 降 約 7 

K バイ ト で す (※16K 用 で は 不可 ) 

この オプ ジェ クト は 整数 型 で + あ り 。 1 変数 あたり 2 バイ 
ト の 独立 アド レス を 持っ て いる た め ,。 BASIC と の リン ク 変 
数 に お いて は 整数 型 を 使用 する 必要 が あり ます . まだ た 、 こ 
の オプ ジェ クト は 効率 の 良い 速度 を 得る た め , 乗算 ・ 除 算 
以外 は サブ ルー チン を 使用 し て お ら ず , それ ら の サブ ルー 
チン も 自動 生成 方 式 で ある た め Z80 使 用 の 他 の マイ コン に 
も その まま 移植 する こと が で きま す . 


ユー ザー は まず ソー ス ・ プ ログ ラム の 準備 が 必要 で あり . 
これ は 表 1 の 範囲 に お ける 命令 で な けれ ば な り ま せん . コ 
ン パ イラ を RUN さ せる と , 最初 に オプ ジェ クト ・ ア ドレ 





写真 1 コン パイ ル 前 に 変数 を 定義 し ます . 


素 素 素 来 BSG1C コン ロ ャ イラ 失 来 来 素 


RDDRESS? d199 

ヘン ズ ウ シヨ ウ く < g の OP n うつ g 
ヘン ズ ウ フカ ズ ^? 3 

ヘン ズ ウ メイ マウ 箇 

ヘン スズ スウ メイ マウ 

ヘン ズ ウ デイ? で 

イレ ッ ヘ ンズ ウ シヨ ウ く < 9 or n > ウロ 
イレ ルツ ヘン ズ ウ ー ノ カズ タマ 

イレ ツウ ヘン ズ ウ メイ ? pa 

イレ ツウ ヘン フ ズ ウ メイ ラマ 加 





写真 2 1 行 入力 し て ,[Y] キ ー を 押す と コン バイ ル 


来 来 玉 玉 己 和 QSIC コン ハロ" イラ ※ 米 来 来 
キョ ウン コウ 199 アト ~ レス DRn 


ュ ず 各 く 己 上 いら ロ ュ 下 己 < ロ も て hen ご = ティル 
ュ 各 て 選 モロ ほら ロ 1 げ 巳 て B エロ = ロ ご こ = テ 1 
て り OF ロマ ロラ 
> も 5。m,/ き 。 品 2” Cc 男 





0 よび 変数 名 (配列 の 場合 、 そ の 大 きき も ) 
強 ね て くる の で イン プッ ト し て くだ きい 。 次 に 各 コ マン 
ド (cf, s。 m,、 q,。 @) に より それ ぞ れ の 処理 を 行ない ま 
す . ソー ス ・ プ ログ ラム は c コ マン ド を 使用 し , 行 番号 お 
よび 廊 を 1 行 ず つ キ ー イ ン し て くだ さい . 打ち 終わ っ た ら , 
コマ ンド e に より ジャ ンプ ・ ア ドレ ス , サブ ルー チン の 自 
動 生成 な どの END 処 理 を 行ない 終了 し ます . 


マウ ま と 計 
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表 1 使用 で きる 命令 


数 値 |16 進 数 値 
配 列 | 一 32768 | &H0000 
ベイ イ 4 5 ココ ココ 


四則 演算 
ジミ 士 。 一 。。 





a 三 b 
a マ >b 


に 92ScD 
話 ュ > 5 また は 


a ぐ マテ b 
7 だ 
ま CN then 





for a=b to c 
Step I 





next a 
(a は な く て も よい ) 





gosub I 
ー return 





a 三 peek (b) 








goto 【I 
(then の 後 は 省略 可 ) 
ldir aーb, c 

lddr aーb, c 








1 (人 行 番号 ) 
メ 








cpira a 一 b、 ニ x 
cpdra aーb, cx 





ainc 1 
adec [ 

















配列 の 書式 
x(a, b) また は x(a) 








〇 … 使 用 可 ※… 使 用 不可 
生 ) goto, gosub 文 の 飛び 先行 番号 また は , FOR-NEXT 文 は 同一 コン 
パイ ル 内 に 限ら れ ま す . 





二条 2 を PNDL5S コ シシ (02 以 (まま Ss9 
園 f コ マン ド 

使っ て いな い 行 番号 で あれ ば 廊 の 挿入 が で きま す . 挿 
入 バ ッ フ ァ が 100 バ イト し か な く , コン パイ ル し て 100 バ イ 
ト を オー バー する よう な 長い 娘 は "ソウ ニュ ウ ・ ス ペー スズ 
オー ボー! と な る . 
園 s コ マン ド 

すでに コン パイ ル さ れ た 交 を 行 単位 で 削除 する こと が で 
きま す . 削除 する 行 番号 を イン プッ ト す る と , その 行 以降 
の オプ ジェ クト が 削除 行 の バイ ト 数 だ け 詰 め ら れ ま す . 

この コマ ンド は 1 コマ ンド と 兼ね 合わ せ て 使用 する と , 
コン パイ ル さ れ た 廊 を 簡単 に 書き 直す こと が で きま す . 最 
後 の 行 だ け は 詰め る べき オプ ジェ クト が な いた め , 削除 す 
る こと が で き : ま せん 。 
圏 m コ マン ド / 

変数 の アド レス ニタ で 変数 名 を イン プ テト する と , 
その 変数 の 下位 デア ドレ ス を 表示 し ます . 配列 変数 の 場合 
変数 名 の 右 に / を 付け て イン プッ ト し て くだ さい . 配列 
の 場合 は 添字 が 0 の 下位 アド レス を 示し ます . 
画 a コマ ンド 


t6 人 6 


9 


コン パイ ル し た 行 の 先頭 アド レス ・ モ ニタ で , 行 番号 を 
入力 する と その アド レス を 表示 し ます . 
画 e コマ ンド 

コン パイ ル 終 了 時 に 入れ る コマ ンド で ジャ ン フ アド レス 
書き 込み 。 サブ プル ー チ ン を 使用 する 場合 は それ を 自動 生成 
し , その アド レス の 書き 込み を 行ない , 最後 に オブジェク 
ト の 使用 番地 , バイ ト 数 お よび コー ル ・ ア ドレ ス を 表示 し ます 
(e コ マン ド 後 は 修正 は 不可 ). 


最初 に フリ ー 領 域 確 保 の た め clear を 行なっ て くだ さい . 





clear 800, 科 HHD100 十 Z 
e 三 (ソー ス 内 の 変数 の 数 ) *3 二 (ソー ス 内 の 配列 変数 の 数 )*7 











これ は , 使用 する 変数 の 数 に 応じ て その 処理 用 の 配列 を 宮 

言 す る た めで す (オプ ジェ クト の 先頭 アド レス も &HD100 

+e 以 降 に な る ). 

@ 各 コマ ンド , 各 命 令 は すべ て 小娘 字 で 入力 し て くだ さい . 

@ 各 変数 名 は BASIC で 女 字 列 比較 を 行なう た め , その 長 さ 

は 2 廊 字 以上 で も 良い で す が , 頭 は A 人 一 用 ある い は aーz 

で な けれ ば いけ ませ ん . また だ , 大 廊 字 ・ 小 廊 字 も 違う も の 

と し て 扱い ます . 

@for-next に お いて は , 1 番 新しい for が その 溢 の next に 

関連 し て いる ため, 挿入 お よび 削除 で は 注意 し て くだ さい 
(next の 後 の 変数 は 省略 で きま す ). 

人 行 番号 は 1 一 250 の 範囲 で す . ま た , 女 に お ける スペ ー ス は 

処理 時 に 無視 され ます . 

マル チ ・ ス テー トメ ント は 1 行 に 20 以 内 で す . 

@ 中 則 演 算 以 外 の 命令 の 中 で は 式 は 使え ませ ん . 

四則 演算 に お ける 式 の 評価 は 普通 、 BASIC で 使用 する も 

の と 同じ で あり , その まま イン プッ ト で きま す が 剰 余 だ け 

は , ピリ オド (. ) を 使用 し , 評価 は 加算 ・ 減 算 と 同じ に し て 

あり ます . 





演算 順位 
(ソー ス ・ プ ログ ラム ) 


0 部 ( ) (カッ コ 内 ) 
2 ※* ン (乗算 ・ 除 算 ) 
3 オー ・( 加 算 ・ 減 算 ・ 剰 余 ) 


その 他 各 命 令 に お ける 変数 ・ 配 列 変数 ・ 数 値 ・16 進 数 値 
の 使用 可 ・ 不 可 が 表 1 に ま ど め て ある の で 注意 し て くだ さい . 








この ブロ グラ ム は オプ ジェ クト の 効率 を 計っ て 次 の よう 
な 新 命令 を 追加 し て いま す . 
⑯ デ ー タ の 移動 命令 

の 1ldir a-b,c 

@)ldde a-b,c 

a アド レス か ら , c バ イト の デー タ を b アド レス へ 
プロ ッ ク 転 送 し ます . ⑦ と ⑤ の 違い は a>b の と き は ⑦ を 
使用 し a 移動 デー タ の 先頭 アド レス b= ニ デー タ が 格 
納 さ れる 先頭 アド レス と な り ま す . 

も し a く b の と き は デー タ は 後 の 方 か ら 移動 さき せる た め 、 
を 使用 し , 


ロリ 


a 移 動 デ ー タ の 後頭 アド レス 

b ニ デー タ が 格納 され る 後頭 アド レス と な り ま す . 
@ デ ー タ の 比較 命令 

⑦cpira aーb, c 三 x 

cpdra a 一 b, c デ x 

a アド レス か ら b バ イト の デー タ の 中 に X と いう デー タ 
が あれ ぽ ば c 三 1 な けれ ば ぎ ば <c 三 0 と な り ま す 。 ま だ, c 1 
の 場合 .a は その デー タ の アド レス . と な り ま す . 2 
い は , ⑦…a ニプロ ッ ク ・ デ ー タ の 先頭 アド レス ⑤… 

プロ ッ ク ・ デ ー タ の 後頭 アド レス を 示す こと で す . 
変数 イン クリ メン ト , デ ク リ メン ト 

⑦ainc I (1I は 0 一 9 まで の 数 ) 

@G)adec I ( 7/ ) 


変数 。 を TI だけ 加 えた り 減 し た りす る も の で a= テ ョ キキ 1I 
と 等 価 で す が , 1 が 3 以下 だ と この 方 が 効率 が 良い で す . 
《@nop I 


命令 で ご は な く , コン パイ ル 中 に アド レス を I (数 値 の み ) 
進め る も の で す . 

注 ) 新 命令 介 @ に つい て は a,b,c を あら か じ め 定 義 し て お いて 
いて くだ さい X に つい て は , 変数 (配列 は 不可 ), 数 値 が 使用 
用 で きま す . に つい て は a が 変数 . 1 は 数 値 の み で す . 





ゆ へ ヘン スウ ナシ ング 

最初 に 宣言 し た 変数 名 以外 を 使用 の と き , 廊 法 を 間違っ 
だ と どき 。 
@ ギ ョ ウニ ュ ウ リョ ク MISSII 

ce,# コ マン ド に お いて , すでに 使用 され た 行 番号 を イン 
プッ ト し た と き . s コ マン ド で 1 番 高い 行 番号 を イン プッ 
ト し た と き 
メモ リ ・ オ ー バ ー 

オプ ジェ クト が フリ ー 領 域 よ り オ ー バ ー し た と き 
⑳ ン ソウ ニュ ウ ・ ス ペー ス オ ー バ ー 

+ コ マン ド で コン パイ ル さ れ た 1 行 あ た り の オプ ジェ クト 
が 100 バ イト を オー バー し た と き 
if-MISS 

Hf の 比較 文 に , = ニ , く , > を 使っ て いな いと き . 
poke-MISS 

poke 文 に , コン マ (,) が な いと まき. 
next-MISS . 

for が 使用 きれ る 前 に next を 使用 し た と 
@⑬ ? ? MISS 

行 の 文 が メル ・ ス トリ ング の と き 
@5if-jmp MISSU 月 

最後 の END 処 理 で サー チ す る も の で Wf 女 の 次 の 行 が な い 
と き (# 文 で 最後 の 行 が 終了 し た と き ). 
⑩NOTnol (1I は 行 番号 ) 

最後 の END 処 理 で サー チ す る も の で , ジャ ンプ 先 の 行 が 
使用 きれ て いな いと き . この 場合 , END 処 理 は 最後 まで 
実行 (サブ ルー チン の 行 が な いと きも 同様 ). 
アド レス ナシ !! 

qa コマ ンド で 使用 され て いな い 行 番号 を イン プッ ト し た と き . 
@ BA?? MISS 

>* ラ メー タ 誤 りな ど で BASIC イ ンタ ー プ リタ 内 で エラ ー 
が 発生 し た と き ( 行 番号 が 250 を オー バー し た と き な ど …) 
注 ) ⑳⑩ を 除く それ ぞ れ の エラ ー は その 廊 を イン プッ ト す る 前 


se 


Mi Cm JO CT ト Cd トー 


リス ト 1 は 変数 ん, B, C, D が それ ぞ れ 1 か ら Y ま で 
変化 する と き , 組み 合わ せ の 数 を 求め る も の で , これ を 
の まま RUN さ せる と Y=13 の と き , 19 分 51 秒 か か り ま す . 

次 に ,。 この プロ グラ ム を コン パイ ル し て み ま す . コン パパ 
イル する の は 20 行 か ら .140 行 ま で で , この 部 分 が 機械 語 サ 
プ ブルー チン と し て 置き 換わる わけ で す . 

70, 80, 90, 100 行 の AND 娘 は コン パイ ラ の 書式 に な v 
Te し て 整理 する と, ソース ・ プ ログ ラム は リス ト 2 
の よう に な り ま す . 

行 番号 は 250 以内 で あれ ば , その まま 使用 で きま す が 整 
理 す る た め 付 け 直 し まし た . 1 行 目 の t 三 0 は オブジェク 
ト 内 に お いて は 変数 の 初期 状態 が 不定 で ある た めで す . 15 
行 目 の return は 機械 語 サ プ ブルー チン を BASIC へ 戻す た め の 
も の で 。 ソー ス 内 で 使用 する サブ ルー チン の return と 同じ 
も の で す . な お , ソー ス 内 の 各 変 数 は 大 婦 字 ・ 小 婦 字 それ 
ぞ れ 違う も の と し て 扱い ます . 

ここ で は すべ て の 変数 に 大 文字 を 使用 し まし た . な お , 
BASIC と の リン ク 変 数 は T と Y で す . まず 使用 す る 変数 が 
仙 す 有 B き CS D。 T 寺 MG42 の の Cx25 C3 の 9 個 で ある 
た め clear 文 を 次 の よう に 実行 し ます . 





clear 800, &H(D100 二 3 * 9 以上 ) | 





次 に コン パイ ラ を RUN さ せる と 


に 1p)p)=1 コ に に 74 





と 表示 し ます . 
リス ト 1 初期 プロ グラ ム 
ENHT 時 2 
PUT 『 
る 寺 5 H=1 TO 『 
3 FR BE=1 TH 
4 FR に =1 TI ゞ ヽ 


6 に 1 = ビゼー ロロ i 記さ = 

rg IF HKSB HHNE HKSC THEN C1=1 

Sg IF HKD HND EK:C THEN CZ=1 

3 IF B く ED _HND CK:D THEN C3=1 

1 IF C1=1 HNE C2=1 HNE C3=1 THEHN T=T+1 
119 HET 

12 NERT 











13 HERT 
14 NERT 
15g PRINT T 
16g END 
リス ト 2 ソー ス ・ プ ログ ラム 
= 昌 
FR H=1 TH 
FE B=1 TOHY 
FQRE C=1 TO 
FR D=1 TO Y 
じ 1=9: ビタ = ロビ さ ニ 9 
IF HK>B THEN IF H<>C THEH C1=1 
IF H<>D THEN IF B<:C THEH C2=1 
IF B く >D THEH IF C<:D THEH C3 さ =1 
1 IF C1=1 THEN IF CS=1 THEHN IF C3=1 THEH =T+1 
11 HERT 
12 NERT 
]1 さ NEXT 
14 HET 





15 RETURH 
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リス ト 3 


コン パイ ル さ れ た オプ ジェ クト を コー ル す る プロ グラ ム 





S_DEF INT 日 -g 
1 IHPUT 『 


3 DEFLER=&HEG2EI HH=LUSRY う 





<B_ FUKE SHEBBH:PEEKCUHRPTRKY)):PHKE SHEBGB。PEEKCUHRPTECY+1.5 


4 = 
5 FUKE _UHRFTRCT),PEEKC&HE ロ BB):PHKE UHEPTRCT)+1。PEEKCEHEG9 ッ 
eg PRINT T 

? END 





これ は 変数 エリ ア の 先頭 アド レス の こと で , フリ ー 傾 域 
以降 を イン プッ ト し て くだ さい (フリ ー 領 域 以外 を イン プ * 
ッ ト し て も よい ). ここ で は 互 000 を イン プッ ト し ます . 


と 表示 し ます . 
これ は 変数 を 使用 する か どう か を 尋ね て いる の で [Y] を 
イン プッ トト . し ます 。 次 に 。 


と 表示 し ます . 
9 だ 光 シ グッ Li で く 守 きい) する と 決 に 。 


と 表示 し ます . 

これ は 9 回 (変数 の 数 だ け ) 繰 り 返 えす の で , 変数 名 を イン 
プッ ト し ます (イン プッ ト し た 順に , 変数 アド レス が 形成 
され る ). 

GEA BOSS DE YU2G2(G91 光 の) 省 目 0 
イン プッ ト し ます ., 次 に , 


と 表示 し ます . ここ で は 配列 を 使用 し て いな い の で , n を 
イン ブッ ト す る の で す が , も し 使用 する 場合 は 次 の よう に 


. ハイ レツ ヘン スウ ノ カ ズ 2? 


- ハイ レツ ヘン スウ メイ ? 
3 . (ハイ レツ ヘン スウ メイ ) ノ カ ズ ? 





1. 2. は 上 記 の 変数 の 場合 と 同じ で す が , 3. に つい て は 
数 の 官 言 を 尋ね て いる の で , その イン プッ ト 方 式 は 





1 2 は 配列 の 箱 の 数 ) 


2 次元 の 場合 は 





と し ます (な お , 使用 可 は 2 次 元 ま で ). これ を 配列 変数 名 
の 数 だ け 繰 り 返 し ます . 

注 ) BASIC の 場合 、 DIMX(5) と 家計 する と 、 箱 の 数 は 5 二 1 の 
6 個 と な り ま す が , ここ で は I, まだ は I1xI 2 が その まま 


箱 の 数 と な り ま す . 
変数 アド レス が 決定 され る と , さ ! ょ 
作業 領域 を 加え た アド レス を 表示 し , 


ら に それ に 20 バ イト の 
ここ を サブ プ ル ー チ ン 


の コー ル ・ ア デア ドレス (clear 領域 内 で な けれ ば な ら な い ) 
ます 






1 
SUBー ア ドレ ス OK (y or n ) 
(n を イン プッ ト す る と , コ ー ル アド レス を 変え 






次 は コマ ンド ・ モ ー ド に 移り 、 e コ マン ド に より ソー ス 
・ プ ログ ラム を イン プッ ト し て くだ さい .。 コマ ンド は 1 行 
ご と に イン プット 後 , 確認 の た めも う 一 度 そ の 壇 を 表示 し 
民 ね て くる の で , OK で あれ ば [yy] を イン プッ ト し ます . 
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以上 15 行 まで イン プッ ト し ます . 
次 に BASIC と の リン グ ク 変 
コマ ンド で 調べ ます . 
ここ で は =E008, Y=E00A と な り ま す . 最後 に @ コ 
マン ド で END 処 理 を 行 
な り ま す . 


数 で ある T と Y の アド レス を m 


な いま す . 以下 を 表示 し て END と 





ショ ウメ モリ E000 一 130 305 バ イト 
レル シイ リス ニシン シ 人 0 ゴジ レ す コリ 






この オプ ジェ クト を BASIC の 機械 語 サ プル ー チ ン と し て 
コー ル す る わけ で す . リン ク す べき 変数 は BASIC の T, Y 
と オプ ジェ クト の T。Y で ある か ら , これ に は N-BASIC 
の VARPTR を 使い 、 プ ログ ラム を 整理 する と リス ト 3 の よ 
うに な り ま す . 

この プロ グラ ム で RUN さ せる と , Y ミ テ 13 旨 人 
で あり , 約 150 倍 ほど 速度 を 高め る こと が で きた こと に 
ま S9 
注 ) プリ ンタ を 使用 し な いと き は 。 次 の リス ト の の 部 分 
を 削除 し て くだ さい . 





3870 LLPRINT YS: HI: | M1=HA(M2) 一 HA(HI) 


・M4 =DC 一 HA(M2) :R9=HA(M2) 











5010 [LPRINTYS: HI:| 2 Q$ 








いま まで の 説明 で 充分 に お わか り い “ ぶ け だ た も の と 思い 
ます . ぜひ この コン パイ ラ を 多く の 人 が 利用 し ソフ ト の 効 
率 化 を 押し 進め て くれ る よう 希望 し ます . 


ーー 旬 カ セッ ト ・ サ ービス に つい て 一 、 


『BASIC COMPILER。 定価 ※7.500 (〒 込 ) の と こ 
ろ I/O 発 表記 念 売り 出し と し て , 4 月 1 日 一 4 月 20 昌 
(消印 有効 ) の 問 , 特価 \6,.500 で サー ビス いた し ます . 


《 お 申し 込み 先 》 
コム ペック の 1I/O カ セッ ト ・ サ ービス (D.24.4) 多 
ご 覧 ぐだ さき さい. 





東京 ・ 秋 葉 原 で お 買い に な る 方 は … 


4 月 1 日 一 4 月 20 日 まで 秋葉 原 の ラ ジオ 会 館 4F 
CQ コ タキ の デバ イス プラ ザ 「『PASCAL』 で も 特価 
6.500 円 で 販売 し て いま す の で ご 利用 くだ さい . 
富 (03)255-4657 
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BASIC コ ン パ イラ プロ グラ ム ・ リ スト 








EAAGr899 00849 う 


39 PRINT CHR$〈12) 

49 DEFINT 由 -Z:MIDTH 49,29 

Sg CONSOLE 2,29, 1 , 9:GOSUB 5959 

69 DEFFNRCK:J ぅ =URL て "SH"+NID$ て HEX ま て K) 2) う 

7g_KZ=&HE999: KM=KZIHQ=1 HI=11LB=1 LC=1 iLD=1 

ERR979 > HB て 199)。HC て 199),HE$ て 19),HDC19)。HF$(19 う > BR て 19) HG$ く 29) > HJ 
り 

99 PRINT 』 INPUT"RDDRESS "3 DD$: DC=URL て "&H"+DD$ う 


199 
119 
129 
139 
149 
159 
16Bg 
17 昌 
18@g 
193 


INPUT "ンス 9 Bb ヨ 9 て g oF n )3V を 

IF " ま ="n" THEN 149 

INFUT "ヘッ 9 Jh2T "3 URIDTM ER$CUR) IEF=URIEB=DC 

FOR D1=1 TO URI INPUT "ヘン スウ ー イ リョ UN$『ER を て D1)=UN$+ "93DC=DC+2NEXT 
INPUT "im イル L リ No スウ ヨウ 9( 9 OF n 2 いま 

IF " ま ="n" THEN 2Bg 

INPUT "TL リ ヘン タウ JH ス T "WEUREDIN FR まで UR):FBCUR):FECUR): FE=UH 

FQR D1=1 TU URI INPUT "in イル No ウー イリ 3 UN まま FR まで D1 =UN*$+ リ PINERT 

FR _D1=1 TO URIFRINT FR* ま CD1)3" Jn2T "ETNPUT UB:UC 

IF UC= THEN FBXD1)=DC:DC=DC+2*UBI NEXT D1 ELSE FBCD1 =DC DC=DC+2 ポ MC ポポ UBFCCD1 


ぅ =UCI UEC= ロ NERT D1 





299 ZN ま = ニ HE 本 (DE) IDC=DC+29I ST ま =HER ま て DE) 

81 FRIHT ST* 

2322 INFUT "SUB- ア ト “ ル ズ HK て g or n うい を 

323 IF \ ま ="n" THEN INPUT "アト ドル スリ 3 ST ま DC=URL て "SH"+ す ST まう 
24_ RE て STRRT > 

325 HH ERRIR BHTU 319 

2 FRIHT CHR ま で 18)I GSUB 5 ロ Sg 

2Y FRINT IFRINT 

289 IF DCPKRN THEN FRINT "X モ リ オー ロリー" BHT さ 429 

29 H ど =HI 

3 NR=DCI IE=LBI CE=LCI MD=LD 

さ 1 IF=gi INPUT "て ct 5:mz as うお いま 

さ 329 HN IHSTRK "ctsmag": ょ "まう GUTU ささ 中, さす 469 さ 81 ロ 。 さ 2 ささ BB ささ 
さ 33 ERRSE HH1$iDIM H1* ま (29):HN=1 HI=1 

34 INPUT リョ ウロ "ンコ "ウリ HI 

3 さ 5q IF HRCHI) く > HRCIF=B HND HI く HZ) THEN さ 459 

さ Sg IF IF=1 THEN 3489 

37 HHKHT =DC 

さ 8g CISUE 93 ロ EIGHTU 629 

399 FR DD1=1 TO HGQ-1 

dd IF H1 ま CD15=""! THEN PRINT "7? MISS"IGUTU 3429 

19 IF INSTR(H1 ま (D1)」 "1" うく > THEN 699 

2 IF IHSTRKH1$(D1)」" for"O く yg THEN 119 ロ 9 

3 IF INSTRCH1 ま KD1) "goto うく > 加 THEN 124 

中 IF INSTR(H1 ま (D1). "Feek"D く > THEN 128g 

5 IF INSTRKH1 ま CD1)。 "Foke") く > THEN 149gg 

6 IF INSTRCH1$ ま CD1). "next"D く > THEN 1519 

dr IF INSTRXH1 ま CD1)」 "osub") う く > ロ THEN デ さ 5g 

8 IF INSTRCH1 ま D15 "return'D く > THEN 419 

9 本 IF IHSTRCH1 ま CD1)。 "inc" く > 操 THEN KR9=SH2SIGHTH 2 
5 IF INSTRCH1 ま (D1),"dec") く > THEN R9=SHZBI GOUTU 2449 
1 IF INETRCH1 ま CD15 "noF"D く > THEN 2S1g 

2 IF LEFT ま 〈H1 ま 〈D1),4)="1dirF" THEN R9=SHBI GUTU 2S6g 
3 IF LEFT ま CH1 ま CD1) 43=" リ 1ddF" THEN R9=S&HBBIGUTU 2S5B 
5 IF INSTRCH1 ま CD19』"cF1FVD く > THEN R9=&HB1:GUTU 265g 
5 IF INSTRKH1 ま CD15。"cFdrVD く > THEN R9=&HB3IG ロ UTU 26Sg 
5 IF H1 ま CD1S く "まり! THEN 11 ま =H1 ま D15+ "0IBUTU 126 ロ 

Sr BHTH 166g 

BR IF EE=1 THEN EE=gIiGHTH 342g 

3 HERT DD1 

EE IF IF=1 THEN 353g 

61 ロ ロ HTH SB 

62 ロ REN く h ま 』 ゴ で oh イ > 

63 ロ _R3=INSTRKHM。H ま 9) 

Ed IF R9= THEN H1$ く HQY=RIBHT ま て H$, LEN て CH まう -HNM+1): GUTO 669 
ES H1 ま (HG)= ニ MID まく H ま 。HM:R9-H) 

BE H ロ =HGQ+1』 HH=R9+1 

Er IF R9= ロ THEN H ま =""iGUTO 339 

689 GOTO 639 

699 REM く 1f J ペッ カン > 

ァ 99 H4=INSTR〈H1 多 (D1)。 "then" う 

ァ 19 TI1$=MID ま (H1$(D1 3, H4- る ) う 

ァ 29 FOR E2=1 TO LENCT1 ず > 2$= サ ID 多く 1 多 ,E2 ッ 1 う > 

68 ITF 12$="= リ OR 12$= リ くり" OR 12$= リ >! THEN 12$=LEF 丁 $ て 1 エ 1$,E2-1):GOUTO Z59 ELSE NEXT 
ァ 749 PRINT "1f-MISS"IGOTO 3429 

759 FOR E さ =LEN〈11$) TO 1 STEP-1』 1 くさ =HID$(T1$ あ ,E3, 1 ) 

769 IF 1 さ $="=" OR 13$=" く "OR 13$="> リ THEN 13$=RIGHT く 11$。LEN〈 11$ う -E く ) ミ GOTO 7Z9 E 
LSE NEXT ES 

79 IF LENC1T1$)-LEN〈12$ う -LENK 1T さ $ う =2 THEN 1L=1!GUTO 799 
ァ 89 IL=INSTRC "= く > リ "。 MID を きく [1 多 。E2 ッ 1))+1 

ァ 99 IF RIGHT を (1T2$』 15 く >" う " THEN 849 

899 R9=INSTR〈12$," て" う 』HJ$ く )=LEFT$ ま (12 る KR9-1 ) 

819 HG$〈d)=MID$ て 12$,R9+1 LEN( 12$) う -R9-1 ) 

829 TG=9i TIT=9i GUSUB 2199 

839 IF SN=9 THEN POKE DC:&HEBI DC=DC+1』 GUTU 869 ELSE 869 
849 3 さま =12$+ "IiGUSUB 2839: KR1=HH 

85g POKE DC,&H2HgPUKE DC+1 FNRCR1 さ )』POKE DC+2>FNRCR1 1 ) DC=DC+ さ 
Seg IF RIGHT ま (1 さま 1) く >" う " THEN 919 

8B79g R9=INSTR(1 さ ま 。 "て りう 』HJ ま くり 9) う =LEFT ま て 1 くま R9-1 ) 
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BASIC コ ン パ イラ プロ グラ ム ・ リ スト 





SSG_HG$ て ロロ ュ =ID ま て 13 ま 。 R9+1 。 LEN て 1 さま )-RK9- 1 ) 

SSB_TG=gi 【T=1:GHSUB 219g 

3 IF SH=g THEN POKE DC,&HE1:DC=DC+1: UTU 94g ELSE 949 。 

1 IF 1S ま くり" THEN KR2=URLC1T3$):POKE DC,&H11 ELSE ロ さ *=1 さ $+" "EGOUSUB 2839: KR2=HHi PU 
KRE DE:&HED: FUKE DC+1 ,&H5B: DC=DC+1 

BZ TF RZ*= ロ THEN PHKE DC+1,R2MOD256:PUKE DC+2。 R2\255: DC=DC+ さ : BUTU 94 ロ 

339 FUKE DC+1,FNRCR2, さ )』 PUKE DC+2。FNRCR2。 1) DC=DC+ さ 

3 12 ま =NTD ま て 11 ま 。E2,E さ -E2+ 1 5 

25 IF 1L=1 ND 12 ま =" く > THEN TL=1 

369 IF IL=1 NDC12 ま =" く = リ HK 12 ま ="= く ") THEN IL=5 

7 ロロ TF 1L=1 NDCT2 ま = リ ">= リ ロ R 12 ま = リ "=>") THEN TL=6 

38B IF IL ミ 1 OR IL>6 THEN 49 

29 IF IL=1 THEN GOSUB 199gsFPOKE DC+ さ 。 &HCm 

1gBB IF 1L=2S THEN GHSUE 1 ロ 9g:POUKE DC+ さ ,&HC2 

1819 IF IL= ミ THEN GSUE 1g3g:PUKE DC+ さ 。&HF2 

1g2 IF TL=』 THEN PHKE DC。&HEB: DC=DC+1: GUSUB 199g:PUKE DC+ さ 。&HFZ 

193 ITF IL=5 THEN FQKE DC。&HEB: DC=DC+1: GUSUE 1999:PUKE DC+ さ 。&HF 失 

1 IF 1L=6 THEHN BISUB 1 ロ 3gzPUKE DC+ さ 。 &HF 有 

15_ PURE DC+4。HTIFHKE DC+5。&HFF 

1g6 ロ HBCLB ッ =DC+ す :LE= ニ LE+1 DC=DC+6 

1 本 日 日 1 ま CE1)=RIGHT ま CH1 ま く D1 ) LENCH1 ま く D1 ))-H4- さ ) 

1g8B BUTH 4 

193 FURE DCE,&HRFFHKE DC+1.&HED:PUKE DC+2,&H52: RETURN 

11@ RE て for J nhz > 

111 R9=INSTRCH1 ま CD1)。 "to" う :H4=INSTRCH1$CD1)。 "steF") 

11Z_TF HHS> ロ THEN GR ま CLD)=RTGHT ま CH1$ く D1)。LENCH1$ て D1))-H4- さ うぅ 

113 11 ま =MID ま て H1 ま て D1 ) 。 生 。 民 ヨー-) 

114 TF HH= ロ THEN 12 ま =RIGHT ま (H1 ま CD1)。LENH1 ま CD1))-R9-1) ELSE 12 ま =ID ま で H1 ま CD1)。R9 
+ ご ューR9ー2) 

115 HE ま CLD)=LEFT ま CT 1 ま 。 TNSTRC 11 ま 。 "= リュ ー1)sHDCLD う =DC+ ら 

116 HF ま で LD う =12 ま ます " リ 

11 品 ロミ 3 ま =HE ま (LD う +" "8GHSLIB 28 さ iR1=HHi LD=LD+1 

118SH 1 さま =RIGHT ま く T1 ま 。LENC11 ま う --INSTR て 1 1 ま 。 "= リ )) 

113 IF 1 さ 3 まく!E! THEN RS=URLCT さ まう iFPHKE DC。&HZ1 ELSE さま =1 さ ま +" "GUSUB 283 ロ iRK2=HHiP 
URE DCE。&HS 

12GE TF R デ >= ロ THEN PHKE DC+1 、R2MOD256:PUKE DC+S。R2\256: GUTU 122 ロ 

121 ロ FURE DC+1,FNRCR2,。 さ ):PUKE DC+2。FNRCR2。 1 

12S FUKE DC+ さ 。&H22IFHKE DC+4。FNRCR1 3):EPUKE DC+5。FNRCR1。 1) 

12S DC=DC+5I BHT SB 

1Ed RE で goto 」 soho > 

12SE 11 ま =RIGHT ま CH1 ま CD1)。LENH1 ま CD1 5-』) 

126H R1=URLCT1 ま う :FDRE DC,&HC さ PUKE DC+1。 民 1MOD256: FUKE DC+2。 1\256: HBCLB ぅ =DC+1:LB 

=LB+ 1 

1 DCE=DC+ さ * IT 5Bg 

1ES_ REN さ Fesk J」 nuh > 

1ZSE_R9=THSTRCH1 ま (D1)。 "FeekK" う :T2 ま =ID ま CH1$CD1)。R9+5。LENH1 ま CD1) )-R9-5> 

13 ロ ER さま =LEFT ま て H1 ま (D1)。R9- う ) 

131 TF 1 まく "E! THEN R1=URLCT2 ま ) ELSE は さ ま =12$+ り " :GUSUB 28 さ ER1=HHI CC=1 

132g_ FORE DC:&HSRI IF _R1 く THEN POKE DC+1,FNRCR1, さ ):PUKE DC+2。FNRCR1。1) ELSE POKE 
DE+1: 民 1NCD256iFHKE DC+2。 民 1\256 

133B IF CC=1 THEN CC=giPUKE DC, &H3RiPOKE DC+ さ 。&HZEI DC=DC+1 

134 IF RIGHT ま (13$, 15 く > ゆう "THEN 1 さ 8g 

135g FR2=TNSTRK13 ま を" て! う 5HJ ま て B)=LEFT を (1 さま 。 R9-1) HG まく ロ )=ID ま 1 さま , KR9+1。LENC 1 さ $)-R9- 1 
2 


136g TG=gi DC=DC+ さ : 1 エニ 9:i GUSUB 49B:GUSUB 222g 

137 PUKE DC.&HZ ア iFPHKE DC+1,&H2 さ IPOKE DC+2。&HRF POKE DC+3, &H775 DC=DC+4: GOTU 58g 
138g さま =1 さ ます "05 GUSUB 28 さ iRK2=HH 

133B PUKE DC+3,&H21:FOKE DC+4。FNRCR2, さ ): PUKE DC+5。 FNRCR2。 1): DC=DC+6 GUHTU 13Zg 
14gg REH く poke J へ ニッ > 

141 R9=INSTRCH1 ま (D1)。"。 ゆう 

142 IF _R9=g THEN PRKINT "Poke-MHISS"iGHTU さ 42g 

143 ロ 11$=MID ま で H1 ま (D1),5。R9-5) 

144 ロ 12 ま =RIGHT ま で H1 ま D1)。LENCH1 ま CD1))-R9) 

14S ITF 12 ま くり!" THEN KR2=URLCT2 ま ): T エ =1 ELSE 日 さま =T2 ま +" "EGOUSUB 28 さ iR2=HH 

146 IF IT=1 THEN PUKE DC,&HSE:POKE DC+1。R2IPUKE DC+2, IT=d ELSE POKE DC &HSRiP 
URE DC+1』FNRKR2。 さ )』 PUKE DC+2。FNRCR2。 1 

14 IF 11 ま く !EV THEN R1=URLCT1$) ELSE ロ さ $=11$+ り "5GBUSUB 28S ロ iR1=HHI CC=1 

148_ FUKE DC+3, &HS2E PUKE DC+ す 。FNRCR1。 さ ):PUKE DC+5。FNRCR1。 1 

149 ITF CC=1 THEN CC=giPOKE DC+ さ 。&H2RIPUKE DC+6,&H ア Yi DC=DC+1 

1S8B_DC=DC+6I GUTU SSg 

1S1g ロ REN て next J へ っ ho ン > 

1S2 IF LD く 2 THEN FRINT "next-HISS"i BHTD さ 42g 

153B_D2=LD-1:LD=LD-1 

154G 1 ま =HE ま て D2 う +" "5 エ 2 ま = ニ HF ま CD2 う すり リュ 民 さ ニ HDCD2): 民 9=URL て GR ま CD2) 5:BUTU 155g 

155 くま =T 1 ます "リュ 8 GUSUE 2B さ iRK1=HH 

1S6 ロ B IF 12 ま くり 3:" THEN R2=URLCT2 ま う :POKE DC,&H2Z1 ELSE G さ ま =12$+" "EGOUSUB 2839:K2=HH:P 
URE DE,S&HSR 

157 IF RS>=B THEN POKE DC+1.RK2h1OD256: PUKE DC+2。R2 半 56:PUKE DC+ さ 。&HEE: BUTU 153g 
158g_POKE_DC+1 FNRCR2。 さ ぅ PUKE DC+2。FNRCR2。1):POKE DC+ さ 。&HEB 

153 ロ FUKE DC+4。&H2RIPOKE DC+5。FNRCR1. さ ): POURE DC+6。FNRCR1,1) 

168B_POKE DC+ ア 。 &HE5* POKE DC+8。 &HRF:PUKE DC+9。&HED:PUKE DC+1g。&H52:FUKE DC+11,&HE 
1: DC=DC+ コ 

161@ IF RSX THEN POKE DC+ ア 。&H1:PUKE DC+B。FNRCR9。 さ ) PURE DC+9。FNRCR9。 1):PUKE DC+ 
19, HI DC= ニ DC+ さ I BHT 163 昌 

162 IF R ヨ = THEN PQKE DC+ ア 。&H23 ELSE POKE DC+ 了 。&H1iPUKE DC+8。R9HOD25G:FUKE DC+ ラ 
: KR ヨ \2S6s PURE DC+1 ロ 。 ミ H3E DC=DC+ さ 

163 FUKE DC+B。&H22iFUKE DC+3。FNRCR1 。 さ ): PUKE DC+19。FNRCE1。 1 

164 ロ FORE DC+11。 ミ HCS*PUKE DC+12。FNRCR さ 。 さ ): PURE DC+1 さ 。FNRCR さ 。 1 

16S_ DC=DE+1 す IiGHTO 8 

166g RE て Eu2 J Ah ン > 

16 T ロ =1 
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168g 
169 ロ 
1BB 


FOUR DD2=1 TU LENCH1$ ま D1)): 1 ま =NID ま て H1 ま で D1)』D2Z。 1 う : 12 ま =ID ま (日 1 ま て D1 う :DZ+1 1) 
IF 11 ま ="! THEN BOTU 173g 
TIF [1 ま ="C" ND 12 ま = リー" THEN H1 ま CD1 =LEFT ま て H1 ま て D1),D25+"B"+RIGHT ま CH1 ま CD1):LE 


NH1 ま D1) う 一 D2)s UTU 17Z2g 


11 ロ 
172 加 
173B 
1 
17Sg 
176 呈 
1 回 


Ce (11 まう > リリ 白 ND 11 ま くり まう ) ロ NDC12$ ま =" てく") う THEN GUSUB 182g 
FR9=INSTRCH1$CD1) "= リョ 11 ま =LEFT 和 ま (H1 ま て D1) :R9ー1 ) 

9 ま = 民 IGHT$(H1$ く D1)。LENCH1$CD1))-R9): GUSUB 4299:GUSUE 1999 

IF LEFT$(11 ま 。 1) く > リロ "THEN 173g 

TG=URLCRIGHT ま て T1 ま > 2) う 19 エエ =1 : GUSUE 49 ロ 

ITF (SS=1 ND SL=1)0RCSI=g ND SS=1) THEN POKE DC-4。 &H22ZIPUKE DC- さ 。 PEEKCD ビ ヒー2 


Sr PHRE DC-2, PEEKCDCー1 ) iDC=DC- 1 : SH ニ ロ : 1 エロ: 5S ニ ロミ SL ロミ ST= ロ 5 BUTU SBB 


178g 


179g 
18 ロ 
181 ロ 
1815 
182 
183g 
184 
18S 呈 
186g 
187 ロ 
188 ロ 
189 ロ 
193 加 
191 
192 ロ 
133g 
13 ロ 
195g 
19E 


FORKE PC.&HD1:PUKE DC+1.&HZ さ IFUKE DC+2> 5&H23IPUKE DC+ さ 3。 &H723DC=DC+ 引 5 BUTU 1815 


ロ S ま =11 ま +" "igGHSUB 28BSgs KR1=HH 

FUKE DC,&H22I PUKE DC+1 FNRCR1. さ ):PHKE DC+S ェ FNRKR1 1 
DCE=DC+ さ 』GHTH 1815 

SM=i 1 T= ロ : GS=gi GL GT= ニ ロミ BHTH 8g 

FUR EZ=D2 TU 1 STEP-1: 13 ま =HID ま (H1 ま て D1) EZ 1 う 

ITF て 1 さま > ND 13$ ま くり BUOHR 13 ま = リ "=" THEN 184 ELSE NEXT E2 
FR E3=D2 TU LENCH1$ を CD1))』 1 くま =HTD ま て H1 ま て D1)。E3。 1 ) 

1TF 1 さま =" う " THEN E さ =E さ +1: UTU 186 ロ ELSE NEXT E さ 

1 さま =TD ま く H1 ま (D1 ),E2+ 1 ,E さ ーE2ー1 ) iRK9=TNSTR(13 ま "て う 

HJT$ く TG)=LEFT$(1 さ $,R9-1):HG$ て TG)=NID ま (1 さま 。 R9+1 LEN(13 ま う RK9-1 ) 
UI2 ま =LEFT ま CH1$ て D1) EZ2) さま =RIGHT ま て H1 ま (D1 LEN て H1 ま (て D1 5 うさ +1 ) 
H1 ま 1 )=MU2 ま + す "ロリ +RKIGHT$(STR$ ま (19+TG) 。 2)+ 員 さま : =T ロ +1: RETURN 
REM く ラ り 2 SUB-1 > 

1] ロニ ロ 

FOR _D2=g TU TX 

TF ご ま CD2)=""! THEN 295g 

R9=INSTR(Z ま CD2 う 』 リリ う 

TF RB=g THEN 1 ロ =1: 12$= の $CD2)+ す ELSE 12 ま =LEFT ま くま (D2): 民 9ー1) 
TF LEFT ま (TI2$。15="O" THEN II=giGUSUB 217giIF SM=1 THEN SNM=giGOTO 2g69 ELSE P 


UKE DC &HEBI DC=DC+1: GUTU 296 ロ 


1 回 
198g 
1999 
2 
2 ロ 1 ロ 
292 
2 ロロ 3 
2 
295g 
296 ロ 
2 ロロ 
298 ロ 
2 ロロ 


TF LEFT$(12$。 1)=" 島 "THEN GOSUB 2 く 19sGUTOU 133 ロ 

GUSUB _ 223 

IF 1 ロ =1 THEN 2g3g 

H4=R9iFOR E2=R9+1 TU LEN(Z*$D2)): 14 ま =TD ま て だま て D2)>E2> 1 2 

IF 14 ま >" う ! RND 14$ く <" THEN GUSUB_ 27gsH4=E2 

NEXT EZ 

RS=URL て "KKH リ +Z ま う キ 2 ボ D 

PUKE DC,&HZ2IFUKE DC+1,FNRCR さ , さ ): PUKE DC+2 ッ FNRCR さ > 1 ) DC=DC+ さ 
NEST _D2IDC=DC- さ 』 RETURN 

ITF 1G ロ =1 THEN 1G= ロ GUTU 2 ロ Sg ELSE 2 ロ 9B 

REN くり 2 SUB-2 > 

12 ま =TD ま (ご まま CD2 う H4+1 , E タ ーH4-1 ) 

TF LEFT* ま (12 ま 。1)=" ロ ' THEN IT=1:GOSUE 217gi IF SN=2 THEN SH=9:GOTU 2129 ELSE P 


nRKE DE,&HE11 DC=DC+1』 BHT 2129 


21 ロ g 
2119 
2129 
213g 
2149g 
2159 
216 ロ 
KN 

217 昌 
2189 
2199 
229g 


TF LEFT$(T2 ま 。 1 )=" 介 "THEN S5=1: GUSUE 2319* ロ UTU 212g 

SS=1 3 GHSUB 22 さ 

1L=INSTRC " グ キ ー。" ょ ITD ま (2Z ま CD2 う EE2 1 うう) 

IF IL= さ THEN FUKE DC:&H19IDC=DC+1: RETURHN 

IF IL=4 THEN POKE DC,&HRF:FUKE DC+1,S&HED:PUKE DC+2。&H52IDC=DC+3* KETURN 

POKE DC,&HCD:POKE DC+1.1ILiPUKE DC+Z ッ 5HCCLC ゥ =DC+1:L じ ビニ トビ +1 

ITF IL=5 THEN PKE DC+3。&HC5IFUKE DC+4。&HE1:DC=DC+5 RETURN ELSE DC=DC+ さ 』 RETU 


REM く ジリ ワ 2 SUB- さ 3 > 

TG=URLCRIGHT ま て 12 まう )ー1 ロ 

SI=gi GHSUB 3 

TF て SS=1 BND SL=1)0RCST= ロ BND SS=1) THEN IF II=d THEN POKE DC-3。 &H2Ri SI=1 3 ロ 


TO 222 ロ ELSE PUKE DC-4.&HED:PUKE DC- さ , &HSB: SN=2: BUTU 2229 


2219 
2229 
2239 
2249 
225 ロ 
226 ロ 


227 


228@ 
2299 
る 23 
2319 
2 さ 2 ロ 
233 
RH 

234g 
235 ロ 
2369 
2 
238g 


POKE DC,&H5E:PUKE DC+1 ,&H2Z さ PUKE DC+2。 &HS56 DC=DC+ さ 

T1= ロ Ii SIT= ロ i SS=gi SL= ニ 9 RETURN 

REM ヾ UP SUB- > 

TF T2 ま く "E" THEN 11=1:R1=URLC12$) ELSE ロ さ ま =12 ま +" "5GUSUB 2B さ giR1=HH 
IF II=1 ND SS=1 THEN POKE DC,&H11: ITF R1 く ロ THEN 229g ELSE 2SBg 

IF II=1 ND SS=g THEN PnKE DC,&H21: ITF R1 く ロ THEN 229g ELSE 23Bg 

IF II=g BND SS=1 THEN POKE DC,&HED:POKE DC+1 SHSBIDC=DC+1 

IF II=g ND SS= ロ THEH PHKE DC:SHZR 

FUKE DC+1,FNRCE1. さ ):PUKE DC+ ラ ュ FNRCR1 1):DC ニ DC+ さ 』 SS= ロ gs [エニ ロ RETURN 
PQKE DC+1,R1MUD256:PUKE DC+2,R1\256: DC=DC+ さ : SS= ニ gs 11=9 ロ RETURN 

REN く 2 SUBE-5 > 

TG=URLCRIGHT ま 12 も, 2)) う 1 民 1= ニ URL て "&H リ 江本) う 2 玉 T ロ 

TF 55=g ND PEEKCDC-1 う =FNRCR1。1) 有 ND PEEKCDC-2)=FNRCR1 さ ) THEN DC=DC- さ RETU 


1TF SE=1 THEN SS=gkPOKE DC,&HED: POKE DC+1.&H5B DC=DC+1 ELSE PUKE DC:&HZR 
POKE DC+1.FNRCR1 さ ):POKE DC+2,FNRCR1. 1:DC=DC+ さ : KRETURN 

REM く gosub 』 いっ D ン テ 

11 ま =RTGHT ま て H1 ま て D1)。LENKH1 ま CD1 うふ ー5) 

R1=URLC11 を まう 

POKE DC,&HCD:PUKE DC+1,R1MOD256: PUKE DC+2> 1\256 
HBCLB)=DC+1:LB=LB+1 』 DC=DC+3: GUTH 58g 

REM く return J へ ンカ ーッ > 

POKE DC:&HC9: DC=DC+1: GUTU 58g 

RENM く inc:dec SUB > 
H4=URLCRIGHT を まく H1$ ま て D1)。 1))= 11$=LEFT ま まく H1$ く D1)。 LENKH1 ま D1 う )-42 
ロ さ を =T 1 ま +"" ョ GUSUB 28 く 9: R2=HH 

POKE DC,&H2RsPUKE DC+1,FNRCR2。 3): PUKE DC+2>FNR て R2> 1 う 

DC=DC+ さ 3 

FOR E2=1 TO H4:PUKE DC,R9: DC=DC+1:NEXT E2 

POKE DC,&H22:POKE DC+1,FNRCR2 ぅ 3) PUKE DC+2> FNRCR2> 1 う 
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25S89 DC=DC+3s GOTO 589 

2519 REM < nop J へ っ カン > 

2529 1!1$=RITGHT$ く H1$ く D1)。LENCH1 ま て D1))- さ ) 

2539 IF 11$ く "8" THEN R1=URL〈I1$) ELSE PRINT "noP-HISS"iGOTOD 3429 

254 ロ FOR E2=g TO R1-1:POKE DC+E2,9kNEXT E2 

2559 DC=DC+R1: GOTO 589 

2569 REN く 1dir,1ddr > 

2S79 IF R9=&HB9 THEN E1=INSTRCH1$CD1),">") ELSE E1=INSTRCH1$CD1)," く ゆう 
2589 GOSUB 2899 

SG ロ 3 ま = ニ 1 さ ます" "EGHSLUB 2B3 ロ iR さ =HH 

SB PUKE_ DC:&H2RIFIRE DC+1。FNRCR さ , 35:PUKE DC+2。FNRCRS,。 1 ) 

2619 PURE DC+ さ 。 HE5E FUKE DC+4。&HC1 

=62_ PUKE DC+5。&H2RIPUKE DC+G。FNRCR2. さ ) POKE DE+ ア デュ FNRCR2: 1): PUKE DC+8, HEB 
263 ロ _PUKE DC+B。5&H2HiPHKE DC+1 可 。FNRCR1 . さ )EPUKE DC+11。FNRCR1。1) 

=e4 PUKE DE+12。5&HEDEFPHKE DC+1 さ 。R9: DE=DC+14: BHT 58 

SGS RE ミー cFir』cFdF > 

26E E1=THSTRCH1 ま CD1)。 リー リッ 

2Er 加 USLIE 2 

BB HH=THSTRCT さ ま 。 リリ 35 T1 ま =RTGHT ま (1 さま LEN(T さ ま )-H4 )』 2 ま =LEFT ま (1 さま 。H4-1) 
SG 3$= ニ 1 ます "0 EGOUSLIB 2B さ iR さ =HH 

Er TF 11 ま く " は 0 THEN H4=URLCT1 ま ):BHTU 21 ELSE ロ さ ま =11*+""gGHSUE 2B さ giH は =HHE GUT ロ 





昌 
=r1B FUKE BC:&H3EIF ロ KE DC+1,HdiDC=DC+2I BUTU 273 
re FUKE DC。&HSRIPHKE DC+1。FNRCHH。 さ ):PHKE DC+2。FNRCH3。 1):DC=DC+ さ 
ZS FHKE DCE。&H2RIPHKE DC+1,FNRCR2,3):FUKE DC+2。FNRCR2。 1):FUKE DC+ さ , &HESIPOKE DC 
+ 引 。H に 1 
Sr FUKE DC+5z &H2RI POKE DC+6。FNRCR1, さ 5:PUKE DC+ ア 。FNRCR1 15:PUKE DC+B。&HED:POKE 
DC+9。 民 9 
Sg ITF R9=&HB1 THEN POKE DC+1g。&H2E ELSE PUKE DC+19。&H2 さ 
re FUKE DC+11。&H22IPUKE DC+12。FNRCR1。 さ )』PFUKE DC+1 さ 。FNRCR1。1):DC=DC+ 
rr FUKE DC+1。 攻 H21PHKE DC+11.&HFFIPUKE DC+12。&HFFIPUKE DC+1 さ 。&H2E PUKE DC+14。 
SH1IFHRE EC+15」&H2SIFUKE DC+15,&H2 さ 
=rBB FURE DC+17。&H22KFHKE DC+18。FNRCR さ 。 さ ) FUKE DC+19,FNRCR3, 1) 
SB DEC=DC+2 ロ Ii GHTU 58 
<GE_E2=INSTRCH1 ま CD1) ょ "。 "SE さ =LENCH1 ま CD1)) 
=B1H 11 ま =HID ま で H1 ま CD1)。。E1-5)5 13 ま =MHTD ま て H1$ ま CD1)」E1+1。E2-E1-1』 13$=RIGHT ま CH1 ま CD1 )。 
E さ -E2) 
EZ は さま =11 ま すり "は HSUE 2BSiR1=HHI G さ ま =12 ま すり "5GUSUB 283dkR2=HHI RETUEN 
=SSH RE く ペロ アト ドル > 
SB FOR E1=1 T ロ EF 
<SSE TF ER ま CE1)= ロ さま THEN HH=EB+2 ボ CE1-1):RETURN 
2SE ロ NERT E1IFRINT "nuS ウ オシ! IgEE=1: RETURN 
2 REN て n イ ルリ の NO フス ウー アト "ルズ > 
2SB_ FUR E1=1 T ロ FE 
=S3 TF FR まで E1)=G6 ま THEN HH=FBCE1):RETURN 
3 NEXT E1:FRINT "パン スウ ナオ Eil IEEE=1:E1= ロ iRETUKN 
291 RE て ヨウ SUB 1 キ コ ミ > 
2332 IF LC=1 THEN RETURN 
=33 FUR E1=1 TU LC-1 
2 TF HECE1)= ロ ロ THEN 297 
BS TF FEEKCHCCE1))=1 THEN 298 
26 IF FEEKRCHCCE1))=2 DR PEEKCHCCE1))=5 THEN さ 93 ロ 
9r 操 NERT E1iRETURN 
238g FUKE HCCE15,FNRCDC,3):FPOUKE HCCE1)+1.FNRCDC, 15 
233 ITF 月 1=1 THEN 297g 
さ gG RESTUEE 
3g1 ロ FR E2=DC TO DC+17iRERD 月 ま 
SB2 FUKE E2。URLC"&H"+ ま ): NEXT E2i 月 1=13 UTU 297g 
3B3g POKE HCCE1),FNRCDC+18。3):POKE HCCE1 5+1。FNRCDC+18。 1) 
94 IF 2=1 THEN 2979 
さ g5g RESTHRE 3 ロ 99 
SG FUR ES=DC+18 TU DC+191』RERD 内 $ 
ご gr POKE E2。URLC"S&H"+R ま ):NEXT E2』 朋 2=1 GOTO 297g 
SGS DRTR E5,C1.21。 ロ 。 9: 3E。 19。 29。EB, 29。EB。 39。 1 。 9。 さ D。C8。 18。F5 
さ 93 DRT 1 BB> DS ビュ 17 さ 8。 さす 。 D1 。E5。 1 さ 8。 38。 EE1 。 C5。 6 9。 さ E。 19。 29。E5。 C5。E1 , ED。 
9:E5。ED, 52。 3B。 さ 1 1 E5。C1E1 , 2 さ 。 3D。 29。 ED。 D1 。 さ E。 1 。 月 2, CB。E5。 21 。 9。 9 
さ 199 DRTH ED 2 E5。 じ 1 E1 EB。 21 9, ED, 52。C9。 す 。 EB。 21 。 9。 B。 RF。 ED。 52 18。 じ 2 4。 21。 9。 9。 
RF ED。52。EB, 18, BE,C1.E1. 18,Dg 
さ 119 REM く JMP ア トル スキ コミ > 
さ 12@ IF LB=1 THEN RETURN 
さ 13g FOR E1=1 T ロ LB-1 
さ 14B IF HEXE1)=B THEN さ 19g 
さ 1S ITF PEEKCHBXE1)+1)=&HFF THEN さ 2gg 
さ 16 ロ ES=FEEKCHBCE1) 5 
さ 1『 申 TF HRCES う = THEN PRINT "NT no。 "3E2IGUTO 3199 
さ 18 PUKE HBCE1) ょ FNRCHRKE2), さ ぅ PUKE HBCE1)+1.FNRCHRCEZ)。1) 
さ 13 NENT E1IRETURH 
SS R1=FEERKHBXE15 5 
さ 21 ロ FUR ES=R1+1 T ロ 2 ロ g 
さ ZZ ロ IF HRCE2D く > THEN さ 18g 
SS _ NEXT E2IPRKINT "if jmp NISS!! "ERKETURN 
さ 2d ロ REN てく ハンズ ウト “ルズ モニ ター > 
325g INPUT "ヘン スウ メイ リョ UN 
さき 2 IF 民 IGHT ま UN も 。 1 )=") "THEN さ 29g ロ ELSE ロ さ $=UN ま +" "5 ロ USUB 28 さ ロ 
さ 2 回 ITF EE=1 THEN EE=gi GUTH さ 19 
S2S PRINT HE 宮 ま て HH)s GUTU さ 19 
さ ZBE_ ロ G ま =LEFT ま UN ま 。 LENKUN ま うー1)』GUSUB 2BiGUTU さ 2 
ささ BB_ REN く キョ ウ アト "ルス モニ ター > 
さ 319 INPUT "ヨウ ドン ゴウ "3E1 
さ S2Z ロ IF _HRKE1 う = ロロ THEN PRINT "アト “ルス オジ !1 "GUTU さ 19 
ささ さ ロ PRINT HE まで HRCE15):GHTU 319 
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334 RE く エント" ジョ ヨリ ー テ 

335 USUB 2919:GUSLUB さ 119!DC=DC+H1 ボ 18+R2 ポ 192 

ささ 6 ロロ 1= ロ 』 ロ 2= ロ 

33z ロ E2=URLC"&H"+DD ま う :E1=DC-E2 

338B PRINT "ヨウ モリ "5HEX ま CURLC "SH"+DD$ う 25 リ ーー HER ま DC-125 0 BE15 PT イト リ 

339g PRINT "サコ "ルー チン アト ドル スズ ST ま 

さ 4gg END 

341 ロ 9 PRINT "BR?? MISS"iRESUIE 3429 

3429 DC=SILB=MBILC=MCILD=ND 

343 IF HI く 251 THEN HRCHI)=9:PRINT を 

3449 PRINT "セリ ナオ シ !1 リ GOTU 19 

3459 PRINT "まで ョ ウ ニュ ウリ ョ 2 NISS! 1 "8GUTU 319 

346g ロ REI1 く り ウ ニュ ウ > 

347 昌 IP=1』 GUTU 339 

348 ロ FUR EZ=HI+1 TO HZ 

さ 349 IF E2>HI RND HRCE2) く >9 THEN MM2=E2:GOTO 3519 

35gB_ NEXT E2:GOTU 3459 

351 ロ HRCHI う =HRCM2): NN4=DC-1: DC=KZ 

352g GOTO 389 

3539 MM1=DC-KZi R9=K〆ー-HRCNM2 

3549 IF 1>199 THEN PRINT " り ウ ニュウ スペ ピー ス オー ドー" ミ BUTOU 3429 

3559 IF MM4+M1>KN THEN PRINT "モリ オー ロー"EBOTO 3429 

3569 FOR E2=N4 TO HRCI2) STEP-1 

357g POKE E2+M1 PEEKKE2> 

358g NEXT _E2 

359g FOR E2=9 TO NM1-1 

36g9 POKE HRC2)+E2。PEEKCKZ+E2) 

3619 NEXT E2 

さ 62g FOR E2=I2 TO _HZ 

3638 IF HRCE2) く >9 THEN HRCE2)=HRCE2〉+I11 

3649 NEXT_E2 

365g FOR E2=1 TO LB-1 

3669 IF HBCE2)=9 THEN 3699 

3679 IF HBCE2〉>KZ THEN HBCE2)=HBCE2)-R9: GOTO 3639 

3689 IF HBCE2)>HRCHI〉 THEN HBCE2)=HBCE2)+N1 

さ 699 NEXT E2 

379g FOR E2=1 TU LC-1 

3?1g IF HCE2)=9 THEN 3749 

3?29 IF HCCE2)>KZ THEN HCCE2)=HC〈E2)-R9: GOTO 3749 

3739 IF HCCE2)>HRCHI〉 THEN HCKE2)=HCCE2)+1 

3749 NEXT E2 

3?59 IF LD=1 THEN 3899 

3769 FOR E2=1 TU _LD-1 

3779 IF HDCE2)>KZ THEN HD〈E2)=HD(E2〉-R9GOTO 3739 

37Z89 IF HDCE2)>HRCHI〉 THEN HDXE2)=HDCE2 う +M1 

37Z99 NEXT E2 

さ 8g DC=Nd+1+1: TP= ロ EGOTU 399 

3819 REM く 92 が ョ > 

さ 82g INPUT " 和 ョ ウリ ョ HI 

383 IF HRKHI〉= ロ THEN 3459 

384 FOR ES=HI+1 TU HZ 

385 ロ IF HACE2) く > ロ THEN NM2=E2IGUTO 3879g 

さ 386 ロ NEXT EZ2IGUTU 359 

38Y LPRINT VHTE1= ニ HRCM2)-HRCHT )』 4=DC-HRCNM2) 1 R9=HRKINZ う 

388 ロ FOUR EZ=g TU NH4 

389g ロ POKE HRCHI)+E2.PEEKCHRCM2)+E2) 

さ 399 NERT EZ 

391 ロ FOR E2=M2 TO HZ 

392 IF HRCE2) く > THEN HRCE2 う =HnCE2)-N1 

39339 NERT EZ 

394 ロ FOR E2=1 TU LB-1 

さ 95 ロ IF HBCE2)=9 THEN さ 98g 

396g ITF HBCE2)>HRCHI) ND HBCE22 く R9 THEN HBKE2 う =9* GUTU さ 989 

3979 IF HECE2)>R9 THEN HBCE2)=HBCE2)-M1 

338 NERT EZ 

393 FOUR EZ2=1 TU LC-1 

gg _TF HECE2) う = THEN 4 ロロ 

491 IF HCCE2)>HRCHT) RND HCCE2) く R9 THEN HCCE2)=9: GUTD 4939 

492 ロ IF HCXE2)>R9 THEN HCCE2)=HCCE2)-N1 

4939 NEXT E2 

4 ITF LD=1 THEN 4989 

495g FUR EZ2=1 TU LD-1 

969 IF HDXE2)>R9 THEN HD〈E2)=HDCE2)-N1 

4 NERT E2 

88B_HRCHT )=g: DC=DC- 了 1 GUTU 3 さ gg 

4g99 REM く n イ ルリ ナシ ジョ リ > 

95 S1=i SS= り : SL= ロ 

189 G6$=HJ を く TG う +" "ミロ OSUB 287 ロ iR2=HHi RY= ニ FCKE1 ) 

411 ロ BRZ=INSTRCHG$(TG) リュ リ う 

2 RZ く >9 THEN 5S1=1:RZ$ ま =LEFT を て HG$TG) , RZー1 ) HG まく TG〉=RTGHT$ く HG$ く TG> LEN て HG を まく T 
うう - 民 Z う 

413d IF SI=1 PND RZ$ く "*" THEN RZ=URLCRZ ま )』 SL=1 ELSE IF SI=1 THEN ロ さ $=RZ$+" "5GOSU 

B_ 283 RKZ=HH 

414 ロ ITF HG$ く TG) く "ミリ THEN R1=URL て HG を CTG))』 SS=1 

415g IF 1I=1 THEN POKE DC:&HES*DC=DC+1 

416g IF SS=1 THEN PnKE DC。&H21:POKE DC+1。FNRCR2+R1*2。 さ )』POKE DC+2>FNRCR2+R1 ネ 2。 1 う 

5 DC=DC+3 GUTU 4229g 

17 G3 を =HG$ く TG う +" "EGOSUB 2839:R1=HH 

418q PDKE DC,&H2RPHKE DC+1,FNRCR1: さ )』POKE DC+2>FNRKR1 > 1 

419 ロ POKE DC+ さ , &H2Z9 

428 POKE DC+4,&H11:POKE DC+5。FNRCK2> さ ): PUKE DC+6>FNRCR2> 1 


&O 


プロ グラ ム ・ リ スト 
| 
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BASIC コ ン パ イラ プロ グラ ム ・ リ スト 











4219 
922g 
42 さ 3 


FOKE DC+?, &H19: DC=DC+8 
IF SS=1 RND SL=1 THEN 4289 . 
IF _SL=1 THEN DC=DC-3: POKE DC,FNRC て 2*RZ*RV+R2) ,3)iPOKE DC+1FNRC て 2*RZ*RY+R2) 


ヵ 1)iFUKE DC+2。&H19: DC=DC+ さ GOTO 4279 


424 
425g 


IF SIT=1 THEN POKE DC。&HE5 
IF SI=1 RND SL=g THEN POKE DC+1,&H2R:POKE DC+2。FNRCRZ。 さ )』POKE DC+3,FNRCRZ, 1 


> ELSE IF SI=1 THEN POKE DC+1。&H21:POKE DC+2。RZMOD256: POKE DC+3, RZ\256 


426 ロ 


IF SI=1 THEN POKE DC+4,&H29:POKE DC+5,&H11:POKE DC+6, RYMOD256: POKE DC+ ア , RV\ 


2S63POKE DC+8。&HCDsPOKE DC+9, 1:』POKE DC+19,9:POKE DC+11。&HD1iPOKE DC+12。&H19IHC(E 
ビ う =DC+9』 DC=DC+13』 上 =LC+1 


4279 
428g 


DC+28 


4299 
43B9 
431g 
4329 
4339 
4349 
435B 
15| 
437g 
38g 
EK に)5| 
に 515| 
41 ロ 
442 ロ 
に な 15] 
邊 4 ロ 
44SBg 
446g 
| 
8 
N 

和 す 9 
45B 
51 ロ 
452g 
453B 
54g 
455g 
56g 
457 昌 
458 加 
459 
6 
461 ロ 
462 ロ 
463 
に 5| 
465g 
965B 
467g 
5689 
59 
7 
1 
に | 
473 申 
7 
475g 
476g 
477 ロ 
478g 
479 加 
48gg 
481g 
4829 
483g 
484 ロ 
4859 
4869g 
4879g 
488g 
4899 
49Bg 
491g 
4929 
4939g 
4949 


RETURN 

DC=DC-2:FUKE DC。FNRC2*CRVRZ+R1 )+R2。 さ )』POKE DC+1。FNRC2CRV*RZ+R1 )+R2。 1)』 DC= 
BOTO 4279 

REM く エン 9 ドン ミド ュ ン ジ ド ョ ーッ > 

ERRSE Z$:DINM 2 ま (29):』 TX%=gs TV=9 

ITF LEFT$(Z9 を 。 1 )="ー リ THEN 9$=""+Z9 を 

LL=LEN〈Z9$) 

FOR TT=1 TO LL 

1$=NMID$(Z9$。 TT。 1) 

TF ご 1 ま ="C! THEN GUSUE 445g 

IF CC=1 THEN CC=gEGUTH 4 さ 2g 

NEXRT TT 

FOR TT=1 TO LL 

ご 1 ま =NID ま (Z9 ま 。 TT 1) 

TF ご 1 ま > リ うり ND 21 まく "9 THEN TV=TV+1 

NEXT TT 

TF TV>1 THEN 2Z ロ ま =Z9$+"" ュ GUSUB 458 ロ 9 ま =Z5 ま +"" ミ RETURN 
TF T"=g ロ THEN ご ま (TX う = ご 9 ま +" "RETURN 

ご 5 ま ニ ご 9 ま + "05 ミ L1=LLiGUSUB 49 ご 9 ま = ど 5 ま +" "RETURN 

FIR Te=TT+1 TO LL 

ご 1 ま =MID ま て Z9 ま 。T6。 1 ) 

IF 〆 ど 1 まま =" て ! THEN RETURN 

TF ご 1 ま = リ ) う ! THEN 25 ま =NID ま て ど 9 ま 。 TT+1 。 T6-TT-1 )』GHSUB 4589:GUSUB 4519: CC=1:RETUR 


NEXT T5 

RETURN 

FUR Tr=TT TO T6 

HID ま (ご 9 ま 。T ア 。1 う = リリ 

NEXT T ァ 

TF CB=1 THEN T=TXー1 : C ロ = ロ 

ぷ ま = リ 便り +NTD ま (STR ま て 19+TS) コッ 2) ID まく ご 9 ま 。 TT, さ う = ま 

TS= ニ TS+13L1= ニ Li ご まこ = ご 9 ます "05 GUSUB 95: ご 9 ま = ます"! 

RETURN 

REM バ Z5$ > 

L1=LEN〈Z5 ま * う 

FOR T1=1 TQ L1 

1* ま =TD ま て Z5 ま 。 征 1 。 1) 

ITF ご 1 ま = リ ボリ! UKR ご 1$ ま = リリ THEN GUSUB 4649:GUSUB 4759: GUTU 459g 
NEST 1:iGOSUB 4799: RETURN 

FOR E2=T1-1 TO 1 STEP-1 

2 も =ID ま 6Z ま EZ 1 ) 

TF 22 ま > リ う ! RND 2 まく"B! THEN ご 2 ま =MID ま て ま 。 E2+ 1 。 1-E2ー1 ) GUTU 468g 
NERT E2IZ2 ま =LEFT ま (どらま 。 1-1) 

FUR E さ =T1+1 TO LENXZ5 ま > 

さま = TD ま (Z ま 。E さ 。 1 ) 

IF 2 さま > リ う ! NND ご 3 まく "! THEN 2 くま =ID ま 25 ま 。 本 1+1 。E さ -T1 -1)』 UTU 2 ロ 
NERT ES く : ご 3$=RIGHT ま くど 5 ま , LENCZ5 ま )-T1 ) 

L5=E さ ー-E2ー-1: ITD ま (25 ま 。 EE2+1 , し 5)=SPRCE ま て L5 ぅ 

ご ま (T う ニン 2 ます リ ・ リ キオ ごく ます ご 1 まま 本 ニ リ 全 "TNITD ま く STR ま (19+TR う 。2。2 う 

IID ま て ごま 。 EZ+1 , さ う = まま 5 TETR+1: KRKETURN 

Y2 ま =" WEFOR T2=1 TO L1 

Z1 ま =ID ま (Z ま 2 1 ) 

TF ご 1 まく >! リ THEN V2 ま =W2$+ ど 1 

NERT T2iZ5 ま =V2 ま + す "9 RETURN 

FOR T3=1 TO L1 

と 1 ま =TD ま (Z ま 。 さ 。 1 ) 

TF 21 ま >! う リ ! HND Z1$ く "ロロ ! THEN 22$=NID ま く 25 ま 。 1 。 征 ミ -1)s UTU 4849 
NEXT T さ 

Cg=1 : RETURN 

さま =" "は T5=L 1 

FOR T4=L1 TO T3 STEP-1 

1* ま =MMID$(Z5 ま 。 4, 1) 

IF ご 1 ま >! う ! RND 1 まく "" THEN GUSUB 4919 


NEXT T4 

ご ま (T う =Z2$ す "リキ くま 

RETURN 

Z4$= ニ MTD ま (25 を 。 4+1 。 5-T4)』 T5=T4-1 


さま = ご すま + の 1 ま + さ まま RETURN 
RENM で ニュ ウリ ョ グッ 
PRINT CHR* ま (12)』 GUSUB 595g:LOCRTE ロ ,4:PRINT STRING ま 〈4 ロ , &H95):LOCRTE 9,11:PR 


INT STRING$〈49, &H95)』POKE &HFSR632 


4959 
4969 


LOCRTE 19,2IPRINT " ま " ョ 9 パン の "5HTiELOUCRTE 26:2 

IF IP=g THEN PRINT "アト ドル スー" の HER ま CDC)』 ELSE PRINT " り ウ ニュ ウリ ョ 
YZ$=" "8LOUCRTE 5:LINETINPUT H ま : つ 1=LENCH ま うま = リリ" 

IF Z1>=39 THEN 1$=CHR$ て PEEKC&HFSR6 ) ) 日 ま =LEF 丁 ま て H ま , さ 9)+ 選 1 ま +RIGHT ま く H ま , 1 一 さ 9) 
Q$=H ま を + "PRINT Q$E INPUT " OK (9g or n23S ま 

IF S ま ="n" THEN 4939 

LPRINT "3H13 リ 93 

FOR E2=1 TU LENCH を )』 1$= ニ ID まく H を , E2> 1 ) 

TF Z1 を まく >" ! THEN VZ ま =VZ ま +1 を 

NEXT E2:H$ ま =VZ ま +" "RETURN 

LOCRTE 9,9:PRINT "ネネ ポポ BRSIC コン フロ" イラ ボボ "3 RKETURN 
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『BASIC まで は 何と か わか る よう に な っ た けれ ど , 機械 
語 は わか ら な い 』」 と いう の は 良く 聞く 言葉 で , 筆者 自身 も 
半年 前 まで 同じ 実感 を 持っ て いま し た -. 

と ころ が , 友人 の は 角 沢 氏 か ら , HH・C 一 一 『 ハ ンド ・ コ ユン 
パイ ル 』 技 法 を 伝 受 さ れ て か ら , 機械 語 の な ん た る か が わ 
か っ た よう な 気 が し て きた の て す -。 そこ 5 べ NGGS も お) 多く 
の 方 に この “秘法 ” を 伝 受 し て いた だ きた いと 思い , 彼 に 
再三 本 誌 に 投稿 する よう に すす め た の で す が , PASCAL 
コン バイ ラ の 開発 に 熱中 し て いる 彼 は , と て も 引き 受け て 
くれ な いう え , つい に は ,『 土 が 書け よ 」 と いう 始末 で す . 
そこ で , 雄 を 鼓 し て 実力 も か えり 見 ず , 筆 を 取っ た 次 第 で 
す . 

な お , 使用 機種 は 手持 ちの 関係 で . ビ C に し まし た が , 
H・C の 考え 方 は , 有 Z80 は も ちろ ん , 8080 で も 6800 で も , 
真意 さえ 理解 し て いた だ けれ ば CPU, MPU や 機種 に 関係 
な く 利 用 で きま す . 


1.『 ハ ンド ・ コ ン バ パイル, と は 


読ん で 字 の ご と く , BASIC で 書か れ た プロ グラ ム を 腕 
力 で オプ ジェ クト ー 一 機械 語 プ ログ ラム に し よう と いう も 
の で す . も ちろ ん , BASIC コ ン パ イラ が あれ ば 問題 な い の で 
す が , 我々 が 簡単 に 使え る BASIC コン パイ ラ が あり ませ 
ん か ら , 腕力 に 頼ら ざる を 得 な いわ け で す . 

結局 , 理解 し 易い BASIC で シナ リオ を 書い て , これ を 
機械 語 に 変換 し よう と いう も の で す . 


2. 二 モニ ッ ク と マシ ン ・ コ ー ド 


機械 語 を 扱う 以上 , マシ ン ・ コ ー ド の 理解 が 必要 で す が , 


マシ ン ・ コ ー ド 自身 は 人 問 に は 理解 し に くい た め , 一 般 に 

ニモ ニッ ク を 使い ます . し か し , この ニモ ニッ ク も 。, 

⑱CPU, MPU で 異な る 

@ 同 じ 8 0 系 で も , 8 0 8 0 と 乙 8 0 で は , 培う 部 分 が あ 
の ぁ 

特に 8 0 80 の ニモ ニッ ク は , 理解 し に くい . 

⑳ ニ ニモ ニック は , アモ ンプ ブル 用 言語 で , アモ ンプ ブル 時 以外 
に は , 特に 必要 な v 





PND 上 GRN み NOCFNDS が NO の GTNDGPNSGKRNSSRNS の 7NOGFNOG で ZOPE で がら GO ぐ fNG ぐ NSR べ OZRKOGPRN つ 72GPNO で NSRNBGINBGPN2GZNO で NSRN2SPNSGPNSGVRB の CN 


導 胡 マス ター の 画 道 






@ 世 田 ヶ 谷 マ イコ ンク ラブ @ 
1 AU 


な ZZ80 と 808 0 共通 の 主要 
マシ ン ・ コ ー ド 表 を 作り まし た . どん な 命令 が ある か 理解 
し て くだ さい . 
記号 は 筆者 の 『 狐 断 と 偏見 』 で つけ まし た が , マシ ン 語 
を ちょ っ と か じ れ ば , 理解 し て いた だ ける も の と 思い ます . 
英語 で も その 基本 と な る の は 単語 で , MM も 命 
令 の 理解 が な いと , 無駄 な ゲ プログ ラム に な っ だ た だり, つい に 


と いう わけ で , 表 1 の よう 


は コン パイ ル 不 能 の 事態 に な り か ね ませ ん . 命 令 の 意味 を 
充分 和 ん で いた だ きた い 人 こ 


3.LET 文 


代入 文 で す 。 LET 文 を コン パイ ル す る , 考 えな けれ 
ば な ら な い 問 題 点 は , 
変数 用 メモ リ の アド レス 配分 
実数 か 変数 か . 
1 バイ ト か ,。 2 バイ ト か . 
@10 進 数 か , 16 進 数 か . 


シス テム 特に V-RAM な ど , I/O に 関係 する デー 
の 変更 

な ど が あり ます . 
BASIC で は , 変数 アド レス は DIM 廊 で 領域 さえ 確保 す 


れ ば 自動 的 に 配分 し , 出し 入れ も 自動 的 に や っ て くれ ます 
が 。 機械 語 で は すべ て 人 間 が や ら な けれ ば な り ま せん . 

まず , デー タ の 必要 バイ ト 数 に 応じ て , 表 2 の よう に 変 
数 アド レス を 配分 し ます . 

特に 。 BASIC の 他 に 機械 語 プ ログ ワム が 付い て いる 場 
合 は 。 すでに 決ま っ て いる 場合 も あり ます . H・C に 入る 
前 に は フロ ー チ ャ ー ト の 1 つも 書い て , プロ グラ ム の 内 容 
を 充分 理解 し て お く 必 要 が あり ます . 





10 LET M テ 3 
20 LET NRN= ニ P 
30 LET Xー32393 
40 LET Yー2 





10 は 1 バイ ト の 実数 , 20 は 1 バイ ト の 変数 , 30 は 2 バイ 
ト の 実数 、 40 は 2 バイ ト の 変数 の 代入 に な り ま す . 

が で り 間 の 1 レジ スタ を 
使い ます . この と き , 1 バイ ト ・ デ ー タ の 場合 は 主として 
A レ ジス タ を 。 2 バイ みた の HL な どの ペ 


9 の 7 








表 1 80 系 主要 命令 一 覧 表 


















































































































































@ は 2Z80 の み の 命令 ,。 の は コー ド の 前 に DD(X), FD(Y) を つけ て X レジ , Y レジ と し て 使用 , ^ は 相対 番地 付き 。 


ア ・ レ ジス タ を 使い ます . 

また だ , 原則 と し て 機械 語 “は 10 進 数 は 扱え な い の で 16 進 
数 に 変換 し な けれ ば な り ま せん . 40 の 3239 3 は BS の V 
-RAM の 相当 アド レス に 変換 し な けれ ば な り ま せん . 画面 
サイ ズ も BS が 32※16 に 対し , PC は , 40X25 な の で , こ 
の 点 も 考 應 する 必要 が あり ます . 

P C で は , ? 理 EX$(m) で , n に 10 進 数 を 入れ る と ダイ 
レク ト ・ モ ー ド で 16 進 数 に 変換 され ます . また , 逆 の 場合 
は ? VAL(“8Hh") で h に 16 進 数 を 入れ る と 10 進 数 に 変換 さ 
れ ま が ぶ 、 

また , PC の V-RAM ア ドレ ス と カー ソル 位置 の 変換 表 
を 表 3 に 示し ます . 

すべ て の アド レス を 示す と 英 大 な も の に な っ て し まう の 
で , 5 個 間 隔 と し て あり ます か ら 適 宜 加 減 し て くだ さい ( み 
お , PC は 40 枯 の 場合 1 桁 当り 2 バイト ずつ 加減 する 必 
要 が あり ます ). 





L10 $03 っ つ A…C080 C200 3EO033280C0 





実数 の 代入 に は , イミ ディ エイ ト ・ ア ドレ ッ シ ン グ で , 
$ は 6 8 で 使わ れ て いる 実数 記号 で す . 





L20 CO082 っ AA…C081 C205 3A82CO 3281C0 
L30 $FB3C…HL つ CO84 C20B 213CFS 2284CO 








32393 は カー ソル 9, 8 に 相当 し , これ は PC の 11 
-10 に だ いた だ たい 相当 し ます . 
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L40 $CO88 一 HLーCO86 C211 2A88CO 2286C0 








な お , LET の うち , P ニ 0 の よう な 変数 の クリ ア が あ 
り ま す 。 0 も イミ ディ エイ ト で , $00~A (3E00) で よ 
いわ け で す が , 最も 便利 な AA (EX-OR A) を 使い 
ま 89 計 まり 5 





50 LET P=O は 


AA>C082 C217 AE 3282C0 








な り に て 
2 バイト 変数 の クリ ア は 実数 と 同じ よう に , $0000 を ペ 
ア ・ レ ジス タ に ロー ド し ます 。 の 


し て 


表 2 変数 アド レス 配分 例 
卒 数 名 | バイ ト 数 | 











表 3 PC-8001 カ ー ソ ルーV-RAM ア ドレ ス 換 算 表 










































































4.POKE, PEEK 


POKE は , LET と 同じ で す . PEEIK は 使う 必要 は まず 
あり ませ ん が , 考え 方 と し て は LET と 変わ り ま せん . 


5. 四 則 演 算 


代入 が で きる よう に な っ た ら 次 は 四則 演算 で す が , 四則 
演算 の 詳細 を 書き 初め る と , 1 冊 の 本 に な っ て し まう 上 , 
類書 や NEC の プロ グラ ム ・ ラ イブ ラリ な ど に , 詳し く 述 
べら れ て いる の で , ゲー ム で 利用 する 程度 の も の に つい て 
説明 し まし ょ う . 四則 演算 も 代入 と 同じ く ,. メモ リ で 直接 
で き な い の で , 1 度 A レ ジス タ や HL レジスタ に 代入 し て 


か ら 行 な いま す . 結果 の スト ア も , 代入 文 と 変わ り ま せん . 


の 1 バイ ト の 加算 


@ 実 数 と の 加算 A 二 ュ 
@ レジ スタ と の 加算 A 十 r 
@ HL で 示さ れる 

メモ リ と の 加算 A 十 M 


を それ ぞ れ 利用 し ます . 


@ 1 バイ ト の 減算 
同じ よう に , A- ji, A-r,。 A-M を 使い ます . 


⑯ 2 バイ ト の 加算 
HL 二 DE な どの ペア ・ レ ジス タ 同 士 の 加減 を な を ど し か な 
い の で , デー タ を これ ら に 代入 し て か ら 行 な いま す . 


《⑳ 2 バイト の 減算 
Z80 に な っ て 便利 に な っ た 命令 の 1 つ に , HL-DE-C な 

















どの 16 ビ ッ ト SUB(16 ビッ ト の 減算 ) が ある の で , これ を 
利用 し ます . 

B S で は , F 7CCH の 16 ビ ッ ト SUB サ プ ブルー チン を 
利用 する か , 補 数 の 加算 を 利用 し ます . 


@⑥ 掛け 算 , 割り 算 

本 格 的 な サブ プ ブルー チ ン を 作ら な けれ ば な り ま せん が , ゲ 
ー ム 程度 の 数 学 で は , シフ ト や ロー テイ ト を 活用 し ます . 

つま り ,『 ビ ッ ト を 1 つ 左 に ずら す 』 と いう こと は , 2 倍 
する と 同じ こと な の で , 精度 が ラフ な ゲー ム で は , 10 倍 
る よう な と ころ で は , SLA(CB27) を 3 回 重ね て 8 倍 で 誤 
魔 化 し て し まう と いう よう な 芸当 で , プロ グラ ム を 簡略 し 
で し まる わ サ で すず: 

逆 に 右 に ずら す と 1/2. に な る の で ,145 の うな と こ 
ろ は SRL(CB3F) を 2 回 使っ て 簡略 化 で きま す . 


⑬ CURSOR, PRINT, CLEAR 

PRINT 文 に は メッ セー ジ と デー タ の 表示 が あり , 
CURSOR と 関連 きせ た サブ ルー チン を 準備 し て ある の で 
(後述 )、 これ を 利用 し て くだ さい . 

CLEAR は PC の 0 4 5AH に サブ ルーチン が あり ます 
が , 簡単 な 利用 法 に つい て は 後述 し ます . 


め @ GOTO, GOSUB, RETURN 
行 番号 を 飛び 先 ア ドレ ス に 換え , JMP(C 3 また は 18), 
CALL(CD), RET(C 9 ) に 置き 換 そ を る だ け で す . 


⑬ IF-THEN 
IF 文 に は 
変数 と 実数 の 比較 に よる 分 岐 (og 
@ 変 数 と 変数 の 比較 に よる 分 岐 を レレ NY3 
が あり ます . の 


一 方 , 機械 語 の 比較 命令 に は , 
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&O 


⑱A レ ジス タ と イミ ディ エイ ト ・ デ ー タ 

@A レ ジス タ と M(HL で 示さ れる メモ リ ) 

AA レジ スタ と レジ スタ 

が ある の で , 適宜 使い 分 け ま す . また , 条件 判断 に は 。 





⑳ = な ら J 用 (CA また は 28) 
@ こく > なら JNZ(C2 また は 20) 
⑯ > ニー な ら JP(F 2 ) 
の ⑳ < な ら JIM (FA) 
が あり ます 
【 例 2 】 ] 
50 IF M=5 THEN 100 


60 IF N<>P THEN 110 
70 IF X> ニ Y THEN 120 


L50 CO80 つ A:$05 C250 3A80CO FE0O5 
JZ L100  C255 CA 


L60 CO82HL C260 2182CO 
CO81 っ A: M C263 3A81CO BE 
JNZ Li10 C267 
2 
L70 CO86DE C270 ED5B86CO 


CO084 つ HL-DE C274 2AS84CO ED52 
JP L12( C279 F2 











当 


な お , > と ご = は 代入 する レジ スタ や 飛び 先 を 逆 に す 
れ ば よい わけ で す . 


⑥ FOR-NEXT - STEP 
FOR-NEXTT 文 に は , 
⑯ FOR と NEXT の 間 に 仕 事 の 入ら な い TIMER と 
か WAIT と か DELET と か 呼ば れる 時 間 待 ち だ け 
の も の で , 機械 語 で は スピ ー ド が 早 す ぎ て 困る 場合 に 
多用 する の で , サブ ルー チン に し て あり ます か ら そ ち 
ら を 見 て くだ さい . 
@ 一 般 の TOR-NEXT 文 で 、 カウ ンタ を 設け , これ を 
STEP 分 だ け 増 減 さ きせ , IF 文 で 条件 判断 し て 分 岐 すれ 





ば よい わけ で す . 
「 【 例 3】 
80 FOR 1=1 TO7 STEP 2 ぅ 2 
81 PRINT 
82 NEXT I 
LS0 $06 つ B C280 3EO6 
(PRINT) C282 CD 
B-2 C285 05 05 


DJNZ LS1 C287 10F9 





07 に な っ て いる の を 06 に し た の は , 条件 判断 は 0 で 行 な 
う の が 簡単 だ か ら で す . 





90 FOR ポニ ーー3326 TO 一 3252 STEP 10 
91 POKE R, 233 
92 NEXT R 











R は V-R AM の アド レス を 指す の で , シス テム に 応じ て 
変え ます . 
つま きまり. 





ー3326 三 CU. TOP 十 1 1 =F301 
ー3252 三 CU. END 一 1 , 1 =F34C 











100 





な の で , F301 を HL F34C を DE に 入れ , LET で ツウ マーク 
を V-RAM に 代入 し た の ち , し を 十 0A し な が ら , HL 一 
DE を 行ない , IF 文 で 条件 判断 し , HL 一 D セ ー0 に な る 
まで 繰り 返せ ば よい こと に な り ま す . 


⑩ RND, RANDOMIZE 
RND は サブ ルー チン を 見 て くだ さい . 
RANDOMIZE は スタ ー ト し て か ら 最 初 に キー イン され 
る まで ERND 変 数 を 更新 する こと に よっ て 行なっ て いま す 


⑩ GET 

PC の キー コー ド は , 表 4 の よう に , 1I/O No. と コー ド 
で 決ま り ま す . た と えば , テン キー の 隊 と 圏 で パドル を 左 
右 に 動か す よ うな と き は , 

















IN.0 つ A :① DB00 FEFD 
JNZ Li 2002 
(LEFT) 2B 

Li A:③ LO1 FEF7 
JNZ L2 2002 
(RIGHT) 23 

L2 IE02Ey= ま ーー 











ASCTIT キ ー を ,。 ゲー ム で た た か れ て は た まり ませ ん 
の で , 写真 の よう に , シー メン ス ・ ス イッ チ や マイ クロ ス 
イッ チ を , テン キー と パラ レル に 配線 し た パドル を 自作 し 
て あり ます . 


っ 9 
さぶ + で 
































らら @ ココ の の の ょ oo 一 の 
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ジェ クト を 利用 する こと に よっ て , キー イン が 省け て 
便利 で す . 


め INIT と SBR 

以上 で , 一 般 の ゲー ム 位 で し た ら , 簡単 に 機械 語 に コン 
パイ ル で きる こと が わか っ た と 思い ます . 最後 に , 機械 語 
プロ グラ ム を 作る 上 で の 2 一 3 の 注意 と 汎用 サブ ルー チン 
に つい て 説明 し ます . 


1) ORG: ス ター ト ・ ア ドレ ス で す .。 特に どこ で な けれ 
ば な ら な いと いう ルー ル は あり ませ ん が , PC で は , 
C100 や D000 に すれ ば 良い で し ょ う . 

2) SP の 決定 : オ ブ ジ ェクト に は , スタ ッ ク ・ ポ イン タ 
を 初め に 決め な けれ ば な り ま せん . PC が 十 1 さ れる 
の に 対し , SP は 一 1 され る の で , メモ リ ・ エ ンド 十 
1 に する か , ORG の 前 に . メモ リ の 余裕 が ある と き は 
ORG を 指定 すれ ば 良い で し ょ う . 

3) 汎用 SBR : 先 に 説明 し た よう な サブ ルー チン を ORG 
付近 に 置け ば , 次 回 プロ グラ ム を 作る と き , 前 の オブ 


eew ProedlmmectS 


. メ ー ス の - 
ヵ タ ッ ピ バー 提 AI ご コン 


あと が ぎ 


いか が だ っ た で し ょ う . は じ め て 機械 語 に 接し た 方 に は 
も ち 論 , チン プン カン プン だ っ た で し ょ う が , 多少 機械 語 
を か じ っ た こと の ある 方 で し た ら , 『 ナ ー ン ダ 』 と 思わ れ た だ た 
方 も 多かっ た の で は な いで し ょ うか / 

そう な ん で す , BASIC も 機械 語 も や っ て いる こと は 
同じ で すか ら , 簡単 に 翻訳 で きる わけ で す . 

決 回 に は , 1I/O 誌 に 掲載 され た プロ グラ ム の 内 , 評判 の 
高かっ た も の を お 手 本 と し て ご 紹介 する 了 予定 で す が , 秋 
ん も 一 つ 挑 戦 し て みて くだ さい . 








の NGI ド ツン シン / 省 ド 


パイ ラ 中 本 伸一 





ハドソン ソフ ト で は 現在 BASIC コン パイ ラ を 計画 中 で す . 私 た ち 
が 最近 発表 し た FORM は , 整数 型 言語 の コン パイ ラ で その 構造 も 小 規模 
に まとまっ て いま す が 、 完 全 自 立 型 の オブ ジェ クト を 生成 する た め に 
多く の 方 々 か ら 反 響 が あり まし た . 

今回 計画 中 の BASIC コ ン パ イラ は 基本 的 に 外部 ファ イル を カセ ッ ト と 
し , 整数 型 か ら さ ら に 一 歩 和 進め 、 ディ スク ・ ベ ー ス の 実数 型 コ ン バ パイ 
ラ と の 中 間 に 位 置 す る コン パイ ラ で , 完全 自立 型 の オプ ジェ クト を 生 
成 し ま す . 

外部 ファ イル は カセ ッ ト ・ レ コー ダ を 使用 する と いう 条件 を 付け た 
の で , フロ ッ ピ ー な どの 周辺 機器 を 一 切 使 用 し な いた め カ セッ ト の か 
け 換 え が 多 く な る の は 人 避け られ ませ ん . 

と も あれ , 48K バ イト の RAM を 持つ MZ-80K/C だ け あ れ ぱ ば , BASIC テ 
キス ト を コン パイ ル で きる コン パイ ラ で すか ら , MZ ユ ー ザ ー は ほとん 
ど この BASIC コン パイ ラ を 走ら せる こと が で きる こと と 思い ます . 
圏 BASIC コ ン パ イラ の 仕様 

この BASIC コ ン パ イラ の 仕様 が 決ま り ま し た の で , 紹介 か た が た どう 
いう 構成 に な っ て いる か を 説明 し ます . 

BASIC コ ン パ イラ で コン バ パイル する テキ スト は , シャ ー プ の BASIC 
SP-5020 で 作っ た も の で , この 中 間 コ ー ド を コン パイル し , Z80 の マシ 
ン ・ コ ー ド に 展開 し ます . 

イン ター プリ タ で テキ スト を 作る こと に し た の で , この 時 点 で 実行 
テス ト や シン タッ クス ・ チ ェ ッ ク を 行ない , 完全 に 動作 する ブロ グラ 
ム を 作る こと 必要 条件 と な り ま す . 

し た が っ て , SP-5020 で 動か な い プ ログ ラム は コン バイ ル で きま せ 





図 1 BASIC の テキ スト か ら , 実行 イメ ー ジ の バイ ナリ ・ フ ァイル が で きる まで 





ん が , 逆 に , 今 まで 作っ た プロ グラ ム は すべ て コン パイ ル す る こと が で きま す . 


この テキ スト を コン パイル する た め に は , それ を , カセ ッ ト に 落し 
た 形 で 用 意 し ます . 

BASIC コ ン パ イラ は カセ ッ ト 4 本 の セッ ト で 発表 の 予定 で す . 
本 は , 


・ テ キス ト ・ フ ォ ー マ ッ タ 
・ コ ン バ イ ラ (COMPILER) 

リル ラン ンタ し) こと 4 (LINK-LOADER) 

・ フ ロー ティ ング ・ バ ッ ケ ー ジ (FLOWTING PACKAGE) 


で あり , この 他 に 必要 な も の は , SP-5020 BASIC と ブラ ンク ・ カ セッ ト 
教本 で す . 

これ ら の ソフ ト を 使用 し て コン パイ ル す る 訳 で す が , その 手順 を 以 
下 簡単 に 述べ ます . 
圏 コ ン バ イ ル の 手順 

テキ スト ・ フ ォ ー マ ッ タ を ロー ド し , SP-5020 で 作っ た BASIC テ キス 
ト を 読み 込ま せま す . この フォ ー マ ッ タ は , BASIC テ キス ト を コン バ パ 
イラ が 読め る よう な ファ イル に , 変更 する た め の も の で , これ に よっ 
て 出力 され た ファ イル は コン パイ ラ の ソー ス ・ フ ァイル と な り ま す . 

これ の 働き は 連続 し て 記録 され て いる テキ スト を 256 バイ ト ず つの 
プロ ッ ク に わけ る こと に より , テキ スト 全部 を メモ リ に 入れ な く て も 
コン パイ ル で きる よう に する た めで す . 

し た が っ て , この フォ ー マ ッ タ は 単に カセ ッ ト の フォ ー マ ッ ト を 変 
換 す る だ け の 機能 し か 持ち ませ ん . 

コン パイ ラ は , テキ スト ・ フ ォ ー マ ッ タ で 作っ た ソー ス ・ フ ァイル 
を 読み 込み これ を マシ ン ・ コ ー ド に 変換 し ます . 

この コン パイ ラ は 2 パス 型式 で ,。 ソー ス ・ フ ァイル を 2 回 読み 込ま 
せま す . パス | で マシ ン ・ コ ー ド に 落と す の と 同時 に , サブ ルー チン 
や 変数 の テー ブル を 作り , パス 2 で アド レス を 生成 し ます . 

メモ リ に あま り 人 負担 の か け な い 小さ な プ ブログ ラム で あれ ば , 一 度 に 
すべ て ソー ス ・ フ ァイル を メモ リ 中 に 読み 込み ,. その 中 で パス | 一 2 
を 行なう こと が で きる の で , パス 2 に お ける 読み 込み 時 間 は 短縮 で き 
ます 。 

こう し て メモ リ 中 に , リロ ケー タブ ル な オプ ジェ クト 
作ら れる の で , これ を いっ た ん カセ ッ ト に 沙 と し ます . 

コン パイ ラ に よっ て 出力 され た リロ ケー タブ ル ・ バ イナ リ (RB) を 
リン ク ・ ロ ー ダ に よっ て 任意 の アド レス に リン ク し ます . 

コン パイ ラ か ら 出 力 さ れ た RB は , サブ ルー チン ・ パ ッ ケ ー ジ を 持っ 
て な い の で , RB を リン ク 後 , パッ ケー ジ の 入っ て いる カセ ッ ト を 読み 
込ま せ :、 いっ つも. ょ よ : に リン し ます 。、 こ うじ で 実生 1 モジ の パイ 5 た り 
・ フ ァイル (EB) を 作り , これ を カセ ッ ト へ 出力 し ます . 

こう し て 作っ た テー プ ブ は , BASIC テ キス ト を 完全 に マシ ン 語 へ 展開 
し た プロ グラ ム が 記録 され て いる の で , MZ モ ニタ か ら ロ ー ド すれ ぱ , 
すぐ に 実行 で きま す . 

文章 で 書く と 少し 複雑 に 聞こ える か も し れ ま せん が , 図式 化す る と 
一 目 で 流れ が わか る と 思い ます ( 図 1). 
較 使 用 感 。 etc. 

結局 . この コン パイ ラ は フロ ッ ピ ー デ ィ ス ク を 使用 し な いた め に 。, 
時 間 の ほとん ど が テー プ の 読み 込み に 消費 され て し まい ます . まる で 
シャ ー プ の アセ ンプ ブラ と 同じ よう な 使用 感 で ある と 思わ れ ま す . 

と も あれ , カセ ッ ト を 駆使 し た コン バイ ラ は 実験 的 に 成功 し て いる 
の で , この BASIC コ ン パ イラ は 近い うち に 発表 で きる こと と 思い ます . 

価格 な ど は まだ 決ま っ て いま せん が , 一 応 8 月 に 発表 する 了 予定 で す . 
ご 期待 くだ さい . 


この 4 





(TEXT FORMATTER) 





・ フ ァイル が 
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BASIC と マシ ン 語 が 一 度 に ロー ド で きる / 


ん 半 


ア C-@ の 007 計 オ ナー 人 ・ ロ ー ダ 














大 宮 万 少 





イン ベー ダー や ヘッ ド ・ オ ン な ど , BASIC と マシ ン 語 の 
両方 を 使う 場合 , キー イン 操作 が 面倒 で す . これ を 1 回 の 
キー イン で ロー ド し , さら に 自動 的 に RUN で きた の で お 
知ら せ し ま す . 


オー ト ・ ロ ー ダ に つい て 


普通 clogd"ーー" で も [EL] で も ロー ド 終 了 と と も に 必 
ず モ ニタ に 戻り キー 入力 待ち に な り , 人 間 が 何 か 次 の 命令 
を キー イン し な く て は な り ま せん . と ころ が , PC-8001 で 
は この キー イン 待ち に な る 前 に ファ ンク ショ ン ・ キ ー フ ラグ 
が 立っ て いる と , キー ポイ ンタ の 指す 番地 か ら の 文字 列 を 
“00" が ある まで PC-8001 自 身 が . キー イン し て くれ ます 
(1/O "80 年 2 月 号 p.103 の 村田 様 感謝 ). 

オー ト ・ ロ ー ダ ・ テ ー プ は ファ ンク ショ ン ・ キ ー ポ イン タ 
の 指す 番地 に 命令 の 交 字 列 を 入れ ん 、 ファン クシ ョ ン ・ キ ー フ 
ラグ を 立て れ ば いい の で す . 幸い な こと に ファ ンク ショ ン ・ 
・ キ ー ポ インタ (EDC0, EDC1) は リセ ッ ト で , EAC0 に セ 
ッ ト さ れ , ファ ンク ショ ン ・ キ ー セ モッ ト 命 令 が 使え ます . 











そ 
テーZ や 短く な り ま す , 


4 ル ェ レレ アバ. 


100 行 一 130 行 で 次 の よう に EACO か ら み の 命令 を 書き 込み 











ます . 最初 の EABC か ら の run [CR| と 最後 の 方 の (EAE0O) 





ーー0 は [f 引 キー を run [CR| に 再生 させ る た めで す . 

140 行 一 150 行 は その 都度 キー イン し な く て も いい よう に 
IE・8| キー に 入れ まし た . 実は [中 8] キー を 押し て その 内 容 
の 打ち 出し が 終わ っ て いな い 場 合 ,、 ファン クシ ョ ン ・ キ ー 
フラ グ が 立っ た まま な の で す . 


リス ト 1 の プロ グラ ム を キー イン し , RUN し て くだ さき 
い . プロ グラ ム 名 を キー イン する と , モニ タ に 戻り ます . 
ここ で , 普通 や る よう に , 目的 の BASIC と マシ ン 語 を P 
C-8001 に 入れ ます . この と き , [f-5' キ ー で 試験 的 に RUN 
させ た りす る と せっ か く 入 れ た BASIC プロ グラ ム が 消え 
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し て , ファ ンク ショ ン ・ キ ー フ ラグ (EA86) の 近く な の で 


る の で 注意 し て 


く 
レ 2 
KGZS さ UVS IL 三 N に 


写真 1 オー ト ・ ロ ー ダ プロ グラ ム を 実行 させ た と ころ 


Program name 2? エイ リア ン 
Reoorder OK ? 
Push 了 イ .B keu 〈 unite auto 1oadler ) 
OS ちり BRS1IC program 
urite Maohine 1anguage program 


Ok 
On 
ーー ら 骨 コ | コ : 


し に ) ゴ < 
2 82-99 63- 


ok 
〇 あり @" エイリアン" 
1 


写真 2 BASIC の ロー ド が 終了 する と , 
自動 的 に マシ ン 語 の ロー ド に 入る . 


NEC PC-89g1 BRSIC Ver 1.9 素 
CoPpgr ight 414979 〈C) bu Miorosof も 





cl1oad" inuadr 
Fi あい (・「 


On 
章 し 





1 100 行 一 130 行 の 利用 


EABC EACO に た ゃ ご ]【@: 3 ド 
RE 
ill CR | BC cload*ーーーー…* 


(EACO)=O 


lcR 還 還 Ro】 cR KOo】 CR 








fl キー を 押 


次 に テー ジ プ !・ 状 問 に し, 
ー ダ が 書き 込ま れ ま す 。 後 は 普 


図 2 
1EAEC| 


houlCR 語 記 EEIo に 6 


140 行 一 150 行 の 作用 
オー ト ・ ロ ー ダ の ヘッ タダ を ライ ト 


EEtio】 CR 開 識 
FE キー 再生 


REta9】 CR WeIe】 CR 較 : 
i 用 10 財 B7ANS](⑤②22 人 EZ22t デ バー コジ 
き 込 み ま す . 
た も の と 同じ に し 
き あ が り ま し な だ た 。 
て みく だ さい . 





次 に 。 マ シン 語 を 書 
BASIC の プロ グラ ム 名 は 先 に キー イン し 
な けれ ば ぎ い け ませ ん. これ で テー プ が で 
浴 き 戻し て , [Reset| mon |CR| IICRI 








リス ト 1 
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IE.@| キーー IE-Z| キー まで 破壊 きれ て し まい ます . も し , 
これ ら の キー を 使う 場合 は BASIC プロ グラ ム の 最初 に 適 
当 に 付け 加え で くだ さい 。 また , ファ ンク ショ ン ・ キ ー ラ フラ 
グ と ポイ ンタ を 使う と 1/O 80 年 7 月 号 の アセ モン ブラ の 最 
後 か ら , BASIC プ ログ ラム の REM 文 (” 文 ) で ソー ス ・ 
リス ト を 付け 加え る こと が で きま す (リス ト 2). 訂正 の 
訂 、 全 部 キー イン する 必要 が な く な り , 便利 で す . さら 
BASIC プロ グラ ム の 書き 換え も 人 間 が CR する の で 
PC-8001 に 自動 的 に きせ て , RUN さき せる こと もち 








ぉ な く 。 
『 き ます . 


73094 71 


オー ト ・ ロ ー ダ プロ グラ ム ・ リ スト 








ーp 


日 ロ ロ 
8 CH 135 
THFLTTFF ロ ヨ ト 
NH ま =N ま す " M 
IE まま 上 1 ) ニ ヒキ 



























まま 
千 HEREE: IE まま 138 


E。 IE ま 還 ま ょ 所 13 オ に 








『 


0 デュ に ます ます リト ロロ リキ に ま 
14 FE B』 リ mia リキ に ます "ja: 
15RI FET "macBP+L ます "EE +C ま Ds 






FETHT "EEcaFdEF UE 

FEIHT" Fugh T. に iMF1 キ Hut ロ 

FRETRNT" と ミュ ロビ ピピ に F ド ロ ヨ ド ヨ 思 「 

FERTHT" iiF1t キ 円 に hiri ら 上 1 ュ ロ ヨロ ュ ヨ ほ ビ ド ロ ヨ ド ョ 思 
EE 5 "Fn" に す リ に 1 ロ ョ ロリ +E キ + 放 


"mg リキ ビ ま キリ 1 リキ ます "= に 暫 リ 


EN ま 3 ヒデ LE 日 ま 3+1 


1uadsF 』" 


+ に ます リ EUEFHEE 計 HEREE ュ 邊 8 


= ュ ら hb" リオ に まま FHEE 呈 HE ロ FE さだ 











レー 
11 CLEHKR 店 。 ま HEFFF DEFINT ロ -NiDEFSTR UM 









ンス リス ト 付 き PC-ASM の 追加 訂正 部 分 








= ロ 





33g UE=" 5 46 7 dD 36 57 5E 6 と F 

191 ロ FEIHTIPRINT "RERDY =-ENd 1-LBL ュー-HSS dー : =IHPUT ま て 1):TF ="e"TH 
EN ERND め 

1g3 ロ H IHSETRC "1ad=": USUE さす 回 。 は EEH。1B。 は 四 EE ロ ーー (の 

335 LFRINT FHPKHE 江 まく り "saTTITHEK1 は iTHITHE 2553 THB )# Ti TE ュー⑨ 





dd は 加 LFRIHT "LRBEL=" ミ Li 叶 あ 
TiEETURN “ー る ⑤ ンー@ 
4139 証 。 に 加 THEH FURKE RY ー1 1 










q』 ELSE 39AD コ ーー 





ロ F_ 1d hl1:dat ュ 

ca11 FrFirt 

1d ョ :(COUunt 

7 dcC ュ は 

1d count うぅ ュ ⑲⑬ 

7 JF > 1 ロロ OF 
15| JF_ PCB ロロ 1 

299g の ClG 還 間 








Fc-BB ロ 1 由 ミ = ほ mb1leF" 
91 ロ 9 "dL 32) 3 っ 昌 
911 "caournt db 1 昌 
931 回 " grd 
①, ②④ BASIC エリ ア 拡 張 の 9120 の end の 後に "00" を 再現 
③, ④ ソー スズ 用 ⑧$ f-・ キ ー フ ラグ O 
⑤, ⑥ プリ ンタ ⑨ ソー ス な ら ソ ー ス アセ ンプ ラ へ 
⑬ 最後 に ソー ス ・ リ スト (ここ で は 9000 一 9120) を 付け て お き , 
《 注 意 > 
ERROR や STOP て 途中 止ま っ た 場合 . 右 の よう に な り ま す . これ を 救 
うに は , 壊れ た 行 と 次 の 行 を CRT 上 に 出し 、W 印 ゝ ヽ カー ソル を セッ ト し , 








CTRL | [| で 元 に 戻し ます . 


1 度 次 の 行 を 入れ て くだ さい . 


これ だ け で は 次 の 行 が 消え て し まう の で . も う 


TL 一 1:LFRINT TLKI5i 


5FHRE HEHEG> II ロ =" 
0 ER= 1 THEH 「FRINT"UNDF 中 則 。HE 央 吾 


の 


KT)5 リ H"。 ENERTILFRTN 





"3HES 









RETUEH ELSE 上 TLK さ 1-LL う 5 計 遼 し いさ 
BHT 和 41 








⑩ 
a*HFIFUEE AT 
⑪ り 


5 


1⑩ 終わ り 
3 シン ウッ ンー 
⑫ ソー ス ・ リ スト の 先頭 番地 探し . 


ス ・ リ スト に 設定 . 


1010 行 で [|S| を キー イン する と 連続 し て アセ ンプ ル さ れる , end で 戻る . 





時 
"ud ヨリ Edd1 す h1 す は は さぶ 提 5 FTF ヨコ U 18h 
7FF = コロ Ed 生 18h 


An 





Fm 
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⑤ 変 数 。GOTO. GOSUB 文 の 整理 用 に 





仙台 万 逐 











PC-8001 パウ フル ーッ スト 





し CTaE1U【- 半 目 上 ュ 








ye eo eo ee ee oe eo eo ee ee eo eo ee ee ee ee eo eo ee ee 


BAS1C で プロ グラ ム を 作る と き , どの 変数 を 使っ た 
か , 使っ て な い 変 数 は どれ か な ど と , よく 迷う も の で す . 
一 応 動 作 す る と , も う 変 数 一 覧 表 を 改め て 書き 出す の も 面 
倒 で , その まま 忘却 の 彼方 , ある 日 , バグ や 改良 希望 が 出 
て き て 大 あわ て , 思い 出す の に ひと 苦労 と いう こと が よく 
ある も の で す . また 1I/O 誌 な ど に 発表 され た プロ グラ ム を 
し て も 走ら な い , 改造 し た いな ど 変数 一 覧 表 が あれ ば 頭 
脳 明 断 ,。 RUN 一 発 O K で す . 


eee ee ee eeeeeeeeeeeeeoeeeeeeeoeeeeeoeoe 


久 80 桁 、40 桁 指定 

@USR, FN, COLOR も OK 

@ び GOTO, GOSUB の 飛び 先 き に よる 一 覧 表 付 き 
念 同一 行 で の 使用 回 数 仕 き 


CLEAR300,&HE400 


を まず 入力 し ます . あと は , |[@| E500 |cR| で す ( 実 行 例 1 ). 





width 80 ? 
O 
と 聞か れ た だ たら , 80 桁 に し た いと きだ け 「y|, 


は [y | 以外 の キー を 押し て くだ さい . 


「 


40 桁 の と き に 














Printer ? 


も 同様 で す . 


トド フ ページ ク c ャ シン ・ 





ゲー ム の よう な 長い プロ グラ ム の とき は 。 
10 秒 くら いか か り ま す が , 普通 の プロ グラ ム で は すぐ に 打 
ち 出 し て きま す . 

途中 で 止め た いと き に は lgsc| キー, 再 スタ ー ト も lgsc 
キー で す . 

モニ タ に 帰る と き は |STOP| キ ー で す . た 7 し アリ シダ 
出力 時 に |Esc| キ ー は 効き ませ ん . 


支 COLOR 廊 
カラ ー モ ニタ を 買え な い 人 の た め に 付け まし た . カラ ー 
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実行 例 1 使用 方 法 CRT コ ピー 











事 
ロ ド 
MaFiahla Li=t 


ヒ 1 = ュ ド 3 四 回 。 証 中 回 回 
ロ ド 

項 口 自 

キ し 

主 
ロ ド 

1 ロ qad BHSTE F。 呈 mmn RET ロ ESE EET 


に 1 ロロ" 





拓 ロ 帳 

ロ 回 

Mariahl= L ュ =t foF FEEBH1 
M1dth 8 Cga 

ES ビー STIF- nnitnr 


ヒュ F ビ 


中 


FFinteF Kg3 『 
玉 ロ 1 ヨロ 








使用 の プロ グラ ム を モノ クロ 用 に 改造 する と き , 便利 で す . 

また , BEEP 音 が ウサ ギ 小 屋 の 騒音 限度 を 越え る と き 
に は , O0E554H, 0E736H, 0E79FH の 0B5H を 0 
B 2H に , 0E970H か ら の 43H, 4FH, 4 CH, 4F 
H、52H (COLOR) を , 42 昌 , 45H, 45H, 50 昌 , 20 
H (BEEPLU」) に し ます . マイ コン は 皆 の も の で す . 金 
の な い 人 々 は 助け 合い まし ょ う . 


廊 実 行 例 
実行 例 1 に 示し た と お り で す . これ は , 


の と き に , |STOP| キー を 押し , 画面 コピ ー|@| 124 A |CR 
を し た も の で す . 実行 例 2 は プロ グラ ム の 実行 結果 で す . 


支 そ の 他 


この プロ グラ ム に よる 変数 リス ト は , BASTIC プ ログ 
ラム の フリ ー エ リア に 置か れ ま す . BA S IC の ワー ク ・ 
エリ ア を 破壊 し な い の で , 安心 し て 使え ます . 

これ を 作り な が ら 気 付い た の で す が , 16 進 4 桁 を OF0 
A8H と 0FO0OA9H に 入れ , 5 桁 の 10 進 ASCI1I に 変 
換 し て , (HL) 一 (HL 十 5) に 入れ る サブ ルー チン を 使用 



































メモ リ ・ マ ッ プ 









































0 BWAS 汗 中 G 細 24 ロ グン パパ 
02082000 BIA S | C ワー クエ リア 
バリ アブ ル ・ リ スト 
BAS1IC ス タッ ク 
0 Ni り 22 の EKsl ア ロン ョ ラド 
凡人 ヾ リア ブル ・ リ スト ・ 定 数 
4 7 ラル 0)29 ワー クエ リア 
悦 史 居 1 
する と き に は , B レ ジス タ の 値 に 注意 し て くだ さい . 不 必 
要 な コン マ が 打 た れる こと が , あり ます . 
この プロ グラ ム の 構造 は あま り キ レイ で は な い の で , リ 
ロケ ー ト の た だ ため に 定数 エリ ア を 記し ます . 要 は 変数 一 覧 表 
が 和 欲しい の で すか ら 
3 参考 文献 
1 ) 欄 田 鷹 男 :^Token List",I/O, *80 年 2 月 号 





1 の 





























実行 例 2 ギャ ラク シア ン (|/O 80 年 10 月 号 ) 
日 昌 1E Sg 15 15| 
Sg 
1 に 5| 回 
さき SE さ ヨ ロロ 周回 
引 四 せら 回 だ 5 
US 35gb 
USR1 さき EE 
ご 1 1Egb 
5R さ g5ih 
LSE4 SE ロト 
LSE =BEb 
USRG 3b OiEO 
BQTG BsUE 2 
3E 本 53g 
318 (人 
55 。 45g る を 
に iss 中 呈 加 
6 。 319 ひつ 
コ さ 回 3 回 
注 ) プリ ンタ 出力 時 に [Esc| キー は 効き ませ ん . 


Variable List プ ログ ラム 














Rdd 

ES 
ES1g 
ES2g 

ESSg 
ES4g 
ESSg 
ES6g 
ES 
ESSE 
ESSE 
ESRB 
ESBg 
ESCB 
ESD@ 
ESEg 
ES5Fg 


己 
ミ 





Rdd 

Egg 
EE1g ロ 
E6E 昌 

E6 さ ロ 
EE4 3 
E65 昌 
EE6B 
EGr 回 
E68g 
E693 
E6RB 
E6B 
E6CBg 
EeDg 
E6Eg 
EEFg 


Rdd 

EMH 
Er1 
E ァ S ロ 
ESg 





ri CT On tn-lrnmrnwpOnCon iri On 





1 


CT 








E ァ 4 


ErSg 
Er6g 
Er7g 
Er8g 
E79g 
ER 
EBg 


E ァ 7 じ g 


EDg 
E7E9 
E ァ Fg 


Rdd 

ESgg 
E819 
E82g 





CD 
28 
SB5 


+F 
ィ 2 :5F3 
ィ 4 : さ 95 
5 さ 
2D 4B4 
7 536 
Bi2E2 
2 ロ 356 
1 :3g 
5 5 4 コ 3E9 





105 








し 

ま 
1 
| 
1 
| 


の 2 


| 6 YS て 
ほ プ 月 月 月 明日 HIHHIHIIIIIIL UMUUWUUWWWWNWNWWW 
レ 


ーー… だ AM 


ド を OFF でき ます . 
風 を 入力 する と BGIN, END アド レス を 聞い て くる の 
で , 16 進 で アデ ド レス を 入力 し ます . 

































































プロ グラ ム を RUN さ せる と , 実行 例 1 を 表示 する の で , 次 に , プリ ンタ に 出力 する 場合 は 剛 を 入力 し ます . こ の 
サー チ , ダン プ の と き は 剛 を , タ ー ミ ナル ・ キ ー ON の と ピロ グラ ジ で は 。 yeSs or no の と き 隙 』 だ け で , 判別 し て 
き は | を 入力 し ます . キー ON の と き は , コン トロ ー ル ・ いる の で , 較 半 以外 は すべ て no と 見 な され ます . 
コー ド の 表示 や 画面 を プリ ント する こと が で きま す . 続い て サー チ か ダン プ か 開い て きま す . ダ ンプ な ら 圏 以 

客 @] で コン トロ ー ル ・ コ ー ド 表示 の ON-OFF を 繰り 返 外 の キー を 押し ます . これ で ダン プ さ れ ま す ( 実 行 例 2 ). 
し , 上 幅 度 | で 画面 プリ ント , 因 一 で ター ミナ ル ・ キ ー モ ー サー チ の 場合 園 を 入力 し ます (実行 例 3 ). 

テ 以下 , サー チ の 場合 の み を 説明 し ます . 
実行 例 1 サー チ の と き , 現在 サー チ し て いる アド レス を , 表示 す 
に る か どう か 聞い て きま す . 表示 する 場合 は , 還 を 入力 し 
ます (実行 例 4 ). 表示 し た 場合 , 表示 し な い 場 合 と 比べ , サ 

ご デー ミオ 上 上 EET 日 7F 互 上 イィ Bx ー チ 時 間 が 約 2 倍 に な り ま す . 


次 に サー チ デ ー タ ・ バ イト , 1 か 2 か を 開い て きま す . 


実行 例 2 
ロー 日 デビ ENRD= ERBBR BUPNF ド 





ーー に ET EE 上 REY ! 





ドレ X 0 で 1 すら 2 ユネ リュ オイ 5 すす 6 + ア 


ERZC ED EF EE BE BB gg ga 
中 本 サー チ て オ HER ご ロリ イト) OR デコ プア  *FE ER BS BB BB Ba ロ g BB 


Fi 日 日 日 
ロビ 2 デオ 上 F = 日 B 5 
RR4 思想 明 明 量 盟 8 
ERRC EC 5 = rd 2 BBBgg 
日 日 オ BB BG BB BH BB BB BB 


失 

BB 2 2 
F SB BB GR 78 だ 9 88 GS 
還 屋 は 

ち ァ 





























2 タバ イト サー チ な ら 還 を 入力 し ます . 次 に キャ ラク タ ・ コ 
ー ド 入力 か 聞い て きま す . キャ ラク タ な ら 還 を 入力 し ま 


す . キャ ラク タス 入力 の 場合 ,1 廊 字 入 力 な の で 注意 し て くだ 
さい / 


キャ ラク タ ・ コ ー ド 以外 の 場合 ., サー チ デ ー タ を 16 進 
で 入力 し ます (実行 例 5). サー チ は , これ て 入力 終わ り で 
す . あと 終わ る まで 待ち ます . 


プロ グラ ム は リス ト 1 に 示し ます . 
以下 、。 プ ログ ラム の 説明 を 行 番号 ご と に 説明 し ます . 





最初 の POKE 文 は , キー 表示 の リバ ー ス を な 
くす も の で す . 次 の 画面 の クリ ア 時 に 反 リ バー 
ス に な り ま す . 

も う 1 つ POKE は ,. ヌル ・ キ ャ ラク タ を 20H に 
する だ ため の も の で す . これ は 画面 プリ ント の 際 
に , 00 是 (通常 ) に な っ て いる と 文字 の 間 が 詰 
づつ NG5。 つま く ア パリ ント され な VSE が お あと うだ 7 ら 
2 も まじ (だ ミ 


1 





AーN を 整数 変数 に , ポー ク を 文字 変数 に し ます . 





KEY2 の , ?HEX$(C) 十 CHR$S(13) は , 画面 に 
現在 サー チ し て いる アド レス を 表示 し て いな い 
場合 に 使用 する も の で す . キー で 中 断 
EIC の を) 例 用 22EGRNGz0O に た 2 
いる アド レス を 表示 し ます . 続行 の 場合 は , 
[CTRE] [RETURN| で す . 








PC-8001 の ター ミナ ル ・ モ ー ド の [ 硬 @| [大 ] 
了 mmO] を OK に する も の で す . 
6 コン トロ ー ル ・ コ ー ド 表示 
困 蟹 画面 の ペー ジ ・ プ リン ト 
陳 sWO|] ライ ン ・ プ リン タ の 改行 

















WS8| で , この モー ド OFF 





BGIN,。 END ア ドレ ス を 入力 し ます . 





プリ ンタ を 使用 する か どう か 2? 使用 する な 
ら 愉 1 と し て , プリ ンタ を 40 桁 に し ます . 





サー チ か ダン プ に する か チェ ッ ク .C を BGIN 
アド レス に し ます . 





ダン プ な ら ば (GOSUB670)BGIN, END 表 示 . 
サー チ な ら 310 行 へ 





ダン プ を 横 8 バイ ト ず つ 表 示 . 現在 の アド レ 
ス 二 8 を 繰り 返し ます . 





0 な 7 30 
ツル グ 3 表示 する 場合 品 ) 





サー チ デ ー タ ・ > 
1 バイ ト な ら エ ニュ 





サー チ の 終わ りか どう か 調べ ます . 終わ りな 
ら 950 行 へ 





サー チ デ ー タ が 2 バイト の と き の チ ェ ッ ク . 
あれ ば 430 行 へ 





サー チ デ ー タ が 1 バイ ト の と き の チ ェ ッ ク . 
あれ ば 430 行 へ 





2 だ シン ルク 4 が 75 けれ は た)O の に WSRSS80 和 : 
2 





サー チ の と き の 8 バイ ト の 表示 へ . 終わ っ た 
ら 380 行 へ 





サー アー タバ 明 用 サシ ッ レ ー チ ルン 





サー チ 中 の アド レス を 画面 の 右上 に 表示 する 
だ た め の サ プ ブルー チ ン 





2 2 
ス 表 示 . ま た サー チ な ら , サー チ デ ー タ の 表示 
を し ます . 





ダン プ の 場合 アド レス 表示 . 8 バイト ずつ の 
HEX お よび キャ ラク タ 表 示 , END の 判断 を 
じ ま ず まぁ 。 サー の 揚 合 , 
イト か ら 十 4 バイト まで の HEX お よび キャ ラ 
クタ の 表示 を し ます . 


人) ンジ ンー 





108 





END 表 示 , プリ ンタ を 80 桁 に し ます . 





リス ト 1 サー チ ・ ダ ンプ プロ グラ ム ・ リ スト 


ご ょ ・ ビ 日 NHLE 呈 , ご コ . す , 召 
40 日 に ビビ さ 昌 日 月 全日 呈 
5-PEPFTNT HI PEFeTR eS 
講和 MPTFHR: st ん Te 
記 人 を (まさ 

PETHT 日 時 国 革 記 T 所 
NM = ニル 日 斉 て 
F 玉 ER 
PEINT " C 1 ロ Rz ED 
に ーー に E〒 ま -F ピー"" HER:BBH EE PRINT 
に is 三 " ま " EE 和紀 EN 3 昌 量 EL 向 所 
時 F 尽 ニ " す で 生日 E も 
呈 さき HE BN FETNT 
に GS に だ EN に だ EEIHDHBE 肝 ICE 
さら 選対 呈 地 斑 王 主 ま 証 二 主計 二 計 主 寺 示 玉 字 十 水 ま 未定 玉 宇 地震 補 宇 

玉 宇 定 、 | hh 

Ed 5EEFH HER ELUFHF rrF 

王寺 ま RS HHSHTI | 玉 主 

宇 寺 主 0 抽 yGn 寺 寺 主 
EER 社 宇 主 天 計 宇 
王 計 CHER2RCKhK2k 玉 HOK Il 
BPRTNT PHR ま 12)-FHHEDLE 3 
民有 す 『 玉 キ サー チミ すす RON お 尺 9 
半 定 まり に F 選 上 詩 
NFPUEF BT アト "し エー "PH ローWBL CHUTWS 
記す 6 旧 N 
TFPHT 「EHD 了 ト "ヒレ ュー "ヒー"RLC "KRH"+T う 
FE 計 
ご は ま F ヒー ミロ HEN ご 日 は ELSE PRERET" コリ ンタ ー 
EN 
人 コーINKEY ま : TF = コー"" THEN ご 4 ELSE FETHT 
25 よ F コー" 上 HEHM に ー3 -LPETNT EHE ネ くう は 
ご は PT 財 す -F 選 TT 『 っ ERCH NN 8 2 
ビニ 下 II 
ど で 時 FTFNKET ま 上 イニ"" HEN っ ra EL=E PRINT 
T 
で ロ 名 す F K ニ キオ HEHM LLPEHNT"5EEEH EE DLP B『 


kk 
衣 


に 】 
中 
了 


0 


Wid 7 抽 
0 5 上 


! 
D 


/ 


yP9 FR FR EK KK は に は 
Mi 本 Mi 2 結 ) 1 
DP 


TF TSO"G' THEN GOSUB ErB ELSE ミ 19 
5 9 ROSHB は ビー ニナ は) BHTD 8 
FRTENT PRIME 1 こす し に で ST 
9 ローTNKEYS: RF WIHEN 2 の NEI FRTIH 
HE ビー FE は ロニ 31 | 日 = は 
3 PRTNT -PRINT "エリー TTF SCTE 
に TNKEYS TP VENIT た NG4G FIGE PRBNI 
一 に HE 計 ーー と ミミ ビ 王 0 1 
も LE は LFREENTT テ リー 計 電 


5 た 選 


ESS ロ E 3 と 


=PEEKCC3 : IF 日 =1 JHEN BLHB 649 
THEN TF P=HN THEN ビニ = ビ +1 PD=FEE 
け THEH ビニ ビー -BTD 39 
THEN ITF PD=H THEN 4SB 










| YE ラ り 3 NB 


0 こ 1 






= THEN 







2 ELBE HPRENT 8 還 

HB TF K= ニ 1 THEN LPRTNT"P デ キー コー ト " モミ"ーg 5 
BR 

9 明 

as PETMT CNO EL 
5E 06 

ES 下 下 呈 馬 一 : 3 本 に 9 月 な 月 すす 時 
S2B IF K=1 THEN IF 1 ニコ THEN LPEIHT "PB 
2IUEL5EUUPRENMR "0 





は た に 民 る NT Cy ーー ザー" 


5 回 RETURN 

55 PETNT :TF 1 ュー ジラ THEN PETHT "NH ロ 2 EE 
SE PETNT " ": 

5 還 FETHT" ネ ー チ エコ キー コー ト " 2 中 


7g RINKEY:TF. = ニ " "THEN 7B ELSE PRTNT 
8 『F ドー THEN IF 上 1=2 THEN LPRENT "NO 
8 ELSE NRINTL は 8 

59B IF K=1 THEN LPRTNHT" タ ー 了 チア ュ ネー ゴト "データ 
に 0 


昌和 は ロニ GE ュ RETL 丘 
日 ご ー ド TH ます "日 日" す E 宮 まま ビュ 。 す > 
ご 日 PHEESHF そ ゴロ 日 GDEHTE ま と ご キュ > 
ER PHEEIHF ミ モヨ ヨ , [日 SFTHTE ま (ご ミミ そ ュ っ 
日 FHEE は HF コ は ニー, て 日 GFTHTE ま (ご ご, そう 
GE PHEESHF ヨ 日 。 日 コ ビ YHTD ま ご. モ . キュ > テ > 
EER EETLEN 

7 PEENT PHE ま (モコ >-LHCRTE 日 . 昌 
ES FRINT HEINE " BRIN ニ AS まき "EERHT ま て "BB 
BITHE: は BE)。 >: PRTNT 5TNG "END ま さき 
日 日 ま "日 日 申 "すま 3。 キュ : 
所 GTF ドー 日 LPETRT し FR 5HN "時 
日 まま "REGHT ま て" 日 日 " す HE 呈 て 日, 3: -LFET 
MT UETNMG 「 ENE ニ ほ は "iRTBHHT ま TGB"〒FE 
まり 3): 
7 日 TF エー リリ 本 HE 月 は 日 ELSE P 





PETNT "EE 有 NF": 


3H 全 TH ドー1 THFEI 証 "ST THEN re EEF5EF 
PRTNT DMRNEO) 2 
IE HE IN THEN FEIMT TH まく "BB すす て 
li 1 
7 エ F ニ 1 「 昌 上 ミ F す ー"ー" 生母 PRE 提 所 証 
日 ま て 日 当て 時 は . ご ュ : 
0 旨 本 TEEN FEENT 「 EEGHT ま て "日" 年 












下 EHEM ITF | ニコ THEN LEETMT " 
1 す 昌 EKS ま で 回 は ご 上 し SE FFPEENT 





EE は HETNH "FR ニャ 


よ す EEEH 、 人 F に ミト 
































EEFHH ま REN TE 


に に 1 骨 直 朋 JFRINN SUS 9 


9 





まま で 日 は で 本 月 に を 3 : 


さ テ 
に 計 ビニ ビー ミ 
ロー ビビ ヒド ミオ すし すさ 、 
ヒビ HER FT 対 “ 


REN LHEUUI 「 」:EHTH BrB 





は HG AA RIEH け IT て HKS て DR) 


ま F KK ニモ 旧 
まで "日" 上 5 ま 
7 日 ME5SH 5 エ 1-PRTNT JI PHFh ドニ 1 HEM UEFEEH 





d 


は 5 は 上 日 ヒビ ー ロ 日 で ロー ヒヒ に て じす ビジ ェ 
9 は 1F D ニ くう 2 THEM HERENT "ELSE FETMT D 
まで 3: 
HG TH K ニ イ THEM IF H= ニ 32 THEHN LEETMNI 「( 
ェ ビ ヒコ ビビ RTNT EHK キ で RY: 
日 1F 日 て :] EN 『F 1 ビニ コーE THER BEHSIE 95 
符 - 抹 中 9 
司 iM に AX お ご 
日 CETRT :TF ドー エ THEH PFRIMF 
RE す UR 計 
よ F 失 ー ナ 生 LPRTHTF "ENED:LEETMT CHR を 


-E 計 * 





プロ グラ ム て で 使用 する 変数 は 次 の と お り で す -. 





サー チ 中 の アド レス 表示 用 . yes の と き A ニ 1 
B | BGIN ア ドレ ス 
単 | C メイ ン ・ ル ー チ ン で の 現在 の アド レス ] 
C1| HEX 表 示 用 (FOR 一 NEXT 用 ) 
C2| キャ ラク タ 表 示 用 (FOR 一 NEXT 用 ) 
DIIPEEK し た と き の C ア ドレ ズ の デー タ 
E|END ア ドレ ス 
和則. サー チ デ ー タ 以 力 月 
蘭 思 H | ロー1 の と き 。 サー チ 
KK 
L 
L1 
M 
N 











































プリ ンタ ON の と まき, 氏 三 1 
サー チ デ ー タ ・ バ イト . エー2(2 バイ ト ) 
1 三 2 の と き nmno.2 入力 用 
サー チ デ ー タ (1 つ 目 用 ) 

ザー チア デー ( つ 昌 用 ) 














9 がい ー の マッ タバ ジブ 2 クー ミナ ル ・ キ ーON 
プリ ンタ yes, no 入力 用 Y| の み 判 別 
サー チ ・ ダ ンプ 判別 用 の み 判 別 
サー チ 中 の アド レス 表示 yes, no の み 判 別 
サー チ ・ バ イト yes, no 用 の み 判別 
キャ ラク タ ・ コ ー ド yes。 no の み 判 別 
キ ラグ ダァ ゴーE 火 湖 放 

1 6 進入 力 用 

サー チ 中 の アド レス 表示 用 









































5| 
\ 
[Y] 
Y| 

















民 
S 
〒 
U 
V 
W 
54 
Z 
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MMUUOUUUU 古 UNNN 


ド 
区 
ま 
| 










モニ タ お よび サブ ルー チン 
PC-8001 の モニ タ 内 の サブ ルー チ ン は 次 の よ の %( に みつ いで 
いま す -. 








、 アド レス 内 容 
































































































































































































0F75H キー 入力 サブ ルーチン 
0257H 出力 サブ ルー チン 
OsCS の OH スグ トー トド c に アド ンス PC-8001 
5C3CH (5C2CH お ょ よび 5C3CHH を , ュ 
5C66H | 一 ル し た 場合 に は , コ ント ロー ル B で また ,。 ポー ト 30 且 に 出力 する も の に より , 次 の よう に 変 
N- BASIC に 戻れ な い の で 注意 ) 2 まあ: 
5C99H S コ マン ド 
5D16H D コ マシ ボド 
5D68H G で コマ ンド 
5D74H W コ マン ド 
5DAEH コマ ンド お まお のび. ラマ ンド 
5 D H コマ ンド 5 
1 0 ああ 3FH を 出力 , モニ 0 nt Gt 
に 2 1 く @ キー の 内 容 の 入っ て いる アド レス 
5E39H | HEX チ ェ ッ ク ・ サ プルー チン EA7C ロ ーーEA8BH | KEY1 
5FADH キー 入力 , 出力 サブルーチン ( 英 小 廊 EA8C ロ ーーEA9BH | KEY2 
字 は 英 大 文字 に 変え た る, 0 3H で モニ EA9C ロ ーーEAABH | KEY3 
タ へ ) EAAC ロ ーーEABBH | KEY4 
5FB9H キー 入力 サブルーチン ( 英 小娘 字 は EABC ロ ーー ビ EACBH | KEY5 
英 大 文字 に 変 た る. 0 3H で モニ タ へ EACCH ロ ーーEADBH | KEY6 
出力 し な い ) EADCH ロ ーーEAEBH | KEY7 
二 2 EAEC ロ ーーEAFBH | KEY8 
EAFC ロ ーーEB0BH | KEY9 
EA57H| 0 0H 以 外 で 現在 の カー ソル の ある 位置 より EB0C ロ ーーEB1BH | KEY10 
1 つ 下 の 行 を クリ ア す る . EF 3 6 ローーEF3BH | セー プ , ロー ド と き の ネ 
EA58H| 0 0H ノ ー マ ル , 0 0H 以 外 で ター ミナ ル ・ ー ム の 入る アド レス . 
モー ド の 因 琉 陳列 隆 夢 9] 使用 可 . EF3C ロ ーーEF41H | 現在 ロー ド 中 の テー プ の 
0 1H を 入れ て 承 玉 で クリ ア で きる . ネー ム が 入る アド レス . 
EA5AH| ヌル キャ ラク タ ・ コ ー ド 並 通 00H 
EA5BH| アン ダー ライ ン , リバ ー ス 他 用 , 普通 00H 
白黒 モー ド の と き ア トリ ビュ ー ト ・ エ リア に 
こる を 上 三 1. プ ログ ラム を 作っ つた と き の プ レー ク ・ ル ー チ ン 
AS で HI 玉 605) 宮 れ を 00 世 に じ で 画面 之 入 006 が 肖 PC- 8001 の 隆 罰 キー が 押さ れ て いた ら , キャ リー を モ 
る お キー テン クン ョ ジン の り ) 25 っ 人 半 交 3 向 な 2 の 
EA5DH| スク ロー ル 幅 00H で 1 行 , 01H で 2 行 . 
EA5EH| スク ロー ル 位 置 01H で トッ プ ". 
EA5FH| カー ソル ON OFEF 用 00H 以 外 表 示 . 
EA60H| キー ファ ンク ショ ン 表 示 ON OFF 用 . 00H 以 
外 表示 . 
EA61H| グラ フィ ッ ク SW ON OFF 用 . 
EA6 2 日 | 画面 上 下 の 幅 20 行 で 14H, 25 行 で 19H . 
EA63H| カー ソル の 現在 の 縦 の 行 . 
EA64H| カー ソル の 現在 の 横 の 行 . プロ グラ ム 実 行 中 の 一 例 
EA6 5 日 | 画面 横幅 の ソフ ト 切 り 替 え 用 .80 文 字 で 50H, 
72 廊 字 で 48H, 40 文 字 で 28H, 36 文 字 で 24H 
が 入っ て いま す . 聞 雪 サー チ く 4 or 2 0" イ 71) or ゲッ ンプ を 
ハー ド の 方 は , ポー ト 30H に 出力 し て , CR き ③⑨1N アト < ルス = クタ ク 人 の 
TC を セッ ト す る . と ND アト < シレ ズ = ニ フラ すず 
EA66H 語 RE 行 40 の と き 06 是 が 入っ リン ター YES or NO 2 pn 
ポー ト 30H| リレー の ON OFF に 使用 . 画面 (CRTC) SERCH or DUHP 2 s 
40, 80 の 切り 替え に 使用 し て いる . レル 4 っ 4 ン 條 レー っ ユ - 信 ・ 。 授 、 表 - 二 1 











ティー タ 4 ま 2<VES) or 1<no) 2 
アフ ズー コー ト ^ テ *ー タ YES or NO?n 
サーチ チッ ー タ = クタ 289 
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必 S@] キー 以外 に し た い 場 合 は , ポー ト 番 号 お よび XO 


R の 7EFH を 変え ます . 


2. キ ーI/O チ ェ ッ ク ・ プ ログ ラム 
リス ト 2 の プロ グラ ム を 入れ て くだ さい . この プロ グラ 
ム は , どの キー を 押し た ら , 何 番 の ポー ト が , 何々 に 変わ 





る か 調べ る た め の も の で す ( 実 行 例 6 ). 


に 上 ご = うけ 


F F 
F 


に Se 3 


URL HDPRES5 


は すす っ で 





リス ト 2 キー1I/O チ ェ ッ ク ・ プ ログ ラム 





、 HKEAHEG コ 3- 
す 灯 ビ R よ 及 すま 
1 は PHRE さ HE 日 ど ・ 
す だ お PRTNT "ER" 
で は 日 KESHEH ら ミ , 
は ER は 将 N HH コ こ は さ ュ 
5 呈 PRENT "ENFUF 


1Z PRTMT TTFE ま -FDR 日 1H 


日 生日 ま ー 民 TH まく "は"+ す HEY ま て 8 ビ て dh: 





す ・FHE ENHER 叶う さ ご 


PURE HDPEEF55 
は RB HHREAHEHRGS。 FUHEESHEHG NM ど 呈 


1 は 日 に ヒビ ゥ SH ロト ゴロ ロキ ヒキ 日 て 日 コミ 計 ま おま て BS 2 由 は メ は 
2 ロロ に E さ SH で ロビ キ 日 , て 日 BB ま て 日 。 . す >): 


ご は MESI HEBHTB 15B 








きき = 本 |/O 別 肛 ! 徹底 研 究 シ リー ズ 」 各 1.900 円 5 




















1/O に @M6800 を ハー ドガ ら ソ フト ま て 初 収 者 に も 
マイ gn ツン 徹 記 研究 わか る よう に , て いね い に 解 説 . マイ コン の 
入門 書 と し て 大 好評 / 
1/0 別 和 ② @ 叫 茶店 に ある TV ゲー ム の 中 身 を 知り だ こ 
二 グ を ム 鈴 府 研 究 あり ませ ん か や 本 書 は し S | ゲー ム か ら マ イ 
コン ゲー ム ま で 詳細 に 解説 し た も の で す . 
1 別 攻 ③ @ 本 書 は Tiny BASIC や レベ ル 1 BASIC 
同人 A ぐ SW ゲー ム 稚 訂 研 究 の プロ プラ ミン グ の 基礎 か ら 応用 まで , 徹底 
的 に 解説 し まし だ . 
1/0 別 閣 ④ @ "マシ ン 語 "と 聞い だ だ け で “ ゾ ッ " と する 
マ 講 徹 鹿 研 究 あな だ の だ め の 入 門 書 80, 8080, 6800, 
ペ ノ ン 6502 を 解説 
1/O 別 問 ⑤ @ 全 国 マ イコ ン ・ フ ァ ン の 英知 を 結集 し だ 自 


RAINIOA 及 〇 区 (ラン タム - ポ ックス) 


作 派 必読 の 書 . マシ ン 語 か ら BASIC ま で ハ 
ー ド , ソフ ト の アイ デア ガ 114 編 . 





1/O 別 吾 ⑥ 


陸 人 ASmC じ ゲー ム 徹 亡 研 究 | ら | 


@「 に KK-80BS, ベー シッ クマ スタ ー, T RS 
-80 の レベ ル 2BASIC を 徹底 解説 ゲー ム へ を 
し な が ら BASIC が 学べ る . 





1/O 名 


マイ コン ・ ゲ ー ム 徹底 研究 


旬 イ ン ベ ペー ダー ゲー ム を 始め , 最新 の マイ コ 
ン ・ ゲ ー ム を 60 編 以上 収録. 














1/O 別 期 ⑧ @ マ イコ ン を 使い こなす だ め の ブ ログ ラム , 
マイ 問い ン 活 用 アイ デ ア 集 PROM ラ イマ , 電源 ,CRT デ ィ ス プレ イ な 
ご どの ハー ドウ ェ ア , 1 chip マ イコ ン 等 満載 . 
1/O 別 期 ⑨ 


マイ コン 


・ ゲ ー ム 件 底 研究 | ョ 


@ 昌 AD-O 〇 ON, スペ ー ス ・ イン ベー ダー, 
Tiny 与 作 な ど 楽 し い ゲ ー ム を 満載 / 























フワ グラ ノ 入 六 の デー タ を どど -77 ど ソノ ズ 人 ・ ア ッ フ / 





DATA PRINTOUT PROCRAMW 


ここ の 2202 リル シンド が po76 太 Ss ブラ 











最近 , |/O 誌 に は 毎月 『 電 卓 コ ー ナ ー』 が 載っ て いま す が , 図 1 メモ リ ・ デ ー タ の セー プ ブ ・ フ ォ ー マ ッ ト 
そこ に 登場 する の は た いて いな -502P で す . 8 
ノリ ンタ が 合え な いた め ホ 合 に っ て い ゃ 人 る まい ぃ ょ う て 還 細 還 0 
は US 3 に トコ | Pe 本 
す . 面白 い プ ログ ラム を 作っ て も , リス ト が な いと |/O 誌 M M M M M $FF 
に 発表 する こと も で きま せん . 人 W 


そこ で , -502 の の プロ グラ ム や メモ リ ・ デ ー タ が に KCS 
(カン サス ・ シ ティ ・ フ ォ ー マ ッ ト ) て 保存 され て いる こ 
と を 利用 し て , PC で それ を 読み 込ん で , 解析 する プロ グ 
ラム を 作っ て み ま し た . 


「PC- 仙 130 ボーKCS が 凍 が A め る 」 [ 量 


779 年 に PC-8001 の 発売 が アナ ウン ス さ れ た と まき, 当初 の 
カタ ログ で は カセ モット ・ イ ンタ ー フ ェ イ ス 600/300 ボー と 図 3 ファ イル ・ ネ ー ム 
な っ て いた の を 覚え て いる 方 も 多い で し ょ う . 

事実 , ポー ト 30H の ビッ ト 4 によって, これ を 切り 換え 





図 2 各 メ モリ の フォ ー マ ッ ト 





6 バイ ト 


' 


仮数 


( 評 コ ) 
( 評 F) 





























る こと が で きる の で す . これ を 利用 し て , ハー ド に 何ら 手 中 下 』 上 
を 加える こと な し に , KCS 規 格 の テー プ を 読み 込む こと 人 伴い モ リド HE) 
が で きま す . L $B… プ ログ ラム (FP) 
上 
『 {X-502P の テー ブ ・ フ ォ ー マ ッ ト 』 図 4 プロ グラ ム の セー プ ・ フ ォ ー マ ッ ト 
メモ リ ・ デ ー タ を モ セーブ し た 場合 , 図 1 の よう に な り ま ファ イル ・ ネ ー ム プロ グラ ム 本 体 
す . 各 メ モリ は 8 バイ ト で 表わさ れ ( 図 2), ファ イル ・ ネ 2 が ー 256 バ イト 3 
ー ム は F また は FP の 区 別 と 。 3 桁 の 整数 で 図 3 の よう に | 間 E 
表わさ れ て いま す . 
プロ グラ ム の 方 は 図 4 の 型式 で す が . それ ぞ れ コー ド が 
命令 と 対応 し て おり , どれ が どれ と 対応 し て いる か は プロ 後 は タイ ミン グ を 見 計ら っ て , 何 か キ ー を 押す と テー プ ' 
グラ ム の 行 番号 40、 45 と 1000 一 4000 を 読め ば わか る よう に を 読み 始め ます . この タイ ミン グ は 重要 で ,。 テー プ の 頭 の 
な っ て いま す . * ピ ー” と いう 部 分 で 押し て くだ さい .。 うま くい け ば 数 10 
秒 後に テー プ の 内 容 に より , メモ リ ・ デ ー タ な ら F が , プ 
『 て mmm 叶 ログ ラム な ら FP が 表示 さき され, ファ イル ・ ネ ー ム も 出 ま す . 
了 ウ / ログ ラム の 説明 」 これ が , 3 桁 の 整数 で な けれ ば 失敗 な の で や り 直 し て く 
だ さい . メモ リ の 表示 は 1 画面 で 収まり ます が , プロ グラ 
カセ モット ・ テ ー プ レコ ュー ダ を PC に 接続 し て , な の テー ム の 方 は 収まら な いこ と も ある の で , その と き は 何 か キ ー 
プ を 入れ て 再生 し て くだ さい . RUN す る と プリ ンタ へ 出 を 押せ ば も う 1 度 見 る こと が で きま す . [EsSC| キー を 使っ 
力 す る か , プロ グラ ム で INV を 表示 する か を 開い て くる て 適当 な と ころ で 上 正 め る と いい で し ょ う . 


の が が で 容 で くだ さい 容 お ) P5ーP9 に 対人 KUHONIV: を 
付け る と 見 に くく な る の で , これ は 省 い て いま す . 
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プロ グラ ム の 説明 





変数 の 説明 




































0W555 イジ シャ ラド イズ 人 (257) テー プ の 内 容 
60 一 I00 配列 に テー プ か ら 読 み 込む S(9), T(15, 5) 命令 コー ド ・ テ ー ブ ル 
1000 一 2000 2 ジュ デ ロ グ ラム CR 履行 時 
2000 一 5000 プロ グラ ム 解 析 IV INV 表 示 コ ー ド 
5000 一 7000 メモ リ ・ デ ー タ 解析 IL プリ ンタ 出力 
8000 一 命令 コー ド ・ テ ー プ ID INV 表 示す る か 
写真 1 INV を 表示 し な いと き の リ スト 例 写真 3 review を 指示 し た と き の 例 





素 素 素 < メーラ おど ロ も apG し じ ぁ Gr 府 杯 主 


〇 の ロ て らら も 〇 ロロ ュ ミロ も @e い くら ノン ロマ ロ 
ITNV di 詞 p1 ぁ 9 つ ロ く ロ ン ロ > つ ロ 
HH: も ぉ ロロ に どり tt 〇 = も ぁ セ 。 

FP 4123 


Pg 


9 EXP, 14 つづ,.4,S,6, マ , お 8, ー 
=,EXE , 人 RC, RC, 人 RC/RC SEE 

に と PaUSE , IND , SQVE , LORD , MC , SRC , て EN 

う >, て <" "19 へ Xe へ xx BS NT FRRC。 SN RCS 
RTN, DEL , パ そう OO も へ の ユン xx ! hgp RSN hg 
ら CS,hgp RTN. ロ gp = ュ ロ , ロ Op cos= , ロ り p も ぁ a ロ , 昌 
+ ラ MMーF , MHRF , MinF ,X く て >HF , xD , xD ,ENG ,* "1og 
ィ 1 ロ キュ ロ , ご の 記 in ロ , う 。 て. オン ー xD 

ココ 』1・| 

ロミ も a ロ り に どり も の じ @ り iug。 


写真 2 INV を 表示 し た と き の リ スト 例 


の 〇 u も pu も も 〇 ロビ ミロ も @e い くり ロン ロ > マ で ロ 
1N ソ di ら 1 ぁ り 9 〇 ロバ ロン ロ > マ g 
Hi も a ロ 9 に e り も の な も ぁ a い て <。 

FP 423 


1 8, EKP 4 でき,4 6, ママ ,8,9,X, ノ ,+。ー 
ッ > テッ EXE , RC , で , C.C 

P1 INV PUSE , INV IND , ITNV SRVE ,INV LO 
人 有 D , INV HRC, INV SRC , INV て <〈ENG) , INV て <" " 
> 。 INV 419 へ < 。TNV e へ <, INV BS , TINV INT,1INV 
FRRC , INV SN . INV QCS , INV RTN, INV DEL , IN 
り XX くう Y ,【N ぴ OOt , 1NV xx へ の 2, TENV ユン x, TINV xx!。 
INV hup RSN,INV hugp RnCS, INV hup RTN.hgp 
登 3 い , ロ 9P ご 〇 呈 。 い gp も ぁ am,M+9.MーF ,HRF ,MinF ,X 
く >HF , xD xD ENG ," "1O9, 1 ロキ a ロ ご 〇 OS Sin ロ , う 
に アス し リ 

に a・| 

Hi も a ロ 9 Ce り も 〇 じい iG い り 。 





災 -5 ち の 2/ 用 プロ 


in ロロ dP ご O. い gp も ュ い ば + ラ , ロ ーF ,HRF .NinF 
く >MF ) xD 。 xD 所 NG 。" "1Oq。 1n も an の OS 。 生 in。> 
ッ くす キン ー xD 

トコ 4 ト ・| 上 

日 ミ も っ いり に らら も 〇 い @ り 1@ い り 。 


ゴ -」 9 , 。,EXP , 1 つき, 人 4 らら, 8 9,X ッ ン 。 キッ 一 
=,EXE , RC , 各 で , 月 で, 人 で 


P4 INV PRUSE , INV IND, TINV SRVE,INV LO 


RD , INV MnC,INV SRC, INV て <ENG) 。 INV くく "の 


う , INV 19^x , INV e^<,INV RBS, INV INT , INV 

FRRC , INV RSN , INHV CS , INV RTN, INV DEL , IN 

り ぐう Y , INV Oo も , INV xX^ へ 2, INV ユノ ン x。 INV x! ッ 
INV hugp RSN, INV hgp QRCS,INV hugp RTN,.hgp 
=in, ロ 9P ご の 5 ロロ コロ も an ロ ,M+9.MーF .HRF .MinF ,X 
て >MF , xD , xD ,ENG で "1og 。 1 ロロ , も an ご 〇 Sn。 う 
ァ く 。 キノ ンー : xD 

end 1 

日 it る いり に @ り も 〇 い @ ソ 1Guj・ 


写真 4 メモ リ の 表示 例 


吾 素 素 ベー こけ の ロ も ぁみ ら @G し @ み Gr 素 杯 素 


の 〇 ロ も pu て も 〇 O Pin いも らい てく ロン ロ > つ ロ 


TINV di ュ = ミ ら 1a ョ ワ 


日 ミ も ほろ いり に @G り も 〇 全て a い 


F 3695 
MF 1. つう 4S ら 6Z お 98E ビ ー99 
9ー9 . 999999999E ト ! 
S . 499999999 ビ ト ! 
ら 。 199999999E 
6 . 498989899E 
9 . 8Z ア 88898999E 
8 . つ 998999999E 
9 . つ 99999999E 
9 . ア 99999899E 
1 . 99988899E 
NM ロー1 。. 188898999 ビ 
TINV dd ュ iP1a り 9 〇 いて ロン 


1 
る 
に rd 
に 
EC 
4 
に 
n 


グラ ム の プリ ント 例 


On ロ く ロン ロウ タラ 


も 。 


M・F 一 1 。.B99888989E 
に 記 に 1 に <1<1 1> に <1<【<] コ 
19999899gE 
6 -B99889889E 
マ - アロ 9998986E ビ 
の .399999999E 
の 。999999999E 
3 。 198999899GE 
き . ほ 588999999E 
人 4 . 899999999E 
4 . ほ 899899899E 


いた を を を を を を を を を 1 
圏 QhNQO ょ OO 


し 


は は ビビ は は は ビビ に 〇 



























P@ ヨ ュ 計っ デュ キュ ー ュ ニュ EE 。H に 、 ロ 

F1 上 EHIME 。 TH LHRE'、 TH HRC JKEN ロッ ュ THU STEP PU 
INU 1g^x、TNU = > THUM TIHT.THU FEHE。 THU HEH。 THU HCS ュ THU TH TH EEL 。 TH 
ZY。 INU root、 TRI INHM 1ry THU 1、THU hgF HEH、THU hgF HES・ THUU hgF HTH: hgF 










9P Cos: hgF tan:+ ヨ 。 国 -F 、 RF 。 由 1 nF 、 


D: 


IF 。 xD xD。EHG:『 「) 








ミュ 





1 ロ ヨ ュ 1 ロロ ュ キュ ロロ) と ロ 





ns は て ュ 





PC-8001 版 な - ら の 2/ 用 デー 


タ ・ プ リン ト ア ウト ・ ブ ログ ラム 








EL 肛 
玉 !EFRTHT 



























- ュ h9 ド 














DEF INTH-RiEEFST SC て 9) ょ TX15.) 
HLT33。 Ei ITS HEri HLT4B。 15 ま IT す は 
FR = TU - 
FE J= 品 TH 15iFHER 1= TH * ERE TXT。 TEHESTT 。T 
THFUT "HutFut to FFinteFTgT2 WIIiTF ="g リ THEH 1L=1 
HITU 1 回 回 回 
FR T=g THE 
3 玉 
TIHFLT "THU disF1a: y TillsTF 固 "a リ THEH ID=1 
FRIHT "Hit 1 


中 品 
f 則 由 症 。25。 ョ 1:urpTH4a。 ziCnLOR4:PRIHT EHR ま で 1)3 FETHT "半球 下 ※ー ロ SF 上 aF 上 ョ ロ 








11 


3 





&O 





PC-8001 版 な -2 の 2 ア 用 デー タ ・ プ リン ト ア ウト ・ プ ログ ラム 





"FPP ELSE E=175tPRINT VF 5 











HEH F=1:E= ニ < コ Si BI 


HITF F= THEH | 
BE RE 素 玉 FF ロ ヨ F ョ Ii 了 H ES 
昌 FOUR J=E Tn 








IF cH55 HH 359 FRHD 上 HH 
デ E 還 則 =T で HLー1 ロ iTF 軸 =" り 0 THEH =" 





HIR 日 =1 は HK ロ = 語 HFE THEH TU=1 





ゼロ 6 ITF ロニ 25 BHTH は 5 


回 BHT は 回 回 
25 加 IF =15 THEN 3EE 

251 ロ ロ IF H=1 THEH 1u=1 

5 ァ ロ IF 日 = THEH CR=1 

5 IF H=E THEHN CR= ヌ 

3 IF Hz ヨ THEH 山 SH-5 ロ コ + キ リリ ELSE SH 

Sd 加山 =MTRTGHT ま STR ま で 上 3。 1 GHTH は 回 本 

さき BE 加山 =S+LHHEE ラ ITF 上品 =1 THEH MM リリ 

さ 四 1 回 軸 軸 "FEGHT 生 加 回 加 

BE ITF ID=1 THEH IF TUM=1 THEH 軸 =" リ THNU "本 還 

1 回 IF ER: ロ THEH FRTHT CHE ま で ヨ )5 りり は 軸 王 F 折 EE まで ERー1 Tll+SFHEE ま (デー ビ 民 まさ 3』 IF 1 エ L=1 TH 
EN EEBRiDMI 細 1 

HI_ FRIHT iTF 1L=1 THEH LFETIHT 

引 加 IF CR= THEH FRINT "。 "kTF TL=1 THEHN LFRIHT "。"* 

95 NERTT 

dE PRIHNT CEHR ま EBIFRINT "End FRTHT "Hit ang kag t ロ Fu1EuM。 リミニ THNFUT ま 138 ロ 
TI 

コロ E RE 還 束 mm ロ Fd Fa 束 ボ 

Sg1 FIRT1=TH1 Ei" 鼻 " 

BZ 名 TFT1=THEH 凡 = リ F "ELSEM= 上 TRGHT ま STR ま て 1 器 -113。1) 

5 ロ 3 エニ 1 1 ボロ +25 ロ HISLUEEE ロ 

sisCi5IETEGM 有 WII 

SgG 加 TFT1=THENMI= 軸 リリ "ELSEMI 軸 尺 T ロ HT ま で STR ま て 1 ロー113。 1 

5Er 加 エ =[1 ボ B+3 GHSLEIEBEEI FRTHTIIE TFTL=1THEHLFERTIHT 罰 

5g8_ NERTT1IGHTH 1 ロロ 

BE IF (エキ 1 5HEE う = THEN 軸 軸 オリ ー リ ELSE 喘 = 昌 +! リ 

BE1 加 軸 MTRIGHT ま STR まで HC エ + で うう ょ 13 リロ 

BE FIR T=E TU 衣 STEF -1 

B 加 3 回 軸 軸 民 1 ロ HT ま くり ロリ 二 HES ま で HTC エ +T3 3 ょ で 

5gd NEST T 

5g5g =LEFT ま MMU。LENXMI ラ 15+"E リ 

EE IF エキ 1.3HD13= ロ THEN IFRKTS テ THEH 軸 = オ リー リョ 軸 則 RT ロ HT ま て リリ ST まく 1 ローM ロ LTH 
ER ま ITT333 ょ BIKETURH 

Br 回 軸 =MMTRIGHT ま (リリ +BTR ま で ML THE 記 まま THCT3 33 93 ょ さ 。 
SggE DRTH PRHE。LBL 』 ロ HTH。 GSEF 
Sg1 DRTH RT。 im。 民有 目 ー。 由 + 

BE DRTH 1」 3。。 : ESF 

BS DRTH 生 。 ロア は 。 ヨ 

BE DRTH HLT」。)。 ェ 

SgSE DRTR xD。 ょ EN リュ 1na。 1n 

BEE DRTH ni ca=。 tan 
BE DRTH : =。 EE 

BB DRTH ェ FRNE#。 ERP 
Bd DRTH 1 in ミ 1 ヨ mm ロモ 1 ヨ mma ロー1 
1 DRTH じ 
811 ロ DRTH 
12 DRTH 
813 器 DRTH 
1 は DRTH ロ 
ョ 15 DRTH 
1E ロ DRHTH。 。 > 
1 DRTH ETNOP。 。。。 and 

1E RE 半 玉 半 玉 玉 素 玉 玉 玉 玉 半球 補 玉 玉 玉 玉 玉 半 玉 玉 玉 玉 玉 玉 
1 RE 姜 束 

11 RE 整 ミー ロ 四 SF 1 ミュ ミミ ピコ 
1 ロロ 1 RE 素 

1 ロロ RE Ba Time'= 1ore1g ロ n ら 
1 ロロ SG RE キ 束 

1 ロロ 3 加 RE 素 に 125 あ Ps1 

1 ロ gg3 ロ RE 素 計 
1 は ロコ RE 症 束 





jiRETILIEH 








r 
poNT KNow… 


S 





事 玉 束 束 玉 束 束 整 玉 姜 症 














CO VOo ツ oo ツ VOOVOOM 

この つき この つき ぐつ きく で つつ この つき この つっ 性 

OAM BROy | 
こす V 科 ・Y こも) 2 生 
錠 


ンー 4 4 2 e ゴ に 紀 記 < の 7 
OO\W/O 〇 ie1 we:e」 OO りり O ひ 【 り OO Mo 
CO SA SSSAWssoW だ だ 


88 
く で っ 


AA AS な な の 


1/O'80 年 10 月 号 に DE JA 3 RZW さ ん の MZ-80 用 の プロ 
グラ ム を 参考 に し て PC-8001 用 の プロ グラ ム を 作っ て み ま 
あべ 

打ち 込ん を だ ブログ ラム の 後に この プロ グラ ム を 入れ , RU 
N 1OOOO を 実行 し て くだ さい . 修正 きれ た プロ グラ ム が 
出力 され ます . 0 番 に な っ た こと を 確か め た 後 DELETE 
1000 一 10040 を 実行 し て 。 こ の プロ グラ ム を 消去 し て くだ 
さい . REM 文 以外 に は 作 わ な いで くだ さい . 

PC-8001 で は BASIC は 次 の よう に 入っ て いま す . 





8020 00 
8021 45 80 次 の ライ ン ・ ナ ン バ ー の アド レス 
8023 0A 00 ライ ン ・ ナ ン バ ー 


&O 


PC-800] BASIC の テキ スト 番号 を "0" に する / 


津 の オケ ラ 


8045 A2 80 
8047 14 00 


後 は 各自 で 考え て くだ さい . 別に そう 難し く あ り ま せん . 
注 ) 16K の 人 は 10010 行 の エ =&H8021 を T=&HC021 に 
変 た て くだ さい . 


較 参 考 文献 
1) 昭和 一 桁 “SAVE ミス 救済 法 "。1/0, 780 年 1 月 号 
2) 清水 の 太郎 長 : “スー パー コマ ンダ ー?,1/O,"80 年 8 月 号 
3) DE JA3RZW :MZ-80 BASIC の テキ スト 番号 を 
「0」 に する ", 1/O, "80 年 10 月 号 





FRTNT CHER ま 『1 
HFLT ョ ロッ 


+ で マエ" 
FUEE エ + ミ 。 FIEET エ + さ 。 
Tj+FEEETT エ +13 
に エキ デュ +FEEE ド エエ オロ E 
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1/O '80 年 9 月 号 の M 有 用 FAST を PC に 移植 し まし た . 
変更 は ほとん ど し て ませ ん . 文法 は まつ た く 同 じ で す . 


川上 川上 上川 


変更 し た 貞 


川 川上 上 上 II 


II 
川 川 


MZ と PC で は キャ ラク タ ・ コ ー ド や コン トロ ー ル ・ コ 
ー ド が 違う の で , アセ モン ブル ・ リ スト を 参考 に し て PC 用 
に 変え まし た . M 有 ZZ の モニ タ の ルー チン を コー ル し て いる 
と ころ は , PC の モニ タ に 同じ も の が ある と き は それ を 使 
い , な いと き は サ プ ブルー チン を 作り まし た . 

番地 の 変更 は メモ リ ・ マ ッ プ を 見 て くだ さい . 8098H 一 
80FFH は 空い て いる の で , 子 約 語 を 増す と き に 使用 で き 
まい が 。 

な お , 1/O "80 年 11 月 号 の RANDOM BOX に あっ た 
変更 は し て ませ ん . 
出川 軸 


IPC-FAST の 走ら せ 方 : 


まず ,。 ダン プ ・ リ スト どおり に キー イン し て くだ さい . 
キー イン が 済ん だ ら , 


*W8020, 8B40 ) 


( ) は IRETURN を 押す ) 


じ SC。 ガー ブフ) 人 だ (ー ジ 2 し 2 で 2 ぐだ GNUS。 
次 に , 


1 
| 
1 
| 


*G8100 ) 


と する と , スタ ー ト し ます . ホッ ト ・ ス ター ト は 812 B H 
か ら で す . モニ タ に 戻る に は , [CTRLI|g| で す 

スタ ー ト する と 『 提 』 が 出る の で ,。 プロ グラ ム を キー イ 
ン し て くだ さい . キー イン し た 文字 は 小娘 字 一 大 廊 字 の 秦 
換 を し て いる の で , [SHIFT を 押し て 大 字 を 打つ 必要 は あ 
り ま せん . 
川上 風 川 川 上 III 


: プロ グラ ム の 入力 の 方 法 


川 川上 川上 上 上 II 














いま , 『2 十 3 と 4*5 を 計算 する 』 プ ログ ラム を 考え ま 
す . この プロ グラ ム の 名 前 を ABC と し まし ょ う . これ は 
次 の よう に 入力 し ます . 
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PC-FAST メモ リ ・ マ ッ プ 





8020H 


PC 用 の 
サブ ルー チン 


8100H 


ビン シス ニレ 4 リル 


8444H 


8A5EH 


A000H 


C000H 


D000H 











せ 【) ABC) 2) 3)+) 4) 5)*)〕) 


途中 で 入力 を 止め る と き は , 2 ) と 入力 し て くだ さい . 
Il 


| プログ ラム の 容 行 


Il 





プロ グラ ム ABC を 実行 する に は , 


せ ABC) 





と: ま 29: KG5 


井 STK) 





と する と , いま 実行 し た A BC の 結果 が スタ ッ ク に ある こ 
と が わか り ま す . まだ た, この プロ グラ ム を 他 の プロ グラ ム 
か ら 呼 ぶよ こと も で きま す . 

だ た と えば , 『(2 十 3)*(4*5)』 を 計算 する プロ グラ ム 
の 名 前 を DEF と する と , 





[DEF ABC * 


| 





ど な がり ます 9. だ SGGS 


Ep 月 - 拓 = 凍 





と する と , まず , プロ グラ ム A BC が 実行 され, スタ ッ ク 
に 00005 と 00020 が 積ま れ , 次 の 『「*』 で 結果 の 00100 が ス 
タッ ク に 積ま れ ま す . 

この よう に , ほとん どの 場合 , 他 の プロ グラ ム と の バラ 
メー タ の や り と り は スタ ッ ク に よっ て 行なわ れ ま す . し か 
し , 変数 を 使う こと も 可能 で す . 

変数 は 使う 前 に 宣言 を し な けれ ば な り ま せん . DATA 
と いう 名 前 の 変数 の 宣言 は 次 の よう に し ます . 


NAME ? (下線 部 は コン ピュ ー タ か ら ) 









VAR) 
#DATA) 


この 変数 に 値 を 代入 し た いと き は , 


DATA) 
せ !) 


と し ます . これ で スタ ッ ク の TOP の 値 が 変数 『DATA」 


に 代入 され ます . 逆 に 変数 の 値 を スタ ッ ク に PUSH す る 
紅 全 。 


#DATA) 


#@ ) 





と し ます 。』 まだ た 。 配列 も 使 る ます . 


井 ARY) NAME? 
寺 DIM/) SIZE2 
#57 





この 配列 の 名 は 『D I M』 で , 大 き さ は 10 バ イト です . 
この 配列 の 2 番 に スタ ッ ク TOP の 値 を 代入 する プロ グラ 
ム は 次 の よう に な り ま す . 





半 [/LET/100) 2) DIM。 


2 番 を 表示 する プロ グラ ム は 、 





で す . 廊 字 変数 交 字 配 列 も 同じ し よう に な り ま す . た だ し , 
代入 する と き は 『C /』」 を PUSH す る と き は 『C@』 を 使 


いま す . き は それ ぞ れ 『CVAR」』. 『CARY。』 を 使い 
ます . 
プロ グラ ム の 中 断 は [EScC] を 押し て くだ さい . 


川上 上 上 川 風 上川 川上 川上 上 川 中 


簡単 な 応用 例 


iM 





唱 因 岬 四 


1/O'80 年 12 月 号 MZ 用 し LISP の 記事 を 参考 に ,『 サ ル の 
バナ ナ 取 り 』 と 『 ハ ノイ の 塔 』 を FAST で プロ グラ ム し 
まし た (リス ト 1,2) 

山 MUUUUUUUUUUUUUUUUUUUUUUU0UUUUUUUIIIIIUUI 


I 最後 に 
I 


mml 





9 月 号 の 記事 を 読ん を だ と きか ら PC に 移植 し た いと 思っ 
て いま し た が , 思う だ け で , 実 除 に は 何 も し ませ ん で し た . 
と ころ が 12 月 号 で .、 ク レー ジー バル ー ン が MZ 用 に 移植 
れ た 記事 を 読み , 作っ た 本 人 で さえ る, 忘れ た よう な 細か い 
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写真 1 ダイ レク ト ・ モ ー ド に よる 演算 と スタ ッ ク 操 作 


NIT P こ 一 BBB4 FRST Ver 4.9 
= ュ ロ ラニ 1 ュ セ 避 1 づら らら T-Ma も an ロ a ら eg 


素 素 TINY FORTH By T.aSRnNMri 素 
幸 和 1 





写真 2 プロ グラ ム ・ モ ー ド の 例 


幸 FRBC 2 3 + 4 ざき 素 コ 
に 3 


に ょ = 
に 」<」 < と 4 < ト に) < に に 2 
きり コ = 還 ) :)o 近 E、 提 | 
3 りり ココ 
幸 STK 
目 ユ リコ 所 
に 1 に 1< ま -】 
に | に ト 上 <」 < に 1 に) に 4 語 に 1 に <) に 2 





写真 3 ワー ド 『REPEAT。』 の 実行 例 


1 コ ョ コ ェ 上 -1 <: 還 記 
に 1 ココ コ 。i 


想 


まま ささ よさ っ 


に 』 

ャ ルリ 

に 

て 

たん ルル ルト た た ルス 
ロ 


ドナ た た テテ ナ ルナ ナナ ナナ ナリ 
ト に た テオ ナナ ナナ ナナ ナナ リ 
と ナナ ナナ ルナ ナナ ナナ オノ 
テテ ナナ ナル ナナ ナナ テル だ デ ノ 
ャ ナナ ナナ ナナ ナメ ナナ ナリ 
と ナナ ナナ た た た ナ ナナ アリ 
トナ ナナ ナナ ナナ テテ ナメ ナ ナル リ 
トナ テ ナ ナ ナナ ルナ テテ ナナ ノ 
ト デ ナ ナ ナナ ナル ナナ ナナ 
ト た テア ナナ ルル ナナ ナナ / 
た オナ ナナ ナル ナナ ナナ 
ト テ ナナ テ ナ ナ ナナ ナナ ナメ ナノ 
トナ テキ ナナ ナナ テテ テテ エナ 2 


人 
QR n nn 
nn nn Ra 
nn nn 台 
n Rn n 
n nn Rn 
nn R aa 
nn Rn Rn Rn 
nn nan 
n nnn 
RnR na Rn 
人 n ロ 人 Rn 
RR 人 生 STO 


リリ 


人 
] 
内 
人 
人 
人 
人 
人 
R 
に | 
園 


四 


と ころ まで , プロ グラ ム を 解読 し て ある の を みて 和光 き まし 
た 

そこ で , 負け て は いら れ な いと 思い , FAST の アセ ン 
プル ・ リ スト を 自分 が Z80 に な っ た つも り で た どっ て み ま 
し た . その と き , 意味 の わか りや すい ラベ ル が 役に立ち ま 
7 

また , ゲー ム な ど と 違っ て , ビデ オ R AM の 番地 に 注意 
する 必要 が な か っ た の で , 思っ て いた だ た より 容易 に で きま し 
Lo 

PC の モニ タ の 便利 な ルー チン は 参考 廊 献 2)。 3), 6) に 
より まし た . [ESc ほ 押す と 中 断 す る と ころ の サブ ルー チン 
は 参考 文献 3 う ) に より ます . また , ハノイ の 塔 は 参考 文献 1) 
の P AL 工 用 の プロ グラ ム を FAST 用 に し まし た . 
最後 に . わか りや すい ラベ ル 名 の 付い た アセ モン プル ・ リ 
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スト を 作成 し て くだ さき さっ た 浅見 氏 に 深く 感謝 いた し ます . 

避 参 考 文献 

1) 藤原 博文 : 

2) 村 田 鷹 男 : 
2 月 号 

3) 石井 晴 正 


バハ ノイ の 塔 ?、1/O, 1979 年 12 月 号 
^*BASIC に よる 逆 ア モン プラ”, 1/O, 1980 年 


コジ 2 に クシ ルン に ロ ネ ク タ ン 4 
リス ト 1 
a) プロ グラ ム ・ リ スト 


1I/O, 1980 年 , 
サル の バナ ナ 取 り 








電 | 
MHR HHIE 


MIEIM 
#MHE HHHET 
THEILE 

#MHE HHHEP 
EHHHHH_ 













| 9 ] 
#[IH REHHHHH HEETT 
THELE 
#[HEET FINEET 1 =.:tF。2 る REIOIM 

1 FRHH1 玉 HHHE THEN LF THE 3 


ee 記 


RinH1 E 








MMW FRHIH = Tn 
#[EFEIHG HEST MITH THE : 
店 時 THELE ! ] 
[SLE LF IN THELE ! HHEEE | EHHHHH ! コ 
#[ ロ HHE SHE THELE 呈 HHEE 品 =F。1IF HET 

















THEH _EHHHHH 品 = F.IF EEIHG THEH 
LF THE 記 “HHE 5 HTE THE 呈 “BEHHHHR 
 ] 

b) 実行 例 





#GHFHE > 

HERE 5 
HEFE 1 
HERE 15 








THE _EHHHHHT 1 2 
THE PHEE つう 
THE THELE 1 ) 








3 月 号 
$④ 片 桐 明 


FORTH/, 
5) 浅見 俊幸 : 
6) 長 谷 正博 : 
7) 浅 見 俊幸 ・ 


I/O, 1980 年 6 月 号 
FAST”, I/0, 1980 年 9 月 号 


^PC-8001 モ ニタ サブ ルー チン の 利用 法 ?1/0,1980 年 11 腸 


古川 徹 : LISP”, I/O, 1980 年 12 月 号 


( 注 ) N I と は 名 古屋 工業 大 学 の 略 で す . 


リス ト 2 ハノイ の 塔 


a) プロ グラ ム ・ リ スト 















































gg *。 * TIHW FETH BE T.H5HT 
118 * #URR NRNES 
128 * 
13g 『 NRFE 
149 「 
15g ' NRHE? 
1eg 
179 * #CURR NRHE3 
18g ' TQ 
199 " #[S SPC . PRP ] 
2 * WETRNS LF HCME 5 DISKSHaS PFRONSFR 
219 " ONC9S TOSTOCg5] 
222 " ##[HRIN TOE! BY CI1FROH ELN!NBi 
23 * IF ELSE Ha FR Ca BV Ca TU CH Na 1 一 
4 ! FR ロ H Ca TO Ca BY Ca HaIN TU CI BE! FR 
"HEIHN ! TERHH5S NH 1 -EW CI FR ES TO 
"Ci NRIH THEN ] 
" #HRN ロ T TOMER- TOMMER-EB TOMMER-C HIN ] 
b) 実行 例 
# さ 
#HHHT 
IQUE FR TOMEE-H TH TOMER- ビ 
IIUE FR ロ INT TQMIER- 日 TO TOMER-E 
IIUE FRQI1 TOMER- T ロ TOMER-E 
NuE は FRDN TOMIER- 昌 TO TOMIER- に 
HIUE DISK ggg1 FE TOMER-E T ロ ・TUMMER- 日 
HUE DISR gggg2 FR TMER-E TH TUMER- ビ 
IfQUE DISR gggg1 FR TUMMER-R TH TUMMER- ビ 











PC-FAST ダ ンプ ・ リ スト 


































Rdd 。 + ロ +1 +2 + オ さ オキ キロ オロ 


SE E5 F1 E9 F1 C9 CB 
SB1 C ヨ CB EC3 CB EE 
SE ER に さ 3 8 HB DEE 
Ba3 13 FE gD 2 Fr 1E CD ロ 
Sg4 FF 9 ラ F 77 21 マデ F RB Tr 
SE 8 回 ED 52 CS 81 
SE 3 さ 加 さ 1 2 4E 41 3 
Sg D 1F 5 2 G1 EE さら 
BBB S 2 BZ 9 2 9 EE 
BB 1F 1F 3E 2 ES HG 
SR 回 加 四 5 ロロ 
SEE BR 回 加 9 
SE E 回 5 g9 BE 
SBD 回 回 gg IE 回 回 回 回 
BE 回 回 回 回 加 回 回 回 回 回 回 EE 
SF 四 四 避 ESI 


Sum 
84 マ 


Lo 
上 


Rdd 。 + 昌 
S1g CE3 3H 8 
まめ 
8B12 ロ 3E 1 に 
CD 
1 回 BE 
CD 8d 












nm テー TO 


Emーm ロ ロロ ーーmmm 呈 二 








1 











S25 ロ D6 さ 
82G 38 ロビ 

2 82 CD 
S2Bg SE BDD 
SB29 くさ 
82R BB CE 
S2E ロ n1 11 
82C ロ 1 64 
32D 13 SE 
SZE ロ 3 さ C 18 
S2F ロ FE 


Rdd  + +1 
33 コラ ロロ 


SS31 ロ 29 8 


832 18 CE 
SS3S ささ 


835 ロ ED 42 
836g 月 1 でき 
837 FF ED 
SS8g E1 D1 
8 さ 9 GR1 
BS gg 1 
8SBg 21 
8SC ロ CD 
83Dg 2C 
83E ロ 1 
83F 18 


は に 】 
8 
ロロ 
に 】 


Rdd  + ロ +1 
Sg SB6 8 さ 
41 ロ 13 2 さ 
842 ロ コキ 82 
3 折 1 11 
8 2B に さ 
845 n ロ 1 
846 ロ 1 ED 
84 ロ RD 81 
848 ロ 69 さら 5 
843 ロ 5D 回 
SH 2 1F 


CD : 


D 2 


ghD C 
834g D1 に 1 ビ 


FF E 


Eb 5 
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PC-FAST ダ ンプ ・ リ スト 





Rdd 

SBB は ヒビ 
881 ロ 
SG 

に 1cA15 
4 回 


B4E 2 3 1 
BdC CE2 FE 25 
Bd 1 ED 53 
BE 1 ED 53 
B9FB 4F 52 7 






















































El 8B5g 

5 SBE 

851 ロ 887g 

52 SS 

53 器 889 ロ 

に ei BBR 3 

B55 2 BE 

BE E SBC 

Br 3 SBDg 

5 FE SBEg 

に IT] SF 上 ロ 

BS : 

SE Rdd 

85C 避 

BE 

BE : 

85F 呈 5F 1 5E BR :5Rr 

dd +1 

BE ED 2 

BE1g CD PE 

BE2 CD 2 

BE3 F2 2 回 

BE YE BG 

BE 8 18 

86Gg BB 81 83CG 

BB ロロ る ロ 89D 

BEBg 41 29 1 BE 月 

B69 2 4 さ 83F 

BGA BR CD 

BEB BC CD 

BeC CD デ は 

BeD CD 5 

BE gg 1 

BeFg CS5 DD 

dd 。 + ロ +1 

YEI 3B 

81 CD 31 

By 1 ED 

BS C9 PF 

Br ロ C DD 

Br5g ED 2C RE 

SrE 加 BI H1 SRCg 

Br FE gi SRDg 

Sr8g ED SB HEg 

9 22 SRFB 

BY 7 2 

S7Bg 81 2 < Rdd 

ByCg 1 CD SBgg 

Bybg 2E CD SB1g 

B7E 呈 EB 29 9 SB 

BrF EF- EE : コ で 18 ロア で SB3 3 SB BE 7 

SE4 BR dE ロ D DB 46 
し 
チェ ッ ク ・ サ ム プロ グラ ム ・ リ スト 











昌 





ELEHR3 還 回 』 計 H ビ 

1 DEFFNCEH ま CE、F ュ =STR TNG まで EーLEH て HE まで F ッ う 。 
2 INFUT "tart add"S LC" 語 H リ +LEFT ま で 
3 IHFIUTVErd ョ dd "5E UL "& 昌 リ +E ま う 

FIR H=S TU E STEF 1 SL 』 ITF RIGHT ま (HEH ま て 日) で ) ニ リ ! HK =S THEH ロ HSEUE3 ロ 
5 _LFRINT FNCEH ま “> 補 

E FR 1= 品 TU 15 : =FEERXT+TH) ILFETNT FNEH ま ED 0 ISLN=SUPTEIHESST 

r LFRINT "EEFHEH ま びさ SLIENEST 

8g END 

3 LFEINTELFRINT "dd 5 EFHE 1= ロ TH 15ELFRIHT" す "HER まで T3E リ VRENESRTILFRTNT リ Sum"i 
RETUFH 





ー15+" ロ PS 
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かみ ら ど じ ヘ プロ リグ ラム の 親 が で きる 更 





PC 寺 拉 ブフ ログラム 


大 垣 泰 二 





写真 1 MZ で 作っ た カセ ッ ト ・ テ ー プ が , 即 PC に か け 
られ る よう に な る . 

最近 , 近く に 住む 友人 が POC-800! を 買い まし た . この 友 
人 は オセ ロ が 大 変 好き で , し か も 強い の で す . そこ で , 我 
が MZ で 走っ て いる 強い オセ ロ ・ プ ログ ラム (機械 語 ) を 
PC に 移植 し よう と 思い , 考え 始め た の が 本 プロ グラ ム で す . 

MZ と PC は CPU が 同じ Z80 で すか ら , |!/O 以 外 の プロ グラ 
ム 本 体 の アル ゴリ ズム は 共通 に 使え , プロ グラ ム が アセ ン 
プラ で 書か れ て いれ ば 比較 的 簡単 に 移植 で きま す . 

な お , この プロ グラ ム は MZ の シス テム ・ プ ログ ラム 
(エディ タ , アセ ンプ ラ , etc.) を 持っ て いな い 人 に は 意 
味 が あり ませ ん . 機械 語 で 打ち 込む の な ら 直 接 PC に 打ち 








込ん だ 方 が 速い か ら で す . 
ーー ーー ーー の ーー ーー 
プロ グラ ム の 役割 図 1 MZ の シス テム ・ プ ログ ラム と 本 プロ グラ ム で 
PC 用 テー プ を 作る まで て で .. 
この プロ グラ ム は 図 1 の よう に , MZ の シス テム ・ プ ブロ 


グラ ム で 開発 され た PC 用 の MZ 機 械 語 プ ログ ラム ・ テ ー 
プ を ソフ トウ ェ ア だ け で , 正確 に は , 外 付 け ハ ー ド ウェ ア 
な し の 標準 状 備 ど だ け で , PC が 直接 読み 込め る テー プ に 変 







を 6 2 こ E と (PC 用 プロ グラ ム ) 
換 す る た め の プ ログ ラム で す . ee 
も ちろ ん 元 に な る プロ グラ ム は , PC の ハー ド , ソフ ト , 
つま り V-RAM エリ ア , キー ボー ド ・ サ ブル ー チ ン な どの 
シス テム ・ サ ブルー チン , その 他 を 充分 考慮 し て 作ら れ て は 
リロ ケー タプ ル 


いな けれ ば な り ま せん . 

アセ ンプ ブル の 各 過 程 は あたかも MZ の テー プ が 直接 PC 
の カセ ッ ト レ コー ダ か ら ロ ー ド で きる よう な つも り で 行 な 
い 。 最終 的 に 目的 プロ グラ ム を 作成 し ます . た だ し , PC 
の 機械 語 プ ログ ラム は MZ 上 で (当然 の こと な が ら ) デバ 
ッ グ する こと が で きま せん . 

そこ で , PC 用 と MZ 用 の 同じ 働き を する 1/O サブ ルー 
チン な ど を プ ブロッ ク 化 し て お き , MZ 用 の プロ グラ ム を 充 
分 デバ ッ グ し た 上 で この 1/O サ プル ー チ ン ・ プ ロック を PC 
用 の に 取り 突 える の が 一 番 確 実 で 良い 方 法 だ と 思い ます . 9 回 詳 (MEISMOTI 
さて, この よう に し て 得 ら れ た 目的 プロ グラ ム は , も ちろ II 
ん この まま で は 記録 方 式 も デー タ ・ フ ォ ー マ ッ ト も 異な る 
の で PC は 読み 込ん で くれ ませ ん . そこ で 本 プロ グラ ム の 
登場 で す . この プロ グラ ム を 通す こと に より , MZ の テー 


プ は 同じ 内 容 の PC 用 機械 語 テ ー プ に 変換 きれ 。 PC に ロ PC の テー ブ に つい て 
ー ド する こと が で きま す . 
PC の 機械 語 テ ー プ に つい て , 資料 と 実験 で わか っ た こ 


と を 説明 し ます 


バイナリー ファ イル 


MZ-PC テー ブフ 変 換 
プロ グラ 次 
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図 2 PC テー プ の フォ ー マ ッ ト 








ベッド フロック ea2082 EN ソウ 
サーター 部 区 切り ヨー ド 区 切り コー ド 


K ロー ド 先 頭 番地 』 チ ェ ッ ク 24 中 ジ 沼 
ー ク 連続 3 A の デー 
2 具 員 上 仁 | 人 MK 




















の に タッ 日 ら エン ド ・ ブ ロッ ク e 区 切り コー ド は 3AH 
ーーーーーーーーーーーーーーー ン ー ング 、 ぁ プ ロック ・ バ イト 数 は 最大 FFH 
に SI チェ ッ ク ・ サ ム は 3 (区 切り コー ド ) 
。 = プ エ ポ ン 以後 放 エ ツク サム デ ニ タタ ま (① の 
AM 合計 が 0 に な る よう に 計算 する . 
テー プ に 記録 きれ て いる 信号 は . 図 3 600 ポ ボー 信号 1/2 サ イク ル の 時 間 と クロ ッ ク 数 
⑯ 記 録 方 式 は FSK, スピ ー ド は 600 ボ ー 
@ ス ペー ス は 1.200Hz2 サ イク ル 002 の 
マー ク は 2.400Hz4 サ イク ル 0 
の テー クタ は 8 ビッ ト , 下位 の ビッ ト か ら 送 出さ れる. 92E2202h が の 
ES m 2,400Hz 4 サイ クル 
例 ス トップ 4 お だ (0 弱 隊 人 2 マー ク で 符 208.3cs 1/2 サ イク ルー208.3s 
な っ た の で , どちら か は 不明 ) NN 417 ク ロッ ク 


の よう に な っ て お り , いわ ゆる 倍速 の カン サス シテ ィ ・ ス 
タン グー!3 枝 で す 、 
デー タ の フォ ー マ ッ ト は 図 2 の よう に ., 
ゆ リータ 部 (マー ク の 連続 4 秒間 ) 
ヘッ ド ・ ブ プ ブロック 
デー タ ・ ブ ロッ ク (1 個 以 上 ) 
⑳ エ ンド ・ ブ ロッ ク 写真 2 M 選 用 オセ ロ ・ ゲ ー ム を PC に 移植 し , 対戦 させ 
の 4 つの 部 分 か ら な り , 各 プ ロック は 区 切り コー ド 3AH た 例 
で 区 切ら れ て いま す . ボ オ も 7" -4 ま を 「 
ヘッ ド ・ ブ ロッ ク は メモ リ の ロー ド ・ エ リア 先頭 番地 が @= の 29 0=35 
上位 8 ビッ ト , 下位 8 ビッ ト の 順に 書か れ , 最後 に 前 2 バ 了 アナタ n 人 @ ス 
イト と の 合計 が 00H ( 桁 上 が り は 無視 ) に な る よう に , チ 4 オー 
ェ ッ クサ ム ・ デ ー タ 1 バイ ト が つけ られ ます . 
次 の デー タ ・ ブ ロック は 区 切り コー ド の 直後 に まず , 1 29 ) 39 
バイ ト の プロ ッ ク ・ バ イト 数 デー タ が 書か れ ま す . これ は , す ^ モ オジ ) ッ 9 
その ブロック に 書か れ た だ 正味 デー タ の バイ ト 数 を 表わし , て 9 ML(V/N) 研 
最小 01H 一 最 大 FEFH に な り ま す . H8 


人 ロッ 2 
1 クロ ッ ク ー0.5S 





続い て 正味 の デー タ が ブロ ッ ク ・ バ イト 数 だ け 書 か れ , 
最後 に プ ブロック ・ バ イト 数 デー タ を 含め た だ た, その ブロック 096 


BCcCpEFGH 
0000000 
0o000000 
0 0 @ @ @ OO 
0e@@000 
0 @0@OO 
000@0WO 
@ @ @ @9 @00 
の 6 @G @ @ @ 0 





の 全 デ ー タ と の 合計 が 00H (同じ く 桁 上 が り 無 視 ) に な る 
よう に チェ ッ ク サ ム ・ デ ー タ 1 バイ ト が つけ られ ます . 
セー プ さ れ た デー タ が FFH バイ ト ま で な ら こ れ だ け で 写真 3 写真 2 は MZ, こち ら は PC で す . 結果 は …… 
す が , それ 以上 の 場合 は この 後に 必要 な 回 数 だ け こ の デー 示 オ セロ 7*ー く ま 
タ ・ ブ ロッ ク が 繰り 返さ れ ま す . | に と う - 細 細 (に: 
最後 の エン ド ・ プ ロック は 単に 3AH, 00H, 00H と 3 バ 
ィ イト 書か れ て いる だ け で す . 


09 = IO mm 
1 バイ ト ・ テ ー プ ライ ト 
* ルー チン 
以上 の こと が ら を 満足 させ る テー プ を 作れ ば , PC は 読 
み 込 ん で くれ ます が , これ を 外人 付け ハー ド な し で や る の は 


な か な か 大 変 で す . 
MZ の ハー ド と ソフ ト を 良く 調べ た 人 は わか る と 思い ま 





アル アグ OZ の 
サド ー る オー パー 


9 9 の 


本 9 DO で ご OH 年 


アナ ジェン 3 肖 ま 

マ ア マ ア ニー タナ 
マタ 生生 (ツン ZN) マ 
に 】 


作 且 で C で DEF 
0OD09090000 
和 WOOO0O00GQO 
全 〇 0 参 等 参 
e Dee eo 
得 0 参 基 0 参 
全 0 0 0 き O 
人 の 人 
人 る 人 人 


参天 OO O 
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サブ ルー チン 内 動作 


スタ ー ト ・ ビ ピッ ト の 最初 の 忘 サ イク ル 


前 の | バイ ト 出 力 トミ バレ 5 ツン どっ 5) 


サ プ ブルー チン 


メイ ン ・ ル ー チ ン 動 作 


節 


Ik16: 本 当選 き /] 
レシ シオ)[ 1 


(デー タ の 用 意 ,。 チ ェ ッ ク ・ サ ム 計 算 な ど ) 





す が , MZ の 内 蔵 カ セッ ト ・ テ レコ の REC 入力 は 8255 の PC 
1 (ポー ト C の ビッ ト 1) に 接続 きれ て いま す . し た が っ 
て , この FC1 の 出力 を 図 3 の よう な クロ ッ ク 間 隔 で 反転 
させ て や れ ば , 必要 な 信号 が 得 ら れる こと に な り 9 

本 プロ グラ ム の 中 心 と な る , 1 バイト ・ テ ー プ ライ ト ・ 
サ プ ブル ー チ ン を 使っ て , この 辺 の と ころ を 説明 し て み ま し 
ょ う . 図 4 一 図 6 を 見 な が ら 読ん で くだ さい . 

この サブ プ ル ー チ ン が 呼ば れる 前 に , A', B, C レ ジス タ 
の 3 つが 正しく セ モット され て いな けれ ば な り ま : テ IA" 
レジ スタ (A レ ジス タ の 裏 レ ジス タ ) に は 02H ま た は 03H 
これ は リー ダー 部 の 最後 に モッ ト さ れ た も の が ,。 その まま 
残っ て いま す . C レ ジス タ に は 出力 する デー タ ,。 B レ ジス 
タ に は タイ ミン グ 調 整 の た め の 値 を 入れ ます . 

サブ プ ブルー チン が CALL さ れる と 表 衣 の レジ スタ が 変換 さ 
れ ま す が , BC レジ スタ は 同じ 値 に モ セット され ます . 次 に , 
スタ ー ト ・ ビ ッ ト の サイ クル ・ カ ウン タ が 4 に セッ ト さ れ 
ます . ここ で 注意 し た い の は , この カウ ンタ が 1 サイ クル 
ご と に 減る の で は な く , 細 サ イク ル ご と に 一 1 する こと で 
す . 

次 に タイ ミン グ 調 整 の た め の 小 ルー プ に 入り ます が 。 こ 
こ で 先 に モッ ト さ れ た B レ ジス タ の 値 が 効い て きま す . 図 
6 で わか る と お り , サブ プ ブルー チン が スタ ー ト する の は 時 剛 
的 に スタ ー ト ・ ビ ピット の 最初 の 學 サ イク ル の 中 に な る の で , 
この サブルーチン で の 最初 の 出力 反転 は 直前 の 出力 反転 か 
ら 数 えて 834 クロ ッ ク 後 で な けれ ば な り に 3 と 2 の 3 
この 小 ル ー プ で 時 間 調 整 す る わけ で す 

DJNZ 命 令 は B 一 Bー1 の 後 , B=0 で ジャ ンプ する と き 
13 ク ロッ ク , B= ニ 0 で ジャ ンプ し な いと き 8 クロ ッ ク を 使 
う の で , 自分 自身 に ジャ ンプ する 命令 で は , 13 (B 一 1) 
+8 の クロ ッ ク を 消費 し ます . し た が っ て , この サブ ルー 
チン が CALL さ れ て か ら 最 初 の 出力 反転 まで は . 他 の 命令 
の クロ ッ ク 数 と 合わ せ て 13 (B 一 1) +76 ク ロッ ク と な り , 
B レ ジス タ の 値 で 13 ク ロッ ク ご と の 調整 が で きま す . 

以下 , サ プ ブルー チン 内 で は B レ ジス タ は タイ ミン グ 調 整 だ 
け に 使い 、 他 の 目的 に は 使い ませ ん . 13 ク ロッ ク 以 下 の タ 
イミ ング 調整 に は プロ グラ ム 上 意味 の な い 命令 を 使用 し て 
いま す ( 図 5 の 中 で 『 タ イミ ング 』 と 注記 し て ある も の ). 

さて , 次 に 出力 反転 の 方 法 で す が , A レ ジス タ に 入っ て 
いる 02H ま た は 03H は 8255 の コン トロ ー ル ・ ポ ー ト ($E0 


| 
IN 


図 4 1 バイ ト テー プラ イト ・ サ プ ブルー チン の フロ ー チ ャ ー ト 






























サイ クル ・ カ ウン ター4 5) 
4 
タ 
| 
ト 
ビ ー y@s 
ト 1 レイ クル カウ ンタ ス 
サイ クル ・ カ ウン タ 一 | タク ト 
サ ・ 0 
2 ヒ - 2 
ク ウ タイ ミン グ 調 整 ビ 
ル ト 必 
ル 人 出力 反転 ト 
| サ 
4 シッ 8 イ 
サイ クル ・ カ ウン ター| ク 
ル 


ー で ・ で ざ ユ 寺 テー 


3 











03) に 出力 する PC 1 ビッ ト の リセ ッ ト 命 令 (02H) と セ 
ッ ト 命 令 (03H) で す . 

信 レ ジス タ に は 常に 直前 に 出力 し た ビッ ト ・ コ ント ロー 
ル 命 令 が 残っ て いる の で , A レ ジス タ の Do ビッ ト を 反転 
(XOR 1 命令 を 実行 ) させ て , $E003 番地 に 出力 すれ ば , 
PC 1 ビッ ト は その た びに 反転 する こと に な り ま す . 


』O 


図 5 1 バイ ト テー プラ イト ・ サ プ ブルー チ ン の クロ ッ ク 計 算 
























































EX AF, AP” 4 
PUSH BC 11 
EXX ん 4 
POP BC ⑩ 10 の 
LD D,4 の ⑦ 7 タ 
DJNZ TLOOP1 ⑬ 注 1 7 7 5 王 | 
JER +21 タイ ミン グ ⑬ 1 2 1 2 ト 
XOR 1 ⑦ 7 7 還 
に ご LD (EO03HH).A ⑬ 13 3 
出 カ 反転 一生 0E] ライ ィ ミンク ④ 4 4 6 
LD B,60 の ⑦ 7 7 
DEC D ④ 4 4 ク 
JR NZ. TLOOP1 ( 7 2 ル 
BDD 選 501 タイ ミン グ ⑭ 1 4 ル 
LD B,25 ⑦ 7 り 
DTP 6 の 7 
LD D,4 の ⑦ 7 ィ 7 一 
LD E,0 ⑦ 7 7 
RRC C ⑧ 8 8 
RL E 8⑧ 8 8 
TLOOP2 DJNZ TLOOP2 ⑬ 320 7 
XOR E ④ 4 4 
ビ ピット =1 な ら 。 LD (EO03H).A ⑬ 3 デ 
出力 反転 5 ] ⑨ 9 | 
SAT イー (6) 9 ク 
LD B,29 ⑦ の ラ 
TLOOP3 DJNZ TLOOP3 ⑬ (13 x28 +8) ト 
XOR 1 の ⑦ 了 
串 力 反転 - エ PCE003H).A ③ 1 陵 T 1 4 7 クロ ッ ク イィ 
基 科 3 全 ] 。。 ユン ッ 9 9 9 ク 
HADgI IA 」 3 ⑨ 9 9 ル 
LD B,28 ⑦ 7 7 和 
DEC D ④ 4 4 . 
JR NZ,TLOOP2 ⑬ 7 計ら (区 
NOP | タイ ミン グ ④ 4 
LD B,24 ⑦ 7 
DEC L ④ 4 
JR NZ,DTLOOP ⑫ 7 を 客 6 ここ] 
INC B ④ 4 
LD D,1e。 ⑦ 7 
TLOOP4 DJNZ TLOOP4 3 320 ス 
NOP ] 9 ④ 4 ト 
NOE | の ペッ ング ④ 4 に 
XOR 1 ⑦ 7 も 
en LD (EO03H),.A ⑬ 人 1 
出力 反転 LD 是 . 0! タイミング の 7 ト 
B, 28 の ⑦ ( サ 
DEC D の イ 
JR NZ,.TLOOE4 (2 7 8 ク 
EXX ④ 4 2 
EX AF, AF"' ④ 4 小 
RET ⑩ 10 
@A レ ジス タ に は PC1 の コン トロ ー ル ・ コ ー ド が 入っ て いる . 注 |) 13(B 一 |) 十 8 注 2) 13X59 十 8 注 3) 13X24 十 8 注 4) 13 
@ 引 き 炒 C= ニ データ, B= タ イミ ング ・ カ ウン ト X23 十 8 注 5) 13X27 十 8 注 6) 13X24 十 8 注 7) 13X27 十 8 
@13(B 一 1) +76 ク ロッ ク , 前 の 出力 反転 か ら 数 えて 834 ク ロッ ク に 合わ せる. 

この よう に し て タイ ミン グ を 取り な が ら , 834 クロ ッ ク ます 
ご と の 出力 反転 を 4 回 繰り 返せ ぱげ. スタ ー ト ・ ビ ッ ト (12 最後 に 417 クロ ッ ク の 出力 反転 を 16 回 繰り 返し スト ッ プ ・ 
00Hz2 サイ クル ) が で き 上 が り ま す . ビッ ト x2 を 作り ます . 

次 の デー タ ・ ビ ッ ト 出 力 で も , 同じ よう に タイ ミン グ 調 な お , 最後 の 出力 反転 の 後 リ ター ン す る まで に 43 ク ロッ 
整 し な が ら 出 力 反転 を 繰り 返せ ば 良い の で す が , ここ で は ク が ある の で , これ は 次 の タイ ミン グ 計 算 の と き , 加算 し 
デー タ ・ ビ ピット の 値 で 反転 の 数 が 2 倍 に な る の で , 834 ク な けれ ば な り ま せん . と 
ロッ ク ご と の 出力 反転 の ちょ うど 中 間 に , 出力 する ビッ ト 
が 1 の と き 反 転 し , 0 の と き 反 転 し な い 命令 を 入れ て お き AoMoRI 
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写真 4 変換 プロ グラ ム で PC 用 テー プ を 作る 過程 


TTOR SP-1982 
っ 


J す -2" ラ セッ ト リナ CR ラ オリ サナ 25*9 イ 


財 SNC VS.@ 


ING 人 


レコ ラマ ス 1)? 
ンー・ デ し 92% 


ラ オッ リナ 25* す イ 


プロ グラ ム の 説明 

さて や っ と プロ グラ ム 全 体 の 説明 で す が !) ここ まで くれ 

ば 話 は 簡単 で す . 図 7 の フロ ー チ ャ ー ト の よう に , MZ の 
テー プ を パッ ファ ・ エ リア に 読み 込ん で , PC フォ ー マ ッ 
ト で セー ブ す れ ば 良い の で す . 他 の こと は , この プロ グラ 
ム を 使い や すく する た め の 工 夫 で す 

詳し く は , 最後 に 載っ て いる プロ グラ ム ・ リ スト を 読ん 
で くだ さい . プロ グラ ム の スタ ー ト は $3000 番地 で す . な 
お , リロ ケー ト す る 場合 、 変更 する ワー キン グ ・ エ リア は 
前 の 方 に まとめ て あり ます . この 部 分 だ け 変 えれ ば 充分 で 
す . 

MZ テ ー プ の フォ ー マ ッ ト に つい て は まだ わか ら な いこ 
と が 多い の で , 詳し く は 書き ませ ん . プロ グラ ム ど お り に 
使っ て くだ さい .。 PC テー プ '・ ラ イン に つい て は フロ ー チ 
ャ ー ト に し て お いた の で 前 出 の PC テー プ 説 明 と 共に 読ん 
で くだ さい 。 な お 。 プロ グラ ム ・ リ スト 中 で も PC テー ブフ 
ライ ト 中 は B レ ジス タ は タイ ミン グ 調 整 だ け に 使い ます . 
まだ た ,『 タ イミ ング 』 と コメ ント され て いる 命令 も すべ で タタ 
イミ ング 調整 用 で す . MM 


健 し 1 方 EH( の 7E 


最後 に 本 プロ グラ ム の 使い 方 を 説明 し ます . スタ ー ト さ 
ど ま 33 


せる 





** MZ-PC テー 
玉 玉 
MZ ノ テー プ ヲ セッ シテ CR ヲ ラ オシ テ クダ サイ 


レム コン イレ ルン 議 と レン ペ 







と 表示 され る の で , 

は テム ・ ブ ログ ラム で 作 - 
プロ グラ ム ・ テ ー プ を モッ ト し て CR 
る だ 。 


1 PLAY 


と 出る の で , カセ モッ ト の PLAY ボタ ン を 押し ます . セー プ 
され て いる ファ イル を 見 つけ る と 


PC 用 の マシ ン 語 
を 押し ます . す 


FOUND ※ メ ※※※ 


所 67 パ p 記 人 @24D 馬 | | 














と ロー ド す る か 耕 か 開い て きま す . この と き , [N] を 皇 
せ ば 次 の ファ イル を 提 し , [Y] を 押せ ば 本 体 の デー タ を 
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図 7 全体 の フロ ー チ ャ ー ト 
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(残り パイ ト ・ レ ジス タ ) 
ー( パ イト ・ カ ウン タ ) 

















ロー ド し 始め 


LOADING ※ メ メメ 


の メッ セー ジ が で ます . ロー ド が 終わ る と , 


PC ノ ロー ド エ リ ア へ ヘム へ ヘー 〇 〇 OO 


PC ノ テー プ ヲ セッ ト シテ CR ラ オシ テ クダ サイ . 





と 表示 され ます . PC の ロー ド ・ ア ドレ ス は リロ ケー タプ 
ルレ ・ ロ ー ダ で 目的 プロ グラ ム を セー プ ブ す る 生き 二 有 あ まつ で 
し まい , 本 プロ グラ ム で は その 情報 を コピ ー す る だ け で 変 


を る で (は で きま 共 ん 。 
さて PC に ロー ド す る た め の カ セッ ト を MZ の カセ モッ ト ・ 
レコ ー ダ に セッ ト し て [CR| を 押す と , 





! RECORD.PLAY 





レコ ー ド と PLAY ボタ ン を 提 


の メッ セー ジ が 出る 
GES 


ーー 
いっ 





MAsIINKGI 


と PC フォ ー マ ッ ト で セー プ が 始ま り ま す . 終わ る と 。 


PC テマ プ セー プ オ ワ リ . ツ ギ ニ ナニ ラ シ マ スカ ? 
モウ 1 ポン オナ ジ PC テ ー プ ヲ ツク ル 


ンー 人 ルン ニニ レヒ 全 に ピ ペ 
モニ ター へ モ ド ル 





1、 2、 3 の 内 1 つ を 


0 
あと が き ぎ 


本 プロ グラ ム は まだ で きた て で , 充分 に 使い 込ん を で いな 
い ぃ い の で , まだ 不備 な 点 が ある か も し れ ま せん . 何 か 気 が つ 
いた こと が あっ た ら , LO 編集 部 まで 一 報 く だ さい . 

今回 は , まだ PC テー プ の 読み 込み が ALL ソフ ト 化 し 
て いな い の で (FSK イ ンタ ー フ ェ イ ス を 外 付 けし た 場合 の 
プロ グラ ム は 走っ て いま す ), 書き 込ん を だ PC テー プ を ベリ 
ファ イ で きま せん . 次 に は これ に 挑戦 し .。 さら に 将来 は M 
Z み PC の BASIC テキ スト 変換 プロ グラ ム に も 挑戦 し て み 
だ いと 思い ます . 





MZーPC テ ー プ 変換 プロ グラ ム ・ リ スト 








と 出る の で , 選ん で 数 字 の キー を 押し て 
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MZ 一 PC テー プ 変 換 プロ グラ ム ・ リ スト 
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MZPC テ ー プ 変換 プロ グラ ム ・ リ スト 
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MZ 一 PC テー プ 変 換 プロ グラ ム ・ リ スト 
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SAVE ミ ス 数 済 法 


世田谷 マイ コン クラ ブ 


PC-8001 で は , SAVE 時 に うっ か り C 
LOAD と 入力 ミス し た り , 病 走 時 R/S を 
か ける と , プロ グラ ム が 消え て し まう こと 
に な っ て いま す が , 一 般 に プロ グラ ム が ク 
リア され た 状態 は 。 エ ンド ・ マ ー ク や , ワ 
ー キ ング ・ メ モリ の デー タ の み が 変 化す る 
だ け の ケー ス が 多く , PC の 場合 も この 例 
に 漏れ ず 、 次 の よう な 手順 に よっ て 再生 で 
きま す . 


プロ グラ ム は , メモ リ が 16KB の 場合 
C020 番 地 か ら 図 1 の よう に 入っ て いま す . 
し た が っ て , 原理 的 に は 順 を 追っ て いけ 
ば , PRG・END を 見 付け る こと は 容易 
で すし , ライ ン の END マ ー ク が “00” に 
な っ て いる の で .,“00? 附近 を 探し て いけ ば 
より 容易 で す . 


昭和 一 桁 


の の 月 = 関 Np ル / 


END ア ドレ ス が 味 付 か っ た ら , 真 の も 
の か 確認 し ます . それ に は , ライ ン ・ ナ ン 
バー を 確認 する の が 確実 で す . 


た と え そば, 図 2 の よう な 場合 が あり ます . 


プロ グラ ム の 最終 ライ ン が 780 だ っ た と 
する と , 一 見 、C5BC か ら が 最終 ライ ン 
の よう に 見 えま す が 。 ライ ン ・ ナ ン バ パー の 
06B8 を 逆算 し て みる と , 

(6 X256 十 BX16 二 8) 1720 
と な り 。C5BC か ら は ,。 いわ ゆる ゴミ で 
ある こと が わか り ま す . そこ で , その 前 の C 
5 7E を 調べ て みる と , 

(3 X256 十 12) =780 
で 。 ズバ リー 致し 。C57E か ら C5BB 
A ま で が , 最終 ライ ン に 当たる こと が わか 
り ま し た の で C5BC か ら 2 一 3 個 00 


に 書き 換え て お きま す . 


ワー キン グ ・ メ モリ の 修正 


これ か ら が 苦心 し て 探し 出し た , ブログ 
ラム 関係 の ワー キン グ ・ メ モリ で , 図 3 の 
と お り 修正 し て くだ さい . 


以上 で , ゴミ の 山 に な りか けた 労作 も 見 
事 再 生 で きる は ず で す が , 修正 が 不 完全 の 
まま エディ ッ ト や RUN さ せる と , 完全 に 
ゴミ の 山 と な りか ね な い の で , 修正 が 終わ 
っ た ら , まず ,、CSAVE し て お きま し ょ う . 

それ と , 大 きい プロ グラ ム を 入れ る 前 に , 
1,。 2 行 の サン デル ・ プ ログ ラム を 入れ , 
MON に よっ て メモ リ 関 係 を 良く 調べ て お 
く こ と を お 勧め し ます . 

な お , 本 件 に 関し の デー タ な ど あ 
れ ば , ぜひ , 編集 部 まで お 寄せ くだ さい . 


図 1 C020 から の 内 容 





4 5C0 
0A00 


次 の し #( ラ イン ・ ナ ン バ ー) の アド レス 
L 寺 で この 場合 は , 10 行 を 示し て いる 
図 2 真 の END か を 確認 する 
007EC5F802 
! し # せ 76 
00BCC50C03 
C57E し 780 





図 3 ワー キン グ ・ メ モリ の 修正 
FIFA だ 0- ド ブロ グ ス A 人 5 本 埋 ヴ イジ の アド ウ 生 





EFA2 : ( 先 の 例 で は , 7EC5) 
EFA4 


EFA6 21C0O 
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0000 に 


し 1720 
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風間 卓上 有 上 UUUUU 有 肌身 岬 四 


『 マ イコ ン を 買っ て 何 に 使う の ? 」 こ の 意地 悪 な 。 し か 
も 極め て 的 を 得 た 鋭い 質問 に 対し て , 何と 答え た ら よ いで 
し ょ うか . 世 の ナ イコ ン 亭 主 族 は , 将来 マイ コン ・ ウ イド 
ウ に な る か も 知れ な い 女 房 典 が , すん な り と 納得 し て 財布 
の ひも を ゆる め る 解答 を 待ち 望ん で いま す 

私 の 場合 , 『 マ イコ ン を 子供 の 学習 教材 に 使う 』 と いっ 
た 大 義 名 分 を 立て て , ”80 年 4 月 に PC-8001 を 購入 し まし た 
が , 雑誌 や 市 販 の プロ グラ ム 集 は ゲー ム ば か り で す . 

そこ で , 長男 に ABC を 教え る べく , ABC の 大 玉 字 を 
三 作り 始め た の が 5 月 の 連休 の こと で し た . 1 六 字 ずつ 形 を 放 
作っ て は , 家族 の 意見 を きき 修正 する 作業 を 繰り 返し , ひ 三 
ら が な の 『 あ いう え お 』 ま で 約 100 個 の 壇 字 が で き 上 が っ 
た の が 6 月 初旬 で し た . 
さっ そく , PC を 購入 し た 『 フ ルム ラ エ ルコ ン 。』 へ 行き 
デモ 用 に 展示 し て も らい つつ 協力 し て プロ グラ ム を 改良 す 
る こと 数 回 に 及び , 6 月 末 に は 一 応 の 完成 を み ま し た . 

この 時 点 で 投稿 し よう と 思っ た の で す が , し ば らく 使っ 
て 使い や すい よう に 直し て 発表 する べく , 試用 期間 を お き 
まし た . 使っ つて いる うち に 次 々 と アイ デア が 浮か び , 以後 
2 回 の 大 改造 で , 収録 文字 数 は 410 廊 字 と 増え , 小学 校 1 
年 生か ら 3 年 生 半 ば まで の 漢字 を 持つ こと が で きる よう に 
な り ま し た . 

この プロ グラ ム は , ナイ コン or マイ コン 亭主 族 の た め に 
三 子供 の 教育 権 を TV コマ ー シ ャ ル や ママ ゴン の 手 か ら 父 親 
三 の 手 に 取り 戻す 手段 と し て 大 い に 役立つ と 信じ ます . 

2 才 か ら 小 学生 まで , その 発達 段階 に 応じ て 1, 2, 3 
ABC か ら WORD, あい うえ お , アイ ウエ オ , ひら が な に 
よる 文章 , 漢字 の 読み 方 , 漢字 まじ り 廊 の 綴り 方 まで, 
総合 的 語学 学習 プロ グラ ム で す . 

プリ ンタ (TP-80/MP-80) を 接続 すれ ば , 画面 の 壇 字 
文章 を その まま プリ ント で きま す . 大 き な キ ャ ラク タ ・ グ 
ラフ ィ ッ ク 文 字 で , 年 賀 状 や 著 中 見 舞 の プリ ント が で きる 
よう に 工夫 され て いま す . 記 

また , 時 報 付 き の デ ジタル 時 計 も 内 蔵 さ れ て いま す . 
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| | フロ グラ ム の 入力 に つい て 


本 プロ グラ ム に は 32K RAM が 必要 で す . まず , 800 行 か 
ら 920 行 ま で 打ち 込ん で くだ さい . 特に マシ ン 語 デー タ と 
USR 関 数 の 番地 は 決し て ミス が あっ て は な り ま せん . よ く 
確か め て , 間違い が な か っ た ら RUN さ せ て くだ さい . OK が 
出れ ば , 


し 





HUSR(0):?A$ 








を クジ 1 代 ピ ラッ ク i ド oe モー4 ド Ce だ 人 MI( 寺 Gi の 0CR く 273) さ IM 

画面 上 に ASCITI ナ ン バ ー32 か ら 247 まで の 文字 が 印刷 さ 
れれ ば 正常 で す . OK が で な いと き は , 初め か ら 入 れ 直 し 
た 方 が 早い で し ょ う (し た が っ て ,RUN さ せる 前 に テー プ に 
取っ た 方 が 良い で し ょ う ). 

OK が 出 た ら , 次 に ダイ レク ト ・ モ ー ド で , 





USRI1(O):FOR Kー0 TO 21:2A122(K),:N EXT 





を 実行 し て くだ さい . 画面 に 0 以外 の 数 字 が 22 個 表 わ れ , 
OK が 出れ ば 2 つの USR 関 数 は 正常 で す . 

次 に 445 行 と 446 行 を 打ち 込ん で くだ さい . RUN さ せる と 

*DATA プ ン ナ ン ギ ョ ウメ カラ ?? と 尋ね て くる の で ,32 
を 入力 し て くだ さい . 32 行 か ら 54 行 まで の DATA 文 が 画面 
に プリ ント され , カー ソル が 32 行 で 点 減 す る の で , [リタ ー 
ン | キー を 押し 続け て くだ さい . 

入力 が 済ん だ ら , 再び RUN さ せ て 55 を 入力 し て 77 行 ま 
で DATA 文 を 入力 し て くだ さい . 次 々 に RUN き させ て 446 行 
まで 入力 が 済む と , DATA 文 作成 プロ グラ ム は 自動 的 に 消 
減 し て し まい ます . 

次 に 940 行か ら 1980 行 ま で 一 気 に 打 ち 込 ん で くだ さい . 
この 段階 で は 1 ユー 4 の メニ ュー を 呼び 出し て も 小さ な 数 字 
が 表 わ れ る だ け で す が , 動作 の 確認 は で きま す . 

さて , いよ いよ 黄 関 で す . 文字 を 作っ て くだ さい . 
作り 方 に 3 つの 方 法 が あり ます . 


婦 字 の 


その 1 
メニ ュー 9 を 呼び 出し て , カー ソル 移動 キー と グラ フィ 
ッ ク ・ キ ー を 自由 に あや つっ て , あな た 好み の 廊 字 を 作る . 


0 





キャ ラク タ 例 (DATA 廊 に 収録 され て いる 全 キ ャ ラク タ を 印字 ) 





Mc TTF RUX 移 四国 きこ 生 作り ニン euPSNY GO へ >3P 時 。 
相葉 時 本国 : 本 9 写本 垢 : wiR 下 SS に WP SN 
2 際 を こ 7 こ 、 ン ー<2 前 時 
HK 電 
HINOKNSTSW FR 
BR 
RE 人 < 第 計り PE TE デジ で LR 馬 に 


8 写 meH 細 を 時 | 古 選 コト ント シラ エ 6g 好 4 
ご rdi 2 人 HEH ロ 李 MRKN UNEKKMRIINS プ で DUHYTOIo mm 


ビュ ョ た > 


で す び 昌 サ 9 TH つて 仙人 T RK INHHPIYN 電 HH 

ーー せ べ 幸 上 チイ ブン て だ 性 バ 明 FJTS で AI LNTu 。 
へ ー ぐ mW 二村 皿 )EE TNIKPKNT ロロ 0 
TAKSTT_ つう 午 NRY : ST で InnETB We jk 療 寺 
rhODmEXH エ ンコ 丘 窟 PB ド FTTHNy nk 
OF <・DJJIRK 愉 - 田 求 誕 キー 嘱 琶 huu トン キー 計 8 X く RF。 








SF 1T- は 所 本 トー(] 入 科す SG は よ ド く 層 SB 
= : rrLDRmHC 染 財 。 : エ ロン 人 町 本 所 時 王 ( m て IEYTNTTg 拉 本 較 
= < 十 民 J い RT 半 BD 
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,O 


時 間 は か か り ま す が , 創造 の 楽し き ( ? ) が あり ます . 


文字 一 覧 表 と リス ト を 見 な が ら , 32 行 か ら 444 行 ま で の 


DATA 文 の 中 に , グラ フィ ッ ク ・ キ ー て で 入力 する 方 法 で す . 


多少 の ずれ は メニ ュー9 を 呼ん で 修正 し ます . 


最も 簡単 で 速い 方 法 で す . \3,500 也 を 出し て カセ モット ・ 
サー ビス を 買う こと で す . あな た の カセ ッ ト と テー プ の 相 
性 が 悪く , cloqd が うま く 行 か な いと き は , オー ディ オ 用 
の カセ ッ ト ・ デ ッ キ を 使う と うま く 行 く と 思い ます . 

6 箇月 か か っ て 作り あげ た 410 文字 の デー タ で す . 考え 
方 に よっ て は 安 す ぎる と 思い ます . 


き て , 朗 字 が で きた ら 2000 行 以後 を 打ち 込ん で くだ さい . 


3000 一 3060 行 の 入力 の 方 法 は , まず 3070 行 を 入力 し て , 行 
番号 3000 一 3060 す べ て を 3070 行 と 同じ よう に し ます . 数 字 


の GaO と まり で も まで ば はい 09 二 ま : で が 9W 区 です > 


数 字 の 上 に カタ カナ , また は 英 小文字 で 単語 を 綴っ て 
くだ さい . あな た の お 子 様 の 名 前 や 友達 の 名 前 や 食べ 物 , 
乗物 な ど , 幼児 の 関心 の 高い 単語 が 良い で し ょ う . ある い 
は 絵本 の 廊 曹 を その まま 入れ る の も 良い と 思い ます . 


| | プロ グラ ム の 解説 


この プロ グラ ム の 大 き な を 特色 は , デー タ を 固定 長 の レ ュ 
ー ド に ファ イル し て いる こと で す . こ の ファ イル は BASIC 
で セー プ ブ / ロ ー ド で きる よう に, 本文 プロ グラ ム 中 に DATA 
文 と し て 保管 さき まれ て いま す . デー タ の 所 在 を 明確 に する た 
め , これ ら DATA 文 は すべ て の BASIC プ ログ ラム の 前 に 置 
く 必 要 が あり ます . 

1 廊 字 で 1 つの DATA 廊 を 構成 し , 行 番 号 が その 文字 の 
ASCII ナ ン バ ー に な っ て いま す (255 行 以後 は 行 番号 か ら 
223 を 引い た 数 が ASCII ナ ン バ ー). 

モニ タ で BASIC の DATA 文 の 内 部 を 見 る と , 





HH だ 剖 所 還 4NW8 定 て 下 .122.e ト 十 22 十 00 


ニーuY 





2 番号 DATA 引 放 待 St ロラ ント 作 個 引用 符 2 綱 わ 








の 計 50 バ イト か ら な っ て いま す . 

USR1(J 土 JJ) は 引き 数 (J 二 JJ) を 50 倍 し て &H8026 を 加 
そえ だ た アド レス か ら 43 バ イト の デー タ を 配列 A 1 の へ 転送 す 
る 働き を し ます . 配列 の 指定 は 配列 エリ ア の 先頭 か ら 何 番 
目 と いう 形 で 指定 し て ある の で , プロ グラ ム 中 に 配列 A 1 
よ り 先 に 宣言 され 使う 配列 が あっ て は な り ま せん . 

1980 行 で を HE 9F9 番 地 を 00 に する と , USR1 は 配列 
か ら DATA 廊 へ の 逆転 送 す る 働き を し ます . 

し た が っ て , メニ ュー 9 の 中 で DATA 文 の 書き 換え を 行 
な っ て も , 再度 RUN さ きせ る 必要 は あり ませ ん が , DATA 廊 
が 32 行 か ら 444 行 ま で 揃っ て いな いと き に 逆転 送 を 行なう 
と , 本 体 プ ログ ラム 部 分 が 破壊 され ん る こと が あり ます -. 

USR(0) は BASIC で 書き 方 が 理解 で きま す -. 








FOR KK 三 832 TO 255:A$ 王 AS 十 CHRS(K):N EXT | 





1315 行 の 古 三 USR(0) を 上 記 の よう に 書き 直し て も まっ 
た く 同 様 に 動作 し ます が , BASIC で は 2 秒 か か り ま す . 

ABC プ ログ ラム が で きた て の ころ (50 年 6 月 ) は , 7 
7 で 文字 を 作っ て , 配列 A% (0 一 110, 0 一 25) に 入れ 


て お き , PUT@ す る 直前 に 配列 A 多 か ら A1 へ , FOR 一 
NEXT 文 で 転送 し て いま し た . デー タ の 保存 は 配列 A 多 の 
中 味 の 数 字 を その まま DATA 文 に 転記 し て , プロ グラ ム R 
UN の 直後 に READ 文 で 配列 4 の へ 入れ て いた の で , デー タ 
が 配列 に 入る まで , し ば らく 待た な な けれ ば な り ま せん で し 
だ 

以後 の 2 回 の 大 改造 を 行ない まし た -. 

すなわち , 文字 を 6X7 三 42 キ ャ ラク タ で 作り 替え る と 
と も に , 数 字 の デー タ を スト リン グ ス と し て DATA 文 に す 
る こと で 文字 収録 数 は 200 に な り ま し た . 

次 に , 配列 A の を 使わ な いで DATA 文 か ら 直 接 A 1 へ 
転送 する こと で , 現在 の 412 個 の 廊 字 収録 数 を 達成 し まし 
だ た 、 デミ ニブ 7 ページ ズバ の デー クーク テテ ジウ と と では こ 2 
上 の 省 メ モリ の 方 法 は BASIC の 内 部 構造 か ら み て 考え られ 
な いと 思い ます . 

プロ グラ ム 本 文 に は , REM 文 を 付け て 読み や すい よう に 
し て いま す が , マル チ ・ ス テー トメ ント や IE 一 THEN 一 E 
LSE 文 を 多用 し , で きる 限り 省 メ モリ を 行なっ て いま す . 

1 行 80 文 字 , 白黒 モー ド で プロ グラ ム を 打ち 込む と わか 
りや すい よう に , 1 行 を 80 字 以内 に で きる 限り 押さ えて あ 
り ま す . REM 文 は すべ て 取り 除い て も 動く よう に ,GOTO 
文 な どの 指定 行 に な っ て いま せん . 

REM 文 を 取り 除き , C$ を 減ら せ ば , 廊 字 収録 数 は 50 バ 
イト に つき 1 文字 増やす こと が で きま す が , ?FRE(0) が R 
UN 途中 で 300 バ イト 以上 残っ て いな いと , FOR 一 NEXT ル 
ー プ の 回 転 が 遅 く な る こと が あり ます . 

USR 関 数 は いずれ も 絶対 番地 指定 を 使わ ず に , 乙 80 の 特 
色 を 生か し た 再 配置 可能 な 形式 に な っ て いま す が , USR 関 
数 の アド レス を 変更 し た と き は , 1980 行 の POKE 文 の アド 
レス を 替え る こと を 忘れ な いで くだ さい . 

この プロ グラ ム の も うぅ う 1 つの 特色 は , 各 文 字 に 個 有 の 色 
を 指定 で きる こと で す . 赤 と い う 文 字 が , 緑色 や 黄色 で あ 
っ て は , 効 児 は 何 を 覚え を て いい の か わか り ま せん . 

色 指 定 は 各 廊 字 の DATA 廊 の 最後 の 引用 符 『YY 』 を 色 コ 
ー ド の 数 字 に する こと で 行なわ れ ま す . この 色 コ ー ド 
は USR1 に よる 転送 に よっ て , 配列 要素 A 1 の (21) の 下位 
ビッ ト に ASCI コ ー ド で 入 り ま す . 1250 行 で 色 指 定 が ある 
か どう か 判定 し て , 色 指 定 が あれ ば 変数 C 有 々 に カラ ー コ ー 
ド を 入 災 し ま 39 店 

単語 に つい て は , 1 行 ご と に 色 を 変化 させ る か (CW=0), 
1 字 ご と に ラン ダム に 変化 させ る か (CW キ 0 ) 選ぶ こと が 
で きま す が , 文字 の 色 指 定 が あれ ば , その 廊 字 に つい て は 
色 指 定 が 優先 し ます . 麻雀 ゲー ム に 応用 すれ ば 赤 3 ピ ン な 
ども 作れ ます . 

第 3 の 特色 は , 画面 の 文字 を コピ ー プ リン ト で きる 点 で 
す . その た め に は , 900 行 で ヌル ・ キ ャ ラク タ を 32 に 指定 し , 
さら に 画面 の 第 0 行 に は 文字 を 配置 し な いよ うに し て あり 
ます (POKE&HEA58,1 を 実行 し て , [f・4] で 
画面 コピ ー を する 際 に 最初 の 1 字 が 欠落 する こと が ある ). 


(プロ グラ ム の 合用 法 


メニ ュー7 と 9 以外 は , 数 字 を 入力 する だけ で 表示 を 始 
め ま す . 表示 の 途中 で キー ボー ド に 触れ る と , メニ ュー に 
戻る よう に な っ て いま す . 効 児 が キー を 操作 する と き は 提 
し た まま に する こと が 多く , 変数 で 入力 させ る と , オー バ 
ー フ ロー エラ ー が 出る の で , A$ で 入力 し て , VAL を と る 
こと に より , キー ミス を 防い で いま す . 


(の 
0 


ニュ ー6 の Spell の 実行 例 


プロ グラ ム を RUN す る と , まず この 表示 が 現われ 
る . [CR を 押す と 写真 4 へ . 写真 5 メ 
4 LR 


メニ ュー10 を 呼び 出す 前 の 初期 設定 


写真 2 写真 1 で 32 と 入力 する と , 行 番号 32 か ら DATA 文 
が 現われ る ・- 写真 6 
=QBC ノ ポッ シ * 2=RND BC さ = カ ナン ヒラ カナ 4= ラ ンタ * く る 
= チコ ト O* =Spe1』 。 イ =TV コ 2N^ ン 8= Eo 
上 時 5 Ne 


Break in 959 
data$="81 ノ 91 ノ 4" : も ime を = り "の 1 :23:4S" 


文字 パタ ー ン の 入力 メニ ュー10 の 実行 例 


写真 4 


=RND- 介 BC 


= 人 BC ノ カ ン シ ~ 3=? 

カナ コト バ ~ =Sp@1 1 ー 

= カキ コミ 39= 昌 / 味 ト サ イ オス = 
ラン ヒ ョ すう 


35=kKe り : モ シー 





1O 


写真 9 


行 番号 100 の 文字 を 呼び 出し , 廊 字 の 形 を 変更 する . 





旬 メ ニュ ー7 丁 ソ コク バン の 使い 方 


プリ ンタ を 接続 し て いな い 人 は 1710 行 の LPRINT の を 
消し て くだ さい . さも な いと ,。 プリ ンタ が な い 場 合 や SW 
228① HUMRXC の SGS ag ンス ジルバ!( は Ez で 2 ちまっ 37 だま 90 ニン 
りり 5 ま 5983 

メニ ュー の 状態 で [を 入力 する と 画面 は クリ ア さ れ , 
80 婦 字 / 行 モー ド に な り , カー ソル が ホー ム ・ ポ ジ シ ョ ン に 
点滅 し ます . この と き ,[ リ ター ン | キー だ け を 押す と , 再 
び メ ニュ ー に 戻り ます . 何 か 文 章 を 入力 する と , その 文章 
が 30 字 区 切り で 画面 に 表示 きれ ます -. 

女 字 の 種類 は キー ポー ド か ら 入 力 で きる 文字 に 限ら れ ま 
すず の コン マ ( 5) に の つ で ユマ フ PGW プー の" ら が 7 か 
モー ド 切 り 替 えた ) する こと に より , 390 種 の 文字 を 使う こ 
と が で きま す . 文章 の 長き は , 254 文 字 以 内 で す が , コン マ 
の 数 だ け 少 い 廊 字数 を 入力 し な いと , 途中 で エラ ー が 出る 
こと が あり ます .- 


価 メ ニュ ー9 の 使い 方 (写真 9, 10) 


メニ ュー9 に 移る と , どの 文字 を 書き 換え る か , 尋ね て 
きま す . そこ で , 変更 し た い 廊 字 。 また は その 文字 の 行 番 
号 (ASCT ナ ン バ ま た は 十 223) を 入力 し て くだ さい . 

リタ ー ン | キー だ けが 入力 され る と , メ ニュ ー に 戻り ます 
入力 され た 文字 が 2 廊 字 以上 だ と , DATA 交 の 行 番号 が 入 
力 さ れ た も の と 判定 し て 処理 し ます . 32 以 下 の 2 桁 の 数 字 
が 入力 され る と , スペ ー ス (32) が 呼び 出さ れ ま す . 画面 に 
現われ た 廊 字 が 呼び 出し た い 字 と 異な っ て いた と き は , そ 
の まま [リタ ー ン | キー を 押し ます . 


人 @ メ ニュ ー15 て て 文字 一 覧 表 を プリ ント する 方 法 


1 度 メ ニュ ー7 を 呼び 出し て , プリ ンタ の 行間 を つけ る 
モー ド に 設定 し た 後 , メニ ュー15 を 呼ん で くだ さい . 

女 字 が 30 字 表示 され , 行 番号 と キー が 表示 され た ら [E 
3 で | で 一 時 止め て , [SHIFT ] 「 生 4] で プリ ント し て くだ 
さい . [SHIFT |[f-5 | で ライ ン ・ フ ィ ー ド 行なう こと が 
で きま す . プリ ンド が 終わ っ た ら [ESC | を 押し て 解除 し 
て , 次 の プリ ント に 移っ て くだ さい . 

7 枚 プ リン ト が 終わ っ た ら , メニ ュー に 戻っ て , キャ ラ 
EXC (メニ ュー16) を 実行 し て , も う 1 度 メニ ュー15 を 呼 
ん で , プリ ント を 行なっ て くだ さい . アラ ビア 数 字 が 漢 数 
字 に , カタ カナ が ひら が な に な っ う て い る で し しょう. kaiipe 
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写真 10 変更 され た 女 字 を 再び , 呼び 出し た と ころ 


ズ カ タ 
9 の に に 


玲 トノ ぞ ち “ 
に に ュ ス メー トト! 





代え メニ ュー10( 時 計 , 時 報 ) の 使い 方 


プロ グラ ム を RUN さ せる 前 , また は 途中 で STOP し て ダダ 
ンコ ニニ ター に 2 ィ o 





date$ 三 “80/01/03“:time$ 王 "13:05:00" 








の よう に し て , 年 月 日 時 分 秒 を 設定 し て くだ さい . 

時 間 の 表示 は 12 時 間 表 示 で す . 不要 な 0 は 表示 し ませ ん . 
正午 は 0 時 0 分 と 表示 され ます が , 時 報 は 子 鈴 が 短く , ピ 
ッ ピ ッ ピ ッ ” と 3 回 鳴っ た 後 , 12 回 BEEP し ます 

時 計 の メニ ュー か ら 抜 け 出 す に は , 分 も 表示 し た 後 , 2 
秒 ぐ らい いずれ か の キー を 近 し 続 ける と , 2030 行 の IF IN 


KEY$ 三 リリ! に 引っ か か っ て , コメ ント を 表示 し た 後 。 メ 
ニュ ー に 戻り ます . 
氏 メ ニュ ー11 の 使い 方 


英語 の 読み 方 を カ タカ ナ で 第 1 行 に , 英 単語 を 第 2 行 に , 
第 3 行 に は 日 本 語 の 意味 を ひら が な で 表示 し ます . 

プロ グラ ム 上 で は , 途中 に コン マ を 入れ て , カタ カナ と 
ひら が な の モー ド 切 り 符 え を 行なっ て いま す . も ちろ ん 漢 
字 と その 読み 方 を 表示 する よう に プロ グラ ム す る こと も る も 容 
易 で す . A$ の 内 容 は 各々 , お 好き な 廊 章 を 入れ て くだ さ 


| 変更 法 


了 供 の 年 齢 に よっ て 表示 時 間 や , 画面 に 現われ る 文字 の 
数 の 上 限 を 変え る 必要 が あり ます . また , 色 指 定 の 方 法 な 
ど 主 な 変更 箇所 を 表 1 に 示し ます . その 他 の 変更 に つい て 
は , 表 2 の 変数 表 を 参考 に し て くだ さい . 


| お わり に 


RE モジ ュ レ ー タ の 出力 を 3C2V 同 軸 ケ ー ブ ル で , カラ 
ーTV の UHF チャ ン ネ ル に 接続 し て , 隣 の 部 室 か ら 操 作 し 
て いま す . 2 歳 10 箇 月 に な る 長男 が 。 A BC の 表示 が 終わ 
っ て メニ ュー が 出 て くる と ,『 い ち , り た 一 ん 』 と 言い な が 
ら , 自分 で キー ボー ド に 入力 する た め , 私 の マイ コン ・ ル 
ーー に 5 こま に 3 

1 地 3 箇月 の 次 男 は , 無茶 苦 茶 に キー ポー ド を 押し ます 
が , と き に は プロ グラ ム が 動き 始め る こと が あり ます . する 





















表 1 主 な 変更 点 表 2 変数 名 表 
行 番号 | の 
445 一 446 | DATA 文 作成 後 は 消除 する こと -. K 各所 FOR 一 NEXT ル ー プ ・ カ ウン タ 。 時 間 待 ち 
1020.1040| AJ ニ 0 TO 50 廊 字 の 表示 繰り 返し 数 0 9 玲 カ Sb RM こっ 
, 他 | 交 字 グル ー プ 交換 用 変数 JJ ニー 0 で ノー マ 
メニ ュー1 一 一 * 表 示す る 廊 字 の 数 を 市 朋 6 た 航 
1200 1ー4,12 一 14 で 表示 する 交 字 の 数 捕る 計る 
MSNU02FROIOD が 99 NN L isoo 女 字 を 置く 行 を 示す 変数 (L 三 0.1.2) 
FOR ミー テ 15 TO 35 一 15 個 で 画面 を 埋め る . C 1200 行 の C 番 目 に 廊 字 を 置く . 0 一 4 まだ た は 0 一 9 
1210 FOR K テ 0 TO 1000 メニ ュー1 一 4.12 一 14 の 表示 時 間 いる 1200 女 字 を 置く 回 数 を 示す ルー プ 数 
1250 廊 字 個 有 の 色 指 定 を し な い 場 合 に は , IF 廊 以 後 を を 1320, 他 | 女 章 か ら 交 字 を 切り 出す 順番 の ルー プ 変 数 


CX | 1260, 他 | CX 三 0 で 前 回 と 同色 , キ 0 で 乱数 で 色 決 め . 


消除 する と , スピ ー ド ・ ア ッ プ する . 
CY | 1260, 他 | 色 指 定 の と き 0. 乱数 を 使う と き は 7 . 
















































1340 INKEY$=" "で どの キー で も メニ ュー へ . 3 > 
[ ] り CZ | 1260,、 他 | 色 指 定時 カラ ー コ ー ド . そ の 外 の と き CZ ニ 1 
J。 + + 所 ー で メニ ュー へ 。 ラー ーー ー > バ 
SE Na も CW | 1740、 他 | CW=0 で 1 行 ご と , キ 0 で 1 字 ご と に 人 色 変 化す る . 
1620 IF J=14 THEN 1660 一 ビリ オド 以後 を 読み AT | 1020, 他 | ルー プ ・ み カウンタ. 表 字 繰り 返し 回 数 
飛ば し て , 次 の C $ の 表示 へ 移る . IF 交 を 削除 す N 1360, 他 | 交 字 一 監 表 の ペー ジ N を 示す .N=X/27 一 1 
る と , すべ て の 廊 字 を 表示 . JK | 1510 JK=5 一 1 行 5 文字 表示 . Width40 モ ー ド 
1640 メニ ュー5 と 6 で の 表示 時 間 設 定 ル ー フ ー1640 | JK= ニ 10 つ 1 行 10 交 字 表 示 . Width80 モ ー ド 
1710 プリ ンタ を 接続 し を な いと き は 。 POKE 廊 と LPR は Do USR 5 人 
呈 デ 指 定 際 の 補正 値 . ( 6 
交 を 削除 する . で 表示 時 間 を 設定 Ne 8 
TNT 婦 を 削除 する .TM で 表示 時 間 を 放 定 TE | T750。 他 | 義 未 計 間 天 き 5 全 滞 5- 天 
1740 GOSUB 1240 一 音 な し 表 が KW | 1360 1 ペー ジ に 30 タ イト ル 印 字 す る た め の カ ウン タ 
GOSUB 1230 一 1 交 字 ご と に 音 出し WM |1360 1 行 に 10 タ イト ル 印 字 す る た め の カ ウン タ 
A | 950 A$ で 入力 し た 交 字 の VAL 
と 『 で け だ た 』 と 言っ で 手 を だ だ いで 癌 こび ます 9 だ だ じ も) JM | 1240 JM テ 0 で ノー マル , JM テ ー223 で JM 十 JJ= テ 0 
キー も 時 々 押す の で , 仕事 か ら 帰 っ て みる と , 0 に な る ・ 
に ーー 条 に 変 み 謙 字 が ゝ 『 
10 行 に 変 な 交 字 カ 入力 され て v る こと も あり ます ・ デー タ 支 の 一 例 
長男 は 1 箇月 ほど で , ABC が 読め る よう に な り , 3 簡 
っ > ミナ テーブ ミ E る ・ ミ 寺 ュー テ ュ 【 >. 表示 時 さき 2 DRTR" 
月 で ひら が な か Ro300 の 7 や あう だ の. まち が 表示 時 る 3 DRTR" Ak4 | | 男 還 に ルレ に 
間 を 発達 段階 に 応じ し て , こま め に 調整 し , 画面 の 廊 字 が 何 34 DRTR" コ の 国 四 と 6 sf " 
6 9 2 35 DRTH' 正 ES 因 男 還 " 
で ある か を 一 緒 に 声 を 出し て 教え る こと が 必要 で す . 3E DRHTN" 国生 還 還 四 。 SN 還 四 im 申 ・ 
字 の 覚え 方 『 の の) 5 年 款 の 『 「tS< 37 DRTR" 4 で Ni の 2 の な っ し と マリ 
2 の 909 2 7 > 電 肌 の 29 二 め 1099 38 DRTN' 人 還 、 目 四 ペア 串 ア て 2 rmmwr 
と 言っ た よう に 具体 的 な 物 と 結び つけ て 記憶 し て いる よう 39 DRTR" 4 テー アテ P Qu 
で す . また , ノ や の 『 昌 』』 ママ の 『 Y』 し ん くん の 『 5」 な 人 81 





ど と 頭 文字 を 結び つけ て ABC も 覚え まし た . 

近ごろ で は , 女房 殿 も 『 高 精度 カラ ー モ ニタ を 買っ て も 良 
か っ た ね 』 な ど と 申す よう に な り ま し た だ . 

私 の シス テム は PC-8001(32K) と グリ ー ン ・ モ ニタ と O 
KI タ イ バ パー5200 で す . 近い うち に PCG-8100 を 買い た いと 思 
っ て いま す .。 そし て 。 次 に ミニ ・ フ ロッ ピー を 考え て いま す ・ 
し か し , 誰 も が 簡単 に 使 を る シス テム と いう の は , ここ 1 
年 は チ テープ ・ ベ ー ス の BASIC だ と 思い ます . 

この プロ グラ ム の 他 に , 住宅 管理 組合 (118 戸 ) 管理 プロ 
グラ ム , 病理 標本 管理 プロ グラ ム な ど を 作成 し て いま す が , 
ぃ いずれ も 本 プロ グラ ム の USR1 と 同様 に DATA 文 か ら 直 接 
に 配列 や 変数 に 転送 する こと で , 取り 扱う デー タ 量 を 増す 
よう に 改造 する つも り で す . 

また , 本 プロ グラ ム を 外国 語学 習 用 と し て , アラ ビア 廊 
字 。 ギリ シャ 文字 , ヒン ディ 文字 (サン スク リッ ト ), ハン 
グル な どの キャ ラク タ を 作っ て 活用 し た いと 思っ て いま す -. 


















参考 に し た も の 
1) 寺田 浩 認 監訳 : Z-80 マ イク ロコ ンピュータ ー, 丸善 








プロ グラ ム ・ リ スト の 変更 に つい て 


1) 行 番号 920 に 次 の 文 を 追加 し て くだ さい . A2 CC: RETURN 
DIM A2 劣 (6) : FOR K=0 TO 6 
:A2 の (K) ニ 8224:NEXT 3)MP-80 TYPE 2 を 使わ れる 方 は , 行 番号 1710 の 
LPRINT 以 降 を 次 の よう に 変え て くだ さい - 


2) 次 の 2 行 の よう に 変更 する と , 次 字 10 個 目 に ベー ス CHR$ (2 7) キ び 1/ 二 chr $ (27) 寺 AZ 
・ カ ラー が 出 な く な り ま す . 十 chr $ (7) 二 chr$S(15) : TM= ニ 15 

1260 CC=RND (CX) *CY 二 CZ 縮 少 女 字 

1270 PUT@ (C*8, L*8 十 1) 一 (C 以上 の よう に 論 え な いと ,MP-80 の と き に グラ フィ 
*8 十 5, L* ネ 8 十 7) , A2 狗 , CC: PUT@(1+ ッ ク 交 字 の 間 が あい て し まい ます -. 
*※8 十 6, 上 まま 8 二 1) 一 (1*8 十 7, し * ネ 8 十 7), 
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文字 表示 プロ グラ ム ・ リ スト 











3 JTg TFTT=THEHSHE_ ELSE IFTJTXSS THEHTT= さ 3 

> iT ま =STR ま で +TTー1 FRTNTJ ま 5 THE は)* "DRT"+CHE ま て 33 
3 THEK コ 1 EHR ま て さす) NESTILHCHTE ロ 。 IE END 

さら = ュ ロ T ュ す デ ュ アア ュ ビ さ ュ さら: 回 デア デュ デ さ 

ュ さら ピュ ビ 回 > で デュマ さ ュ さ に 。 回 ご 回 ュ F ロ て ヨ 。 1 1 

ヨ 。 EE: 1 ヨ 。 EE。 ヨ 

BEH。 ED: 日 回, と 

Bi RE 吾 放 計 帳 1HN ERHLTTHN 東 球 束 束 

HE3 コ CE EEFUSER1=EHE3DF IDEF THNT 由 デ 

LC" 庄 H リ + ま うま NESTIEEY1」 "uidthSET 











5 だ っ 








HH。E 
ュ F ロ マロ EE 1 ヨコ 。 EE で ロ ュ デコ > 
EF 1 。 昌 回 回 回 ヨ EE。 昌 1 > 
MIETHHB: CHLUR 和 は 。 さ で 
H うじ ま て 5 DEFIIS 
Da ま iP ロ 























xr 


" ロ ま ロニ ロ オ コト ロロ "日 =5F ら 11 アミ 
ッ ジ "1 ロニ ド 9 5 モジ ドーラ ン ヒ ョ ウ 16= キ ャ ユ 





を 
。 181。 171 加 181 回 。 1 ヨコ 1 ロ 。 回 1 回 。 誤 1 1 112。 113 昌 











+JTi 半 Sa 間 HIEDEE HISLEI1E さ 


FHR ドド =TH1gEEI TFTNEE ま = リリ THEH NESTIPRTIHTCHR ま で 1S)I HERTIEETURN ELSE FRETUEH 
RE : FLT 。 六 玉 

EEEF1:FHE ド =TUIEI NESTI EEEF 器 

1FJJ ゴ す Td12THER = ご 





テー ビー ビビ ビビ ーー ビー ビビ Im 











8,LG+1) 
RE * 15 
UMIDTHBgiH=U 










FORK= TI1 呈 
EE 由 計 吾 束 口 上 コロ す コ 


TH 1iLH=LEH! 
眉 9 










FIRH= 





+ に HER ま て 3』 丁目 =15 
"THEH FRETURH ELSE ロ HSLUE1r さ EE BUTU1r デ ロ 
*ー1 3\1 ロ 3 キ さ FES (HID ま で 由 ま 。 記す" ュ 1 うう ー3 デ 
AE H ま = ロロ ます! "INET 



























ロ 0SUB 1 GHSLUE1 13Ei ロ HIELE 
HELHBS1 ロ IEETLURH 


E く 15。 ア うー(22 15 う 。 "オリ > 
: IF ロキ ま THEH FETLRH 
THEHR ま = リ "ELSE H=LUSR1TT3E BHTH1 ヨ は 回 


FRIHT "cant"EFRTNT "cont" 
THT "anto181 四 "iLHCHTE ロ 1 
sarIEND 


月 "TFT ロ HT ま STR ま KMHLK ID ま CDRTE ま ュ デュ 

( 31 デ う ょ う オリ 時 リキ RIT ロ HT 

3 に 四 ニ 1』 丁目 1 ロ HISLE 1 デ さ 中 

"THEN2g5B ELSE TIF ご ま = リ "3"THEHEEH ELSE IF TIHKE' ま = 

THE ELSE EEEFIFETNTCHER ま 
i THE ELSET ま =T 1HE ま : TFM 
13FUE ニ ロロ TH 5 HEST:EEEF 加 FIE 

HOE12+1: BEEP: FURT=BTHEEEE NEST NE 叶 





5 BHTUE デ ロ 

ドド TGHT ま で TIE ま ょ 3 く コ r 
= ロロ TUSBEI NEETEHERTIF 
TiFRTNTCHR ま て 12 5 ロ HTU デ 









FIRT エ = T ロ 
LEFT ま くま 2 


FCー ご 回 加 1 ロー ト ha に 1 に まず イロ エキ 、「」 ュ コ ルコ ユル 。 門 : 占 : HU。 ニュ キュ 征 。 エ bh。 8: ュ ロ : 
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文字 表示 プロ グラ ム ・ リ スト 











Ga で マッ 。 上 LN= ニ Ei 上 =15 BISUE1 で さ gi RETLEH 









1 回 REHN 11 すぐ "っ キョ ロロ 

11 MIIDTHSBI ロ ま = リ PT _aFF'1 ら か の の コピ ョ リリ 2 

ュ > 。 ズ コ ーlb ミ chno1 了 ミ = コト ー ト “" ョ mm1 TF1 ら rd 17O 
エ ュ ーー) マイ コン ュ コ 。 自 LP =u moon : 27 ヨロ ュ 月 回 GHSLE1 
き 回 

1 MMIDITHSBEI 由 まま = リ 包 は | 1981 年 EE ヒ Fc-BgB1 「」 B1r さ ggR 
ETLRH 


gg じ ま CB)= リ ジイ チロ ヒエ “上 ロミ = コウ コ キョ ウ コ トモ エ ju ナオ ミ 
"トラ サー iT 人 サ っ で で コロ コロ コト 9 iP っ "コロン エド アリコ 9 イペ キ デコ ビオ イ 
その に ュ ロ キイ ロー モモ イロ 了 了 アオ キワ ロンロン エデン lp ヒコ ウロ キト“ ウロ 1 ロ SE に rf キロ ギリー 
"ミチ ヒ 9" り テ 

3g1g C ま (1)="h イ モ J 29" サイ セコ エー コア コア : 





き 塚 づ 計 ライ オー オオ T 








SEF ロ ロ チョ ウキ チョ ー ロ ジー ダンゴ" 証 mn 人 た 者 コ ジ カ 





ロコ で 由 由 放 hm の TOEimy コ トド の ロン ペイ 本 で ロー コウ エン ペペ Tb すり"m コ ロープ 隆 ト “ 基 

ココ ト “ コ ト “ コ イ TTP リコ" ト サヨ ナラ で 5 ネ ヨロ コッ ニキ ロリ モ J iT スカ 2 スー オ E" オ 2】 1 る 』 DTDkM に に ドリ 

hn イイ 。 すす 中 」 コ 

32R C ま CE う =" =un maon buildina bonk de= ド bookstand Ferci1 =harFerieF ChaiF be 

d caFFet curtain Fon=t ら ビ Chic ド bird == ミ t CaFIaFd に き ヨ ピ Ma 所 ヨ ond 
mnFri1n ヨ 大 1FF ロ F ula1 1 duorF FaFFOt Ma ド ら UF Ficture Fillow blanket 
Fadama= 

ささ ロロ C ま ( さ う = リ "イロ ロニ ペトリ デ 員 アワ ロ ヨ マル りり リネ オラ ロイ オロ セ マ サ ココ エエ サキ ユ ミエ ヒモ セス ー「」 > ョ ocd ni ョ ht bab ロ ド 

ママ 。 =M1n ヨ =11d= douinbanana ュ FF 1 ロ ド ュ ヨロ muscat of hirn=h1ma さ + さ ニ ロ 


Mine =a ド = =ummgF Tirisun moorni ta ュ F rid 
3 さ ロ 4 まく d)="F1ate taroTFu1in ヨ Fari mtheF Fot ket+t1 ら = tooa=t ら eF Ju1CeF kitchin 
knife cut bi =istertea milk ea ヨ bread Juice jam tabl1e Che ほ = ほら 1 =U ヨ ュ F に U 
t =al1ad dishhahg dog fork =Founknif= CuF 1unch boxx t=aFct ョ 1a== of wateF hG 
t =Faahetti? 
3 加 呈 申 じ ま (5 う ="=anduich CuF GT tsaom=let on ら CUFF9 F1CEuE ヨ QuF hanhuraer beef=tea 
ト teleFhone sk bird TiUF 全 ら doctoF hosF1 ta1 bar ド Cc1Gud F ロ 1 1 こら き 
n bus drFiueFschao] bus uuomam GuGFCOat 。 =1deua1 ド baont= Ca ュ F 【FUC ド =F ロ Ft ミ C ュ 
F triari ヨ 1 ら 。 
3gG RETLURRN 


3 C ま ( = リ 12 さ 567S9 123456G9 123 さ 45GYB9 12345G7Bg 12 さ 56YB9 12 さ BY 12 さ 3 邊 55r は 
9 1234567B9 12 さ 456 ア 89 123 さ 4567B9 123d5GTB9 12 さ 5 12 さ 6 ヨー 12 さす 579 1Z さ SG ご 
9 123456789 123456789 1234567B9 123455 ァ は 9 12 さ 456789 12 さ 456YB9 123H5G7B9 12S4S6r は 


9 12 さ 456789 『" 
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PC-8 ロ 01 





視力 検査 は いろ いろ な 目的 で 行なわ れ ま す . た と えい ば , 
目 の 健康 診断 。 各種 の 適性 検査 な ど 広 い 分 野 で 実施 され て 
いま す . 本 プロ グラ ム は これ を マイ コン で 行 な お うと する 
も の で す . 


上 視 力 検 栓 に っ uc 


日 本 の 視力 検査 に 関す る 規定 は , 以前 に は 1909 年 の 国際 
科 学会 に お ける 決定 と , 1938 年 の 日 本 眼科 医 会 に お ける 
決定 に 準 換 し て いま し た . 

そし て 1964 年 、 今 日 の 実情 に 即 し た 新しい 視力 検査 基準 
が , 六部 省 科 学研 究 費 総合 研究 視力 研究 班 に より 設定 され 
まし た . 本 プロ グラ ム も 基本 的 に この 基準 に 従っ て い まま 9 














この 基準 婦 内 1 で は Landolt 環 を 標準 視 標 と し て いま す . 
写真 1 シス テム 全景 この Landolt 環 と は 図 1 に 示す も の で , 環 の 外 径 7.5mm, 太 き 


お よび 切れ 目 幅 1.5mm の も の を 検査 距離 5m で 用 いた と き の 
視力 値 を 1.0 と し ます . 視 力 表 に は 標準 検査 装置 , 准 標 準 検 
査 装置 、 特 殊 検査 装置 の 3 種類 が あり ます . 

本 プロ グラ ム で は 実用 性 に 重点 を 置 き , 視力 の 値 を 特に 
や か まし く 問 題 と し な い 場 合 、 た と えば 有 眼鏡 検定 を 主 目的 
と する 視力 検査 、 あ る い は 集団 検査 、 スク リー ニン グ 検 査 
な ど に 用 いら れる 准 標 準 検査 装置 の 基準 に 従っ て いま す . 

この 場合 、 Landolt 環 の 寸法 の 許容 半 は 標準 貸 の 土 10 久 
以内 で , 本 プロ グラ ム も ほとん どこ の 誕 容 基 内 で す . 

視 標 の 段階 の きざみ 方 は 特に 定め られ て いま せん が , グ 
ラフ ィ ッ ク の 1 ドッ ト が 約 1.5mmX1.5mm な の で , 細か く 段 
階 を 刻む わけ に も いか ず , 





0 届 吉 0LH5'052 0.25 058 055 直 30 








の 7 自 階 と し まし た . 
検査 結果 の 判定 基準 は 表 1 に 示す と お り で , 本 プロ グラ 
ム で は , 





視 標 数 : 4 正答 数 :3 


と し まし た . すなわち , 同じ 視力 の 視 標 を 4 回 表示 し て 
(も ちろ ん 環 の 切れ 目 の 方 向 は 毎回 同じ と は 限ら な い ),。 3 
可以 上 正答 数 が 得 ら れ た 最小 視 標 の 視力 値 を も っ て 視力 と 
する も の で す . 

シス テム 構成 は 、 PC-8001 と グリ ー ン ・ デ ィ ス プレ イ P 
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10 


写真 2 検査 の デモ ンス トレ ーション (その 1 ) 写真 3 検査 の デモ ンス トレ ーション (その 2 ) 










C-8041 で す ( 写 真 1).、 ディ スプ レイ に は 必ず 12 イ ンチ の 物 


を 使用 し て くだ きい . 他 の イン チ の 物 を 使用 する と 視 標 の 
大 きき さ が 違 っ て きま す . な お , PC-8001 と N-BASIC 
に 関 じ で は , 交 貢 2) 一 5) を 参考 に し て くだ さい . 
プロ グラ ム を RUN さ せる と 写真 2 の デモ 1 と 写真 3 の 
デモ 2 と を 変 互 に 繰り 返し ます . この と き に , |RETURN 
図 2 切れ 目 の 方 向 と 対応 する キー キー また は 任意 の 英 数 キー を 押す と , デモ か ら 抜 け 出 し , 
検査 が 始ま り ま す . 

視 標 は 。 小さ いも の か ら 大 きい も の へ と 表示 きれ ます . 
視力 で 言え ば , 一 番 最初 に 1.0 の 視 標 が . そ し て 一 番 最後 に 
は 0.1 の 視 標 が 表示 され る わけ で す . 表 示さ れる 視 標 の 切れ 
目 の 方 向 が わか れ ば , 対応 する キー を 押し ます ( 図 2). わ 
か ら な けれ ば , 際 呈 の キー を 押し ます . 

表 1 に 示す 正答 数 を 満足 すれ ば , その と き の 視 力 が 表示 
され , 正答 数 を 満足 し な か っ た り , わか ら な いり い 場合 ( 因 』 
の キー が 押さ れ た 場合 ) に は , 一 段階 大 きい 視 標 が 表示 さ 























れ ま す ( 写 真 4 一 写真 17 ). 
写真 4 1.0 の 視 標 写真 6 0.5 の 視 標 写真 8 0.3 の 視 標 


り 


写真 5 視力 1.0 の 表示 写真 7 視力 0.5 の 表示 写真 9 視力 0.3 の 表示 


1O 


写真 10 0.25 の 視 標 写真 11 視力 0.25 の 表示 写真 12 0.2 の 視 標 


り 






の 





写真 13 視力 0.2 の 表示 写真 14 0.15 の 視 標 写真 15 視力 0.15 の 表示 





2 回 0 


写真 16 0.1 の 視 標 写真 17 視力 0.1 の 表示 


、$j ブ ログ ラム 

10 行 一 1080 行 が メイ ン ・ ル ー チ ン で , 1090 行 一 1500 行 が 
視力 表示 の た め の 各 サブ ルー チン で , 1520 行 一 1940 行 が デ 
ー タ SG33g 上 スト 1 ). なお, プリ ンタ の 都合 E 記 2 ログ ラム 
中 ,、『N』 は PC で は 『\\」 の こと で あり , 1090 行 一 1500 行 
中 の 『 』 内 は グラ フィ ッ ク ・ パ ター ン で す . この 部 分 の 
み は 写 真 18 と 19 と を 見 て くだ さい . 以下 , 行 番号 に 従っ て 
説明 し て いき ます . 


①120 一 160 INITIALIZE 2 
COLOR, CONSOLE, WIDTH, CLEAR, 
それ に 型 和 宣言 と 配列 宣言 で す . 


⑧②170 一 430 DATA READ 

DATA 文 の READ と , PUT@ の た め に 配列 の 一 番 
最初 (添字 三 0) に ドッ ト 数 の 設定 を 行ない ます . 表 2 に 配 
列 名 と その 内 容 と を 示し ます . 

ここ で 少し 。 PUT@ で グラ フィ ッ ク を 表示 させ る た め 
の デー タ の 作成 の 方 法 に つい て 触れ ます . 通常 PUT@ は , 
GET@ て で 配列 へ 読み 込ん だ キャ ラク タ や ドッ ト ・ グ ラフ 
ィ ッ クス を 画面 の 任意 の 位置 へ 表示 させ る の に 使用 きれ ま 
す . 

し た が っ て , GET@ で 配列 へ 読み 込ま れる の と 同じ 規 


』0 


表 2 配列 名 と その 内 容 写真 18 行 番号 1090 一 1320 の リス ト 


ーーーー デ "6" DISPLAY ROUTINE 
MI * TUNE L2 RM 


N4, N5, N6, N7 を PUT@ て 表示 させ る 場合 に は , 
この N 0 に 転送 し て か ら PUT@ て 表示 させ る . 

デモ | の 『 人 間 』 を PUT@ で 表示 させ る た め の デ ー タ . 
デモ | の 『 矢 印 』 と 「 距 離 』。 と を PUT @ で 表示 させ る た め の デ ー タ . 
デモ | の 『 視 標 の バッ ク 』 を PUT@ で 表示 させ る た め の デ ー タ . 
デモ | の 『 視 標 :。 を PUT @ で 表示 させ る た め の デ ー タ . 

デモ 2 の 『 数 字 キ ー』 を PUT@ で 表示 させ る た め の デ ー タ . 
デモ 2 の 『 視 標 」。 を PUT @ で 表示 させ る た め の デ ー タ . 

デモ 2 の 『 切 れ 目 』 を PUT@ で 表示 させ る た め の デ ー タ . 

同 = 

同 自選 

N 6(0 一 3.)) の デー タ か ら N6(4 一 7.ij) の デー タ を 作成 す 
る と き に 使用 する デー タ . 

デモ 1 の 『 ウ エー」』 『 ミ ギー』 な どの デー タ . 

視 標 が この 配列 を 使用 し て 作成 され る . 

デモ 2 で N0, N5 一 N 9 な ど を PUT@ す る と き の , パタ ー 
ン の 左上 の 位置 の デー タ . 写真 19 行 番号 1330 一 1500 の リス ト 
視 標 を 作成 する た め の デ ー タ . 





























N 
N 
N 
N 
N 
N 
N 
N 
N 
































則 で (GET@ を 使わ ず に 通常 の 代入 方 法 。 た と えば 『 ニ 』 
や READ 廊 で ), 配列 ヘ ペグ ラフ ィ ッ ク ・ デ ー タ を 代入 させ 
れ ば , それ を PUT@ で 画面 の 任意 の 位置 へ 表示 させ る こ 
と が で きる わけ で す . で は , 具体 的 に 説明 し まし ょ う . 
図 4 は , デモ 1 に 使用 し て いる 『 人 間 』 を , パタ ー ン 図 
か ら グ ラフ ィ ッ ク ・ デ ー タ に 変換 し て 配列 I に 入れ る 場 
合 で すず 。 

まず , パタ ー ン 図 を 左上 か ら 右 下 へ 図 (a ) の 方 向 に 16 ド 
ッ ト ず つ 区 切っ て 行き ます . そし て 一 番 最初 .。 つ まり 左上 
の 1 ドッ ト を 合 む 16 ド ッ ト を 1 22(1) に ( 注 : 1 %(0) で は な 
い ぃ い ), そ し て 次 を TI 欠 (2②) に と 順 々 に 入れ て 行き ます . 





入れ 方 は 同 図 (c ) に 示す よう に , 16 ド ッ ト グ の 左側 が L S ③440 一 480 DEMONSTRATION(PART1 ) 

B, 右側 が M S B に な る よう に 変換 し ます . そし て , 配列 写真 2 に 示す デモ 1 で す . 乱数 に より 切れ 目 の 方 向 が 決 
の 一 番 最 初 . つま り 1 22(0) に ドッ ト の 総数 を 入れ て お きま 定 さ れ , それ に 従っ て 環 が 表示 され , 人 間 の 上 に カタ カナ 
す . で 方 向 が 表示 され ます . [RETURN|] キー また は 任意 の 英 数 


キー を 押す と ⑤ へ 分 岐 し ます . 押さ きれ な い 場 合 に は , 8 回 表 
示 を 繰り 返し た 後に ④ の デモ 2 へ 分 岐 し ます . 


国 4 PUT@ 用 グラ フィ ッ ク ・ デ ー タ の 作成 方 法 





LSB MSB 


ーー 攻 引 引 』 恒 遼 計量 同 同 





MSB LSB 


財 半 時 本 同調 購 し 』 較 』 
2 0 2 


E 











I2%(7) ニ &H20E2 


(c) 
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(④49 

写 
定 絡 
参照 


⑧③ 


0 一 680 DEMONSTRATION(PART2) ⑩1330 一 1400 “3" DISPLAY 
真 3 に 示す デモ 2 で す . 乱数 に より 切れ 目 の 方 向 が 決 数 字 『3』 の 表示 で す -. 

れ , それ に 従っ て 環 が 表示 され , 対応 する キー ( 図 2 

) が 反転 し ます . ⑪1410 一 1480 "5" DISPLAY 
と 同様 に 恨 ETURN| キ ー ま た は 任意 の 英 数 キー を 押す 数 字 『5』 の 表示 で す . 


と ⑤ へ 分 岐 し ます . 押さ れ な い 場 合 に は , 8 回 表示 を 繰 


り 返 


し た 後に つの デモ 1 へ 分 岐 し ます . ⑫1490 一 1500 DECIMAL POINT DISPLAY 
小数 点 の 表示 で す . 


⑤690 一 980 VISUAL ACUITY CHART DISPLAY 


数 


環 用 の デー タ を 作成 し 表示 し ます . そし て 視 標 数 と 正答 加計 
を カウ ント し , 正答 数 が 規定 数 に 達 す れ ば ⑥ に 分 岐 し . | 


達し な けれ ば 次 の 段階 の 環 が 表示 され ます . 
PC の グラ フィ ッ ク ・ デ ィ ス プレ イ は 160 ド ッ ト ※100 ド 
⑥990 一 1080 VISUAL ACUITY DISPLAY ッ ト な の で , 特に 小さ な 視 標 で は か な り ガ タ ガ タ みな 環 と な 
視力 を 表示 させ ます . た だ し , ここ で は 表示 され る 数字 り ま し た . や は り , グラ フィ ッ ク は 256 ド ッ ト ※256 ド ッ ト 
と その 位置 が 設定 され る だ け で , 実際 の 表示 は 次 の の ⑦ー⑲⑫ くら い は 欲し いで すね . 
で 人 生 が な わ ま す : 
参考 文献 
⑦1090 一 1160 "0" DISPLAY 1) 大 人 馬 祐 之 : “視力 検査 の 基準 化 に つい て ", 順 明 学会 雑誌 
数 字 『0』 の 表示 で す -. Vol.49, No.2, 1965. 
2) 日 本 電気 : PC-8001 USER'S MANUAL, IEM-683A, 
1979. 
⑧1170 一 1240 "1" DISPLAY 3) 日 本 電気 : PC-8001 N-BASIC REFERENCE MANUAL。 
数 字 『1 』 の 表示 で す . IEM-682A, 1979. 


⑨1250 一 1320 "2" DISPLAY 


4) 飯田 ・ 今 井 ・ 大 野 ・ 土 田 : アス キー・ シ ステ ム ・ バ ンク 
PC# 1 N-BASIC 入 門 , アス キー 出版 ,。 1980 


CS 


mm イブ] 本 否 プロ グラ ム に リス ト ーーー== デ Care 


1979. 





1 括 
人 ダ 抽 
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EB 
で 回 
RI 
に 151 
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12 回 
13H 
14 品 
15 抽 
1E 
1 回 
1 
13R 
ISI 
1 操 
で は 
計 后 
01 
回 
RS 
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31 昌 





6 YA 5) 後藤 富雄 : パー ソナ ル ・ コ ンピュータ PC-8001 の グラ フィ 
が 2」 の 表示 で す . ッ ク 機 能 と その 活用 法 。 イン ター フェ ー ス , Vol. 5 ,No.12, 
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IF JHEE ま EVO HITH EBE ELEE HERTIBHTH す ロ 
3 URL_ PU CHRFT 旧 IN RW 玉 


ーー: 
に 







Lnh in drrh ロ adsrLHEHTH 
人 ま - と オト ュ ル エー EE km Cm 一 】 
LE EIC kt 玉 kS 電 Cc9cY 和 kW 還 】 







SCJ)=STRTNG ま BB。49)1NERTIH=RHDC1 BT1 
FOR =g TOD RCT。15-HCT。 ロ 9-2K=NC1。B9+1+ コ : FOR TV=-K TO KBXmSGRCKK-TV5*CK+TV5) 
= ロー1"iB2=d ロ -EIE さ =39。 5TBSHFOR 月 = 昌 TH 1 STEF 
JH9)。B3+Ry=VBVEHTD ま CSCJB)B2+ う ="g" 
は Ba+RyzJgD=WBWtNESTIHERTEHERT 











HH | BITH 時 7 5,B。 は 3 
ゴゴ] ニーHG T 7 デーー ド KT : SE 4 
















ns LTH は 1 回 


lm 
店 
で 
r 
Id 
1 
7 
# 
Eo 
r 
hr 
了 
『 
が 
『 
0 
H 
ml 
加 
愉 


品 
6 
昌 
1 
1 
思 
4 
は 
加 
世 
? 
mi 
に 
中 


SI ゴイ 1=+HTT。E TET。 EE ロ HTH 1 昌 
ゴ 1=- 由 +HET。15E ロ HITH 1 ロ 






1 モー で 8 


ビニ ィ に 上 。・ ミド デー ニード T 。) 
da d+ す T1 TH 回 すす で s 






81 ポニ 4BTK1 Tn TESI 旧 TE ま SIT ドコ = ニ リ 1 73HEETEHESRTI ロ BHT BE 
で 回 ー ロ 5 で =1 1: 日 HITH 5 中 
En 中 EE エマ ニー1 HITH に 則 





中 回 = リー アロ 1 マニ ー1 8 ロ HTH BE 
GR Ti 1 記 ー 和 5 エビ ニ 1 

BE HE=1-B ロ HK Tn キキ 5 は FE ロゴ =ーHET ょ 3) TH HET」3) BTEF SIFHR PE=B TH 35 STEF HPS 
TI ID まま EKT ビ ー1 ご * 販 ゴ +T デ 玉 和 3。 TSRTHTTRR ラ =T1 7 ENHEETINESRT 

SG H=H- NH= ニ 5395 FETHT FHR ま で 1 で っ iLTHET3 ヨ : 1 昌 ッ ー 1S5、8 コ 3。FEET.EF* T1 
BE FHER = ロロ TH で BiM=STT3kFHE ドド 1= ニ 1 TH 55 STEF 1EIR ニ HITE ま 『 届 1 16 ぅ 
コ 本 JF 記 = リ 1111111111111111" THEH ご = リ FFFF"E ロ HTH 93 ELSE ご ="" 
31 FHE FE=1 TH 13 STEF ドコ =URLKHTD ま で SS 1 オード ピュ) 5 

SH ご ニ デ +HER ま (ー ド ド マ ト 1 コード ドコ 1 ロリ コロ ヨード さい 1 ロキ で ET ドコ 25 HEST 
833 本 T1=T1+1IHETT15=MHLK VSH"+TETHESTENEgT 

3HR FLHTGEHR。 1 ロー で 118. ロ 33。HE。FSETIEEEF 

5 ご =1HEE'" ま 1TF ご = リリ RT 35 ロ ELSE BEEF: IF で ご ="55! ロ HTD BB ELSE 1Q=TG+1 
BUIR "+ ご =STR ま CH THEH T ド =IER+1 








= 昌 








7 IF IE は BHTU で 1 ELSE TF ITR3 BOTH 3BB ELSE GOT ロ 298 

BB HESTE ロ HTH 回 

3 還 REHN キーーーーーーーーーーーーー UTEURL CUTITV DTBFL ロ ーーーーーーーーーーーーー 

1 MTETH 4 ロ 。 SIHH エキ 1 ELE 1 回 。 1 中軸 1 回折 操 1 ロロ 。 1T 加 。 BBHSHE 1 は 3 
11 FOR 1= TU 5GG ロ INERTEMTETH BB。25 ょ GOTH 4 
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,O 





































@ 視 力 検査 プロ グラ ム ・ リ スト 
1EE 1= ニ ri ロ HSILE 1 1 エニ ミコ 5 ロ HIELE 1EHEs 1T=138sEETIIEH 
1E3 1= ニ TIHELIE 1 T= ニ 33 ロ HSLE 2 3 1 RETIIERH 
1EHHEH T=rIHHSLHE 1EGEs 1 REI EETLEH 
1 1= ニ 1 は ロ HIEHE 1 昌 昌 5 = ロ HSLE 1 は 1 ロロ kT=13: ド EETHEHN 
1 エー ニテ s ロ LIESLUE 1EGEi =: EETLUEH 
1 で エニ 1 8 ロ EISHE 1SEz 1= 5 本 HELHE 1 は 1 ロ iT=13EFEETUEH 
1HEE コニー で II ロ HELE 1E 昌 s 1=23: ロロ S LE 117i エ =133RETLEH 
1 GEH EE 下 下 ニ ニニ ニニ ニニ ニニ ニニ "回 "TSFL FEHLT 1 日 ビ = ニニ ニニ ニニ ニニ ニニ ニニ キキ キキ ギ 
11 LHEHTE 了 .5 KFEIHT " JILHETE で 5PEIHT " 
111B LHCERTE TB giFRIHT JaLUEHTE TB IFRIHT " W 
112H LHCEHRTE 1.1EFETNT 『" WiLHEHTE 1。11EFEIHT 『 1 
113 LHERTE IT.1EIFETHT " ELHERTE 1.138FREHT 『" 
114E LHCHTE T.14IFRITHT " ILHCEHTE 【。1SIFERTHT " M 
115R LHCEHTE 1.1EEFRTHT 『" TELHEHTE TI.1FEFEIHT " 
115 LHCERTE 1。1EEFRIHT " ELHEHTE 13IFRTHT " UERETLEH 
1 1 で 貼 FREH 下 主 ニニ ニニ ニニ ニニ ニニ = リ 1 "TEFL 折 訓 選 HILIT TH ビニ ニニ ニニ ニニ ニ ニニ ニニ 平 半 下 
11BEH LHCEHTE TE FEIHT " TILHIEHTE 1。 『 FRETHT " MM 
113H LHCERTE Tj8 IEFRIHT " JaLHEHRTE 1.B IFRIHT 『" 
1SE LHCEHRTE T。1EIFETHT " "LHCH ロ TE 1711iPEIHT に 了 
121 LHCERTE 1.1SIFEITHT " JILHEHTE T.13KFRTHT " 
12E LHERTE 1。14IFETHT " ILHEHTE T。15iFRIHT " NR 
123 LHCHRTE エ .1EIFETHT " ILHEHRTE 1.1IFERTHT 『 
HE LHCEHRTE 1.1EEFRTHT 『" "iLHCRTE. 1。19:PEIHT 了 PaEETIHER 有 HH 
回 FE 素 呈 主 ニ ニニ DIEFLRD RIHLT THE ニ == ニニ ニニ ニニ ポポ 
ER LHERTE 1。5 * LUEHTE 【。i 2 
Sr LUEHTE 1 唱 5FRTNT 時 iLHCERTE 18 EFETHT " 
12GE LHCEHRTE 1。1EgFERIHT " "ILHEHTE 1。11IFRIHT " M 
123EH LHERTE 1T.1SIFEEHT " PiLHEHTE 1.13EFRTHT " 
13E LHCERTE 1.14IFRIHT " "saLHEHTE 1。15FRIHT " W 
131 牛 LHCERTE T。1EEFETHT " ELHEHTE T」 1 で ikFETHT " M 
132 LLCERTE 1」18IFRIHT " iLHEHTE 1T。13iFKTIHT " PIEETIUE 有 HH 
133 販 EE 主 主 ニニ ニニ ニニ ニニ ニニ ニー リリ [5T ビ FE REIUITITNE コ ョ ニニ コニー デニ ーー ゴー 
134H LHCERTE TE IFEIHT " ILHEHTE NSR NM 
13GE LHERTE TB IFETHT 『 JaLUIEH ロ TE 1。B saFRTNT 『" 上 
3 LHERTE 1.1IFETHT " rsLIHCHTE 1.11iFEIHT " 
13 が 加 LHEHTE 1T.12EFRIHT " "gaLHERTE 1.13EFRTHT " 0 
138 LHERTE 【.14iFETHT " "ELHERTE エ 。15IFRTHT 『" 回 
138 LHCERTE T。15kFRTHT " PsLHEHTE エ 。1 で IFRTHT 『" 上 
14HH LHCEHTE T,18IFEIHT " "iLHEHTE 1.13IFRTHT " "iREETLHEH 
191 同 RE 素 証 ニ ニニ ニニ ニニ ニニ ニニ"「 呈 リ PTSGFL ロ TE に DLIT T ビニ = ニニ ニニ ニニ ニニ ニニ ニャ ボキ 
14ER LHCRTE TE FEIHT ! nsLHCRTE で FRIHT ! 上 
143 LUEHTE 1。8 FRIHT " PLHEHTE 1 ヨコ IFERIHT 『" 
1 LUERTE 1.1 ロ IFETHNT " gsLHCRTE T.11IFRIHT " 了 
145H LHCEHTE T.1EIFEIHT " "gsLHEHTE 1.13kFRTHT 『" 
145H LHEHRTE 1.1 は 5FETHT " ELHEHTE 1。15iFRTHT " 
1HFR LEHTE 1.1EEFEIHT " iLHEBTE 1.1iFEIHT " 
148I LHERTE 1.1SIFETHT 『" NIIHE 5 BSERINI PIEETILE 昌 
1H3 EEN 王 ニ = ニニ = ニニ [EETHL FIHIHT DISFLP RIHLIT THE ニ ニニ ニニ ニニ ポポ 
15H LHCEITE T。18IFEIHT ! "ILHEHTE 1。13:FEIHT " "IEEETHEH 
151 EH[ 
1 NISNNE ロ ーー ニニ ニニ ニニ ニニ ニー 折 昌 貼 仙 選 E 王 RIIIHH 財 三 ラニ ニニ ミニ ニニ ニニ ジー モー ニニ ボボ 
GBR RE ポー ニニ ニー エーーーーーーー ニ ーー 邊 日 由 慌 邊 人情 ERSD 由 HH ニニ ニー ニー ニニ ニニ ー ニ ニニ コニー 下 
15d TH 回 。 己 。 邊 。 ビュ ピュ 。 > 上 9: 回 。 帳 。 回 。 回 。 回 。 日 。 回 。 三 中 。 さ 日 。 了 で ュ F 5*P 
155G DRT 内 の エー。 ミ キ ^ ウ エー. ミキ "ーー ガー ター ュ ビタ ~ リ ジロ ター ュ ビタ バリー。 上 9^ リウ エー | 
GII 旨 RSNIMERGH22 ニ ー コ ーー _POSITION III コニー ニー ニー ニー ニー ニー ニーーーー ン 
1 で ERHTH すう 1 BT 。 寺 。 UE に UM に 4 ロア で 1 コロ 1 。 さ 1 。 で 中 民 
15BB DRHTH BT 。 1 ロ 。 5 で 。 で さ 。 生日 で で 生日 。 王 ら 。 ーー * デュ 1. 
1S3R PRTR っ 5。 1 1 ロ 5。 13 で 3 ュ ピ ロビ: 中 回 。 さ 。 昌 『 
1EEEI ERTH 3: 日 。 日: 1 、 1 。 う 9, 1 1.5。 10。 1。 


161 昌 
16ZE 
153H 
1EH 昌 
155 昌 
15E 四 
1Er 昌 
15 加 
153EH 
1r 届 回 
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BCIH7 。 BB。 ロマ FF , ロロ 。 FFFF 。 BB。FFFF 。 SF 
日 FFFF。FFF。FFFF。FFFF。FFFF ,FFFF , FFFF ,FFFF 
3 FFFF。FFFF。FFFF。FFFF ,FFFF 。FFFF , FFFF 。 ロ FFF 
FFFF 。 ロコ F ,FFFF 。 II。 ロミ FF 。 回 。 
BE。 BB11。 2 ロビ 2。 引 2 に EE 邊 11 2 
ES 月 15。 2 オヨ 1 。 さ すす 。 18。 日 
申す は 、 41 す 昌 14。 EBI 
Ba すす 。 ロロ 。 1 ロロ で 。 1 中 ロロ 
直す 2 帳 。 旨 8 ロ 。 帳 四 。 上 本 。 ロロ 
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画像 再生 用 プロ グラ ム ・ リ スト 


























由 BEG 、 時 四 加 。 后 回 回, アビ 回 回 。 回 。 回 還 EIE 。 司 回 加 回 。 1 四 加 HE 
ロ BOBH。GGI。 BOB。 [5EYGlS5ISISI5PISII5ISEESISI5ISPW5I5I5I 
| 回 S 、 ロロ, HE 。 さじ ロ ロロ 。 1 EE。 EE す 加 


上 届 B。 加 加 。 四 四 四 日 四 由 。 回 由 日 昌 。 B。 1 ロ ロロ 


T 有 1FFF:1FFF:1FFF: 1FFF , EEF 』 じ 1F 』 83FF 』B7FE', BFFB 7 HHKE。 う 

3BBG。 34 は, 4438。 3 は 。 3 ロロ 4G。 す 43 ビ , 3 づ BP。 4 和 。 1 ロ 2B。rEHEI HGB。 5: 
_2 ロ PB. 283 ロ 。 で CE2 す CR。 さ は すす すす 。 7。 192 ロ 。 デビ 1 ロ Z。 2: 38441"N5C45 9335 
1 1 ロロ 1 ロ 。 11 ロ さら 1。 で ビュ で ロロ 1 品 。 GEI。 了 EP ロ 。 さじ っ 本 。 さ 445 7 NSK1 で コロ ) 


1919 DRTH 
13 な MM DRTH 
133EH DRTH 
19 中 FRTR 





] 1FFB, 1FFB, BFF BE1 3 じ 1 CB3。 EE7FB1F 


FFFF 。FFFF 。 FFFF 。 4HFF。 FFSR。FFFF。FFFF,FFFF 
PGIS 。 PB ロ 。 BB 。 BB。 2 邊 BB。 BB。 
回 。 ロロ 2 円 。 回 四 。 2 加 四 


1F,EBP7 , EB3。 8 さじ 1 , BE 1 。 GFF 1FFS。 1FF8 HHC- マ 3 


FELiF .E3C ヒ アビ さじ さ ょ FB ロ 7 FBB さ ュ FFE1 BEFE 1 。 1FFB 時 5 提 。 1 
FFFB,FFFB。FFFS,FFF ヨ 。 1FFg: EFE1 , FF じ 1 .FB3。 FE ま 7HHC で 。 う 2 
3 ささ, E3C ァ 。 FEDF 。 BFF BZFD。 3FF 。 ER1F 。 EEF 1 時 は では 5) 


PB。FBg。 FEPGB。FFC ロ 。FFF ロ 。FFFC ェ FFFF。FFFF 7 NEC ロー る う 
FFFE。FFFC。FFFB。FFF ロ 。FFEB。FFC ロ 。 1FB ロ 。 BY 

Cg。 91C。 93E ロ 。 7E ロ 。 9FF9。 1FFB。 さ FFB。rFFB NEC4-7) 
FFF8。FFFC。FFFC, マ FFC。 了 FFE 3FFE。 3FFE。 ミ FFE 

9299。389g, Egg。9993。 993F。93FE。3FF8。FFEgzFF83。FE3F。FBFF Mrdd:bD 
BFFF。FFFF,FFF3。FFS3rFSGF, BSF: GFF 。 ロ SFS。 ロ F 5 
FEFF,EYFF。 1FFF。YFFC。FFCB,FCG 
還 軸 回 回 回 。 EE で 、 で 。 で 7FB。TF 




















性 用 エレ クト ロ 絵 本 











恵 者 さん の 診察 で 『 病 気 の 説 明 』 は 大 切な こと で す が 
時 間 が か か っ て 難儀 な 場合 が よく あり ます . こん な と き に 
話 の 他 に 絵 や 表 を 見 せる こと が で きれ ば , 理解 が 早まり 診 
察 の スピ ー ド アッ プ に 役立つ し , 誤解 防止 の 有力 な 方 法 に 
な り ま す . 

そこ て 試み た の が PC-8001 を 使っ た テレ ビ ・ マ ン ガ で , 
考え 方 は テレ ビ の 画面 に 絵 や 表 を 書き , マシ ン 語 を 使っ て 
再生 する と いう 簡単 な 方 法 で す . し か し , 効果 は バッ グン 
な の で て 発表 し ます . 


写真 2 心 蔵 の 環状 動脈 の 説明 


52 ザ - (1278・ ド ドーXy2 ) 





写真 3 大 脳 の 機能 位置 の 説明 
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1. シ ステ ム 


シス テム PC-8001 (R AM フル 実装 ) と カラ ー モ ニタ P 
C-8043 で 構成 し て いま す . デ ー タ は カセット に 入れ て 使っ 
て いま す が , 将 米 は ミニ フロ ッ ピ ー を 了 予定 し て いま す . 


2. プ ログ ラム の 要点 


前 述 の よう に BAS IC プ ログ ラム で 描い て マシ ン 語 で 
再生 し て いま す . 描く 場合 は どう せ 考 えな が ら で す か ら , 
ゆっ くり 描け ば 良い で し ょ う . し た が っ て BASIC プ 
ログ ラム で すか ら , メモ リ の 余裕 が ある 限り 色々 と 便利 な 
手順 を 付け 加え て いく こと が で きま す . 再生 時 の マシ ン 語 
プロ グラ ム は 画面 再現 の 時 間 が 早く , パッ パッ と 思い 通り 
絵 が 出 て きま す . 

こん な 観点 か ら , ここ で は と りあ え そ ず 次 の よう な 仕様 を 
交 で が まし だ 
⑩ 絵 は ドッ ト ・ グ ラフ ィ ッ ク と キャ ラク タ ・ コ ー ド 表 に あ 

る 各 シ ン ボ ル が 併用 で きる こと . 

@ 白 黒 , カラ ー が 任意 で ある こと . 
アニ スッ 作製 の た め , 現われ て いる 画像 の 上 に , さら に 追 

加 , 書き 加え , 変更 が で きる こと . 

@ 画 面 作製 時 に タイ トル を 書く こと で , 再生 時 に 内 容 の リ 

スト が 一 覧 表 と な っ て 表示 で きる こと . 
再生 に は 必要 な 画面 と 再現 枚数 が 指定 で きる こ 
再生 時 に 気に入っ た 画面 を 選ん で , それ 以後 そ 

も と に 追加 、 変更 な どの 操作 が で きる こと . 

め 画 像 再生 は 明 時 で ある こと . 
で きる だ け 多 く の 画 面 を 入れ る た め , メモ リ の 節約 を 図 

の 2ERG 


3. プ ログ ラム の 概要 


BASIC プ ログ ラム の フロ ー チ ャ ー ト を 図 1 に 示し ま 


と 
の 画面 を 





1O 


1 (a) BASIC の フロ ー チ ャ ー ト 








CLEAR.WIDTH,CONSOLE NAO な の 
フサ 7 
第 1 案内 図表 示 


a) 書き 込み の フロ ー チ ャ ー ト 





2 守 
色 , 方 向 数 印字 





カキ コミ オ ワ リ 表示 
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図 1(b) 


BASIC の フロ ー チ ャ ー ト 





b) 再生 の フロ ー チ ャ ー ト 


タイ マ 


画面 数 オー バー 表示 








1 行 目 表示 
| マシ ン 馬 USR4( リ スト ) | 







ms? っ 


マシ ン 語 テー ブル ・ プ リセ ッ ト 





? 
eS 


968 


画像 テス ト 


画面 テス ト 用 プリ セッ ト 














4. 書 き 込 み の キ ー 操 作 


第 1 案内 図 

恨 WN| す れ ば 『 第 1 案内 図 。 が 現われ ます ( 図 2). 要約 

する と , 

a) 絵 は グ ラフ ィ ッ ク ・ シ ン ボ ル を 使用 し ます . 略 画 を 描 
くに は 一 番 便利 で す . 

b ) 色 の 指定 は キー ボー ド 左 上 の 数 字 キ ー を 使い 図 3 の 
よう に マニ ュ ア ル 通 り に な っ て いま す . 

c ) 描い て いく 方 向 は テン キー の 方 を 使用 し ます . 汎用 さ 
れ て いる 方 に 従い まし た ( 図 4). 

d) ファ シク ショ ン ・ 
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キー は 図 5 の よう に 使い わけ まし た . 


e ) この 他 の キー は 図 6 の よう に 使用 し まし た . 
『 第 1 案内 図 』 が 理解 で きた ら 較 還 間 を 押し ます -. 
紀 第 2 案内 図 
する と 第 2 案内 図 が 現われ ます が , 第 1 案内 図 中 の ファ 
・ キ ー の 説明 で すか ら , すでに 判っ て いれ ば 次 














ング ジョ ジ 


へ 進み ます . 


罰 作 画 
4 か | を 押し ます . 
a ) 4 | を 押し た 場合 


テレ ビ 面 。 左上 寄り の と ころ に ドッ ト が 白 点 で 示さ れ 
ます . キー を 押し な が ら , 方 向 キ ー で 任意 の と こ 
ろ ま で 持っ て いき , 色 の 指定 キー を 押し て 色 を 決め , 方 
向 の 指定 キー を 操作 し な が ら 描 いて いき ます . 

















図 2 書き 込み の 手順 
一 第 | 案内 較 
| 
本 還 旧 一 系 2 宋 内 較 
本 胃 - オ ワリ 
| 5 に ルル ル を: 叙 G(:( 


ドッ ト て 描 バ 一 


葬 語 胃 タイ トル を 書く 
の 作 < く 
| RET 放 交 ん ) 
| 「・3 了 ま ルル の 
7! 「・2 | 





図 3 色 の 指定 











キー と [HHMEWW| キー を 使い 分 け て , 描い て いけ ば 任意 の 
図柄 が 描け ます . 


隔 HIETWI キー は 消去 し な いで 軌跡 を 描い て いく の で , ドッ 
ト の 追跡 に 便利 で す . 
BB) | 困 8| を 押し た 場合 

まず , 画面 中 央 に 白 で n と 出 て きま す (Q は run の 最後 の 
文字 で す ). グラ フィ ッ ク ・ ス イッ チ を 押し な が ら 任意 の キ 
ャ ラク タ ・ シ ン ボ ル を 押す と , 同じ く 折 で n が シン ボル の 
図柄 に 変わ り ま す . 次 に 色 の 指定 キー を 押す と 色 が 指定 の 
色 に 論 わ り ま す . 

そこ で , 方 向 の 指定 キー を 使っ て 描く の で す が , グラ フ 
ィ ッ ク の 場合 と 異な り 方 向 キ ー を 1 回 押す と , 1 つ だ け 同 
一 の キャ ラク タ ・ シ ン ボ ル が 描か れ ま す . 

この よう に し た の は 使い 勝手 が 良かっ た か ら で , 変更 も 





自由 に で きま す . な お , 色 , 方 向 と も に 押し た キー の 英 数 
字 が 一 明 現 われ ます . 特に 消去 時 (スペ ー ス ・ キ ー 使 用 
時 の こと ) の 位置 確認 に 便利 で す . 

必 タ イト ル 付 け 

描き 終っ た ら | 不 調 | を 押し ます . する と , 画面 上 部 に 画 
面 番号 と 今 描 き 終 っ た 絵 を , 書き 込む べき メモ リ の スタ ー 
ト 番 地 が 現われ , 数 秒 後に 中 央 の 一 部 が 消 を ます 

そこ へ ヘタ イト ル 名 を 書き 込み , 次 に 還 = 着 を 押し ます . 
回 次 の 作業 は … 

する と , 次 の 作業 を 開い て きま す . それ に 従っ て | 誌 還 | , 
f・2|. |f・3|. ある い は 限 還 | キー を 押し て くだ さい . 
た だ し , 押し 違え る と [STOP| キー 以外 は 押し 違い を 表 
示す る た め 、 正しく 押し 直し て くだ さい . 際 m@ 丁 キー を 
押せ ば BASIC プ ログ ラム は 中 断 し ます . 

回 新 画面 に する に は 

f・1| を 押せ ば 『 第 2 案内 図 。 を 表示 し ます . 新しく 別 
の 絵 を 書く 場合 は , 続い て 了 還 | ぁ あるいは [ 杭 還 | を 押し ま 
す . 
軌 旧 画面 に ドッ ト で 追加 する と き 
f・2| を 押す と , 人 の 画像 が その まま 残り 画面 最上 部 に 
案内 と 共に 左上 方 部 に ドッ ト が 白く ポツン と 出 ま す . し た 
が っ て , この ドッ ト を 使っ て 画面 に 追加 . ある い は 変更 を 
加 を て いく こと が で きよ まな, 

回 I 旧 画面 に キャ ラク タ て 追加 する と き 

ほ ・3| を 押し た 場合 は 、 画 面 中 央 部 に goto の 文字 が 
同一 場所 に 次 々 現われ て は 消え ます . 消 を ん た ら キ ャ ラク タ 
・ シ ン ボ ル を 使っ て 画面 に 追加 . 変更 を 加え る わけ で す . 
回 終了 し た いと き 

限 罰 を 押す と 今 の 画面 を メモ リ に 書き 込ん で 『 書 き 込 
み 終り 』 を 表示 し , プロ グラ ム を 終わ り ま す . 

0 追加 が 終っ て 

軌 . 回 で それ ぞ れ 絵 の 追加 。 変更 を 終え た ら 上 還 罰 を 押 
し ます . 

Ii 追 加 の タイ トル 
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図 5 ファ ンク ショ ン ・ キ ー の 指定 
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図 6 その 他 の 指定 キー 
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ンク ジョ CS わ 8 ド ツ ョ KG も 
消去 し た と き 使 用 


ドッ ト の と き 消 去 し な いで 軌跡 を 描く . 
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画面 上 部 に 還 と 同様 に タイ トル を 書き , 了 還 言 計 を 押し ます -. 
[2 継続 
以下 同様 に 新しい 画面 に 移る の な ら 再 び 町 
加 す る の な ら 了 [る | [ 写 3] を , 中 止 お よび 終了 する な ら 
[ 良 還 | を 電 し ます . こ うし て 次 々 と 書き 続け て いく わけ で す . 
1 メモ リ ・ オ ー バ ベー 

メモ リ の 余裕 が な く な る と 『 メ モリ ・ オ ー バ ー』 を 告げ , 
その 画面 を メモ リ へ 書き 込ん だ うえ , 終了 し ます . 


5. 再 生 の キー 操作 


画面 テス ト 
| PR を 
(HIET| キー と [ 構 4| を 同時 に 押す ) を 押す と , 

PE 
す . 
図画 面 再生 

F・8| (ISHmFT| * 
入っ て いる 画面 の リス ト 一 覧 表 が 現われ ます . そこ で 希望 
の 画面 ナン バー を 入力 し , 次 に その 画面 か ら 何 場面 出す か 
を 入力 し ます . 

する と , まず 希望 の 画面 が 現われ , 続い て 入力 し た 画面 
数 が 終る まで 順次 画面 を 表示 し ます . な い 場 面 まで 求め ら 
れる と 『 オ ー バ ー。』 を 現 わ し て , 再び リス ト を 出し ます . 
し た が っ て , 押し 直 じ て くだ さい . 
回 終了 

町 、 図 と も 終 れ ば 展 量 | を 押し て 終了 し ます . 
略 追 加 変 更 

再生 時 に も 画面 の 追加 変更 が 可能 で す . これ を 行なう に 
は 、 その 画面 を 呼び 出し て (画面 数 は 国 を 入力 する ) 限 証 | 
の 代り に 且 を 押し ます . 

する と , | 低 | か 大 "3| か を 尋ね て きま すか ら 【 書 き 込 
み 〕 時 と 同様 . それ ぞ れ 固 |  |#・3| を 使い わけ て 押し 
ドッ ト ま た は キャ ラク タ ・ シ ン ボ ル で 書き 加え て いく わけ 
で すず 。 

特に 注意 を 要する の は 追加 , 変更 を する と その 画面 以降 
の 呼び 出し が 自動 的 に は で き な く な る た め , 画面 番号 と ア 
ドレ ス を 控え て お いて 手 で 入れ て や る 必要 が 起き ます . 
再生 時 の 手順 は 以上 の よう に 簡単 で す が , 表示 する と 図 
7 の よう に な り ま す . 


6. マ シン 講 ブ プロ グラ ム 


GET@, PUT@ な どの N- BASIC 言語 を 利用 すれ ば 
画像 の 扱い は 簡単 で す が , 最初 に 述べ た よう に メモ リ の 節 
約 と 画像 の 瞬間 再現 を ね ら っ て マシ ン 語 を 使用 し て み ま じ 
だ 。 そして,。 マ シン 語 プ ログ ラム の 仕様 は 次 の よう に し ま 
し 55 
⑯ ビ デオ RAM エ リア 上 の 絵 の 位置 と 大 きき さ を 判断 し , タ 
テ ョ ヨコ 必要 最少 限 の 大 き さ を 決め て 画素 を メモ リ に 取り 入 
れ ま す . 
アデ トリ ビュ ー ト ・ エ リア 上 の , 変化 を 起こ し て いる デー 
4 を 探し て 幅 を 決め , こ の 範囲 内 の デー タ を メモ 

) に 取り 入れ ます . 
2 
プロ グラ ム の 作製 を 簡単 に し , 通常 の 使用 法 (書き 込ん で 
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か ら 引 き 続 き 再生 する 場合 ) で は . BASIC プ ログ ラム 
に 続い て マシ ン 語 プロ グラ ム 分 だ け (デー タ 分 の 領域 は 不 
要 ) を カセ ッ ト ・ テ ー プ へ 移せ ば 良い よう に し まし た だ (A 
0 0 0 番地 か ら A32F 番 地 ま で ). 
⑳ タ イト ん ル 並み に タイ トル 一 覧 リス ト 用 に も 同様 テー ブル 
(9FF0 一 9FFF) を 使い まし た ( 図 8 ). 
⑥「 メ モリ ・ オ ー バ ー』, 1 204 ッ セ ー 
ジ 表 示 用 。 あるいは , テー ブル の プリ セッ ト 用 な ど に も そ 
れ ぞ れ マ シン 語 プ ログ ラム を 利用 し まし た . 
マシ ン 語 は 原則 と し て 8080 用 の を 用 い , 
追加 し まし た . 
@ メ モリ 節約 と アニ メ 効 果 増大 に は さら に 良い 方 法 も ある 
と 思い ます が 今回 は 汎用 性 を 考え て プロ グラ ム を 決定 し ま 
| の 
マシ ン 語 プロ グラ ム の 構成 (リス ト 参 照 ) 

No.1 画像 スト ア ・ プ ログ ラム (USR0) 

前 に 述べ た よう に BASTIC プ ログ ラム で 画 い た 画像 の 
タテ ヨコ の 幅 を 探し て 決め , 必要 最少 限 の 領域 を メモ リ へ 
書き 5A み ま 9 有 NE テート ・ エ リア に つい で や 同様 に 
必要 な 幅 だ け の 分 を メモ リ へ 蓄え ます . 

No2 画像 再生 プロ グラ ム (USR1) 

鞭 え を た な た メモリ の 内 容 を ビデ オ R AM エリ ア 上 に 再現 し, 
アト リ ビ ュ ー ト ・ エ リア に も 同様 の デー タ を 移設 し ます . 
No3 プリ セッ ト ・ プ ログ ラム (USR2) 

まず , タイ トル 用 メモ リ に FF を 書き 込み , 2 つの テー 
プル に も 必要 な デー タ を 書き 込ん で お きま す . 

No4 タイ トル ・ ス ト ア ・ プ ログ ラム (USR3) 
画面 上 端 の 第 1 行 目 に 表示 され た 画面 No, メモ リ 開始 番 
地 と 書き 入れ た タイ トル 名 の 16 廊 字 分 を 順次 に メモ リ へ 敬 
を て いき ます . 

No.5 タイ トル ・ 人 (USR4) 
画像 再生 時 に リス ト を 一 覧 表 に し て 表示 し , 画面 No や 再 
本 

No.6 再生 画面 に タイ トル を 付け る プロ グラ ム (USR5) 

画面 上 端 の 1 行 目 に タイ トル を 再現 し ます . 


ー 部 有 Z80 用 の を 


図 7 再生 の 手順 
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図 8 画像 的 お よび タイ トル ・ リ スト 用 テー ブル 
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写真 5 ドッ ト て で 描い た と き の 画 面 


7. そ の 他 


画像 再生 時 の BASTIC プ ログ ラム に 少し 手 を 加え る と 
画 の 繰り 返し 再生 が で き , アニ メ 効 果 が 向上 し ます . その 
一 例 を プロ グラ ム ・ リ スト で 示し ます (リス ト 4). 

これ は 限 W 半 | す る と , 画面 内 容 の リス ト を 表示 し ます . 
そこ で , まず 希望 の スタ ー ト 画面 No を 入力 し , 続い て 反復 
する 画面 数 を 入力 , 最後 に 繰り 返し 回 数 を 入力 し ます . す 
る と , アニ メ 式 に 希望 の 画面 が 繰り 返し 再現 で きま す . 画 
面 内 容 の 全部 は 疾 請 罰 を 押せ ば ゆっ くり 出 て くる の で , 必 
要 画 面 を あら か じ め 見 る こと が で きま す . 

プロ グラ ム の 作 制 に は 『 書 き 込 み プ ログ ラム 』 で 作画 を 
終っ なら, そこ へ テー プ か ら こ の 「『 編 集 プ ログ ラム 」』 を ロ 
ー ド する だ け で で きま す . ロー ド す る と 「『 書 き 込 み プ ログ 





ラム 』」 が 「『 編 集 プ ログ ラム 』 に 入れ 替り , マシ ン 語 プロ グ 写真 6 キャ ラク タ で 描い た と き の 画 面 
ラム お よび デー タ が その まま 残っ て いる の で , すぐ RUN 
で きま す . 


以上 で 説明 を 終わ り ま す . PC-8001 も TK-80BS の よ 
うに ハー ド 的 な こと まで も う 少 し わか る と 良い の で す が , 
乏しい 資料 と 手探り 式 の 勉強 で 一 応 こ ん な こと を や っ て み 
まし た . 実際 に 使っ て みて 加 者 さん に 好奇 の 目 を 見 張ら せ 
な が ら , 病気 を 理解 し て 貰う こと が で き , 趣味 と 実益 の 両 
得 を し た よう な 良い 気分 で 診察 が は か どる 昨今 で す . 
参考 文献 
1 ) NEC : PC-8001 USER'S MANUAL 
2 ) NEC : PC-8001 N-BASIC REFERENC- 

E MANUAL 
3 ) N-BASIC 入 門 ,. アス キー 出版 
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写真 4 RUN 直 後に 表示 され る 第 1 案内 図 写真 7 アニ メー ショ ン 例 体操 その 1 
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写真 8 アニ メー ショ ン 例 体操 その 2 写真 0 アニ メー ショ ン 例 体操 その 3 
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書き 込み 用 プロ グラ ム ・ リ スト 
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書き 込み 用 プロ グラ ム ・ リ スト 
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326 LHCHTEE,BEPRINT"Lh キ コ =H"EL ロ CHTE2 ロ SiFRIHT"T ・ 0 キャ 329 ラコ ィ m ロ コリ 
3 LODCHTE4B。9:FRINT" ト ミド 1 キキ コロ コート キリ 

34g LnCHTE2,1 ロ IPRTHT"T ・ 4 gt ラコ rg コリ 

359 LnCHTE3 る 。 13EFRINT "ff ・ さ ・・ キャ ラ g5g コリ 


36g LHCEHTE14,14IFRTHT" モ 2 1 イ が 5 キト エイ トキ 


* 


379 LnCRTE33,15*PRITNHT"Tf ・ 2 ・・ トト ユリ 
38g LHCEHTE14,17EFRIHT リ オロ タイ トキ RETIURHN 122 つい サ イリ 


39g LOCHTE6,21:PRINT" 例 生 呈 キ セ ラ 5 て 12 キラ 22 イロ ー <③ う ホコ ーー ) デュ ドー Th 
テ の の "サイ リ 


499 LEHTEE,2kFRINT リ ーーーー ト Ta ト (13 イロ 〈27 ホー コー ト 。 (③) スパ ペース < り リス ウッ (92 ジフ コト 〈 キ セキ ッ 
kiHUBDMMMM 


1 2 ま =THKREW 生 : ITF Z 和 ま = ニ "VVTHEH 419 

42 ドド =IHFG13ETF ド R=127 THEH Sa 

3 E=IHFC9iETF E く >239 THEH 449 ELSE BHTD 9 ロロ 
4 IF ESE22 ス THEH 1 回 

5 PRIHTEHR 和 てく 12) 5 ロ OT ロ 46 引 

46 ロ hi で ます 誤り 上 ニ 1 

479 HH ま =INKEY キ IF H*= リ " THEH 4 

48g FR=IHFC171TF R=127 THEH rg 

49 ロ 5=THP9)〉#E=IHF〈9): IF ビ =253 THEN 7 

Sa =IHFC6)IGH5LUB 6 


519 IF 昌和 を ま ="2" THEN SE ELSE IF H$="1" THEH S59 ELSE IF H$="2" THEH SS ELSE IF H 
* ま = る" THEH 55 ELSE TIF H 和 を ま ="4" THEH コロ 


529 IF 日 ま ="5" THEN 5 ELSE IF H ま ="6" THEN 55 ロ ELSE IF H$=" ア " THEN SSg ELSE IF H 
ま =" 。! THEF| 5 ELSE IF H ま ="。! THEN 55B 


53 ロ 日生 = 日 
4 LHCHTE SR.WkFRTNTB 和 を: ロ HTH 479 


』O 


書き 込み 用 プロ グラ ム ・ リ スト 


SSg GSHB 57g 
Se LHCHTE SR: WIPRINT 昌和 を ま IFDR 1=1 TO 5giNEXT TIGOTO 54g 
S7 IF 5=25 コ THEN =i ソ = 
S8G IF =254 THEN ニー1 1 "= リロ +1 
599 IF 5 ら =253 THEN =ー1 

69 IF =23G THEN = ニー1 : "ニー1 
619 IF ご =223 THEN = ぴー1 

629 ITF =191 THEN =+1 1"= ニ リー1 
ら 63 1F 5S=247 THEN =+1 

64B IF R=223 THEHN "= リ +1 

ら 659 IF R=191 THEN =R+1 1"= リ +1 
ら 66 RETURH 

67 ロ IF に じ =255 THEHN D=b 

ら 89 IF ビ = ニ 254 THEN = ロロ 

ら 699 IF じ =253 THEN D=1 





7 IF に =251 THEN D=2 

1g9 IF に =24? THEN D= ミ 

2 IF C=239 THEHN D= す 

739 IF じ =223 THEN b=5 

749 IF C=191 THEN D=6 

Sa IF =12Z THEH D= ァ 

76g CHLHR DD:,1RETHRH 6 

7 L ニ FEEKCE&HRggE > =PEEKC&HHGD>*TF L>=226 THEN 89g 


8 ド K=R+1 iCEHLHR ELHEHTE2B。 IFRTNTKILOEHTE31 ziFRTNT "2 イマ 』 了 アト "レズ "HE を (LDHER 和 まく MsF 
HR =1 TH BENERT 


79 ロ LHCEHTE3Z: EE FRTHT" "iLUEHTE46, ロ IFRINT" キ エ V トコ ロ ェ タイ ト l ラ 2 コト MMH 
HEHE 1 ロ 2 ウ 


SB EEFLISR= 広 HHB1 IKELISRC 


S1g CDULHR 7ELDCHTE6, 5 FRTHT "7 ラメ テ ナラ <1 ラ ヲ 。』@ リ イナ う +・2( ト " ッ ト う > す ・ う で キ b う ) ヨ 。 ヤメ は すう 
RET 3 4 ぷ コ ト "EIGHTU 83 ロ 


82g CHLHR4:LHCHTE6, ロ FRTNT "計れ ドイ ! 。 f・1 て 9 和 キラ コ ) 下 ・2 て トニ = リ ウイ うず ・ さ (キャ = ウイ h5 RETC オ ワリ ッ 
3 ナオ マコ ト "IEHLHERP 


ら 93 を =IHKEY ま 1 ITF ごま =" "THEH 3 


849 LHCHTEE: 避 EPRTHT" カイ メー 』】 リ イ 打 a カカ 47ktyd5 ララ が 
297 9 イリ ILOCHTE28, ロ is FRTHTR 


S5 り E=IHFC3DiER=IHFG1) 


96 ロ IF R=127 THEH BZ り ELSE IF E=247 THEN Q=R+1:HTD 369 ELSE IF E ビ =25S1 THEN =Q+1 
5GUTH 319 ELSE IF E=253 THEN 2 ELSE BZ 


_ Br FRIHTEHR ま 6125 


156 





』O 


書き 込み 用 プロ グラ ム ・ リ スト 
Sa CEHLPE で ELHEHTE3。1 ロ EPRIHT" キ コミ オロ リリ ILODCEHTE16.29:PRIHT "お "リー サイ モイ ロ 務 ・8C 
5HIFT+f・ そ ) テスト ロ T・ ヨ CSHIFT+f・42 ェ エス "LUDCEHTE ロ .9: END 
89 ドー ド +1 FETHTEHR ま で 125gEHLHE 4iLOEHTE2E、5iFRTNT" お OU オー いい -ー アパ ULGHIU SS9 


39 ロ FETHTCHR ま (て 12 

91 = ア ま ロー リー1 マ 

9329 じ =IHP(65〉>IGOSUB 65679 

323 =IHFCGBDIR=INFG 1 IHSUB 57 ロ 

249 E=IHP95: IF E=253 THEH 77 

959 IF E=191 THEN 999 

269 IF R=127Z THEN 87g 

979 F=INFC82: TF F=191 THEHN 1999 

2989 IF FDIHTCR,V) う =-1 THEH 929 ELSE PSETK,V>sGnTH 92 ロ 
299 jiF FIIHTCM。M う =-1 THEH PSETC で RW5IPRKESETCR。WDI nHTH 2 
199 IF FUIHTCX。W う =-1 THEH FPSETCK, ツ > ELSE PSETC%。W>sFRESETCX。 マ > 
191 四 HIT SEE 

192 け 上 =INKE' ま ?F 和 ネ =THKEW$ ま ロ を =TNKEV を 

1H3E ニコ! リー ロロ 『 ビニ ロ 

1949 D ま =INKEV ま 5TF D$=" "THEH 1949 

1 ロ 95 E=1HFC9): IF E=25 さ THEH 198 

1969 LUCHTER。YiPRINT D$ 

197 = ニ X 十 15 ゼニ ジ +1: TF ご = ニ >8 THEN 1g39 ELSE 194 

1989 DEFUSR3=&HH2ZB9: =USR る くう 

199 RETLIRHN 





画像 再生 用 プロ グラ ム ・ リ スト 


1199 FRINTCHR$ く 12):LDCRTE22。 19sCOL ロ R4EPRINT" 1) が go 2 スウ 9 オー ロー 1 本 は す 4119 8 
FOR 1=1 TU 15BBiNERT TiCOLOR 


1119 MMTDTH, 2sPRINTEHR ま (1255LUCEHTE22, ロ EPRINT リ * * リ ズ ト ポポ だ 中小 MINXJ220 り Oi 
イキ RET オス コト) リ "=1 5 由 =1:H1=5 ロ 中 


1129 [IEFUSR 叶 =&HH2B9I =UGR 和 で V5sGOTH 1139 

113B LHCHTEZZ・185PRIHT" キ 村 一 』 が ァ ラ コロ "> 

1149 LHCRTE4 は 18: INFUT 0 

115 LHCHTE2Z:19: FRIHT" り 』」 エ カラ う J カメ ンズ ウゥ て n ミ 5 タコ トラ リッ 
1169 LDCHTES,19: INHPLT T 

117 MITETH。 ZI ロロ 1= ニ 2 

118 り ロ =FEEKCE&H9DHE+ ロ 1 2:H=FEEK く &H9DHF+H1 > 

119 PUKE &HHGEO: ロ FIHRE SHHBE1 .HIGHTH 121 ロ 


1299 CDHSDI EE 9 1: MIDTHEH: 25: POKE &HHGBg: &H39: PDKE SHHOg1 : HH うま 罰 ニ 1 0= ニ 1 5H1 ニ 1 ロロ 9sT 
=FEER SHGFF2 ッ GOT 12 う 中 


| 


10 


人 視力 検査 プロ グラ ム ・ リ スト 








マシ ン 語 リス ト 
(1 画像 スト ア ・ プ ログ ラム (書き 込み 用 ) USR0 & HA010 


0O1OD S1 OO OO コ さ 9 22 BS E ワ 9 さ 1 0 E ウ SQ QOD QO SS _ 00 RO ji18a 
QOS2O C5 D5 E5 F5 QAF F 紀 Q6 15 2S1 7B F さ D9 00 QQ OO 00 i98 
人 OSO GS1 CB F ミ 11 7 FS D9 OE 50 SE 00 BE OO 00 0QO_ OO isBE 
AO40 CS CO AO SS OD CS SR RO 11 2B 00 19 F1 3C FBS Di3C 
OO _ 01 7 OO 09 EB 09 ER D9 05 CS 37 0 F1 QO 00 09 iC5 
060 さ 全 OCRO S1 09 AO 96 さ C SS 06 QRO 3 QB aO OO OO sg3F 
OZ7O GS1 OR QRO 96 32 07 QRO SR _ 00 aO ER 2S1 OO 0O_ OO0 OO kBO 
OBG Q ロ 1 10 OO ED BO SR OS RO E5 CD BB 1 2 Q4 aO OO i 全 き 
OO CD 90 Q1 CD 9 1 Q5 CS 50 aO E1 CD 1 Q0 OO iD 
人 QRD CD B4 人 a1 CD 90 合 1 CD 98 1 05 CS 人 a さ aO CD B4 人 Q1 : ら コモ 
OBO EH GS QOD aO CD FB Q2S F1 E1 D1 ビ 1 2 BS2 E9 F9 C5 iDC 
人 aOCO F1 さ S 0O9 AO D9, SS OSG RGO EB SS Q4 aO_D9 OO _QOO 09 :FS 
RODO 選 1 7 F ミ E5 21 7 ヨ F さ 06 59 11 7 QO_QE 15 3E 09 :3D 
aQOEOD BE CS F5 AO 19 OD CE EQO aO E1 2 E5 QB CE DC RO 9 
RQOFG CS 60 QRO OO OO SR 0O4 RO RF 3E 4F Oo 4F 5 6F GO iaO 
人 100 3E OO BC 67 22 04 O 21 OR 0O 71 21 ビ フ 2 FS ES OO kFS 
11QO Q6 SO 11 728 OO _QE 15 SE QG EE CS 30 1 19 0OD 0 :EBZ 
人 120 CS 19 全 1 E1 2E E5 QOS CE 15 1 CS 60 aO_ OO _ 00 QO saD 
人 13 さ DO GS1 OB AO 70 21 27 FD Q6 15 3E 0O 11 DB FF QO_ 00 CE 
人 140 OE 5O EE CS 54 1 2E OD CS 42 1 19 05 CS 40 人 1 = フ 1 
人 150 C3 60 QRO_ OO S1 0OC aO 70 SS1 EE FSS E5 06 SB 11 78 :5E 


人 160 GO OO OO OO_OE 1 旨 7E 19 EE CS BQO 1 QD CE 66 人 1 : う 1 
全 170 E1 SE ES QS CS 64 1 C3 60 aO _ 00 _ 00 00_ 00 OO 00 :BGO 
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&O 


画像 スト ア ・ プ ログ ラム 





a1BO 1 OB AO プア 0 CS 60 aO OO ES 2S1 06 0 46 E1 C9 QQO sz 
人 190 E ロ SB1 07 aQO 4E E1 C9 00 7E 1SE デ S は. 2 の F ツ ED 。s ら ビ 
Aa1QO 4 a1 C9 OO D5 11 7 OO CD 50 1 2BR 91 コロ F も 9 3 ま 。sBF 
人 1BO CO OO QQ Oc GAQ 07 AO 5 呈 5C EH 22 907 aO E1 i5 人 8 
台 1COD D1 CO DC On0 OO OO OO0 OO OO OO GO OO OO ER 
SFO SQ 日 全 E ウ 9 C9 00 OO OO SR FN 9F Q ロ 1 OO DO ロ a 277 ESD 
人 OO 0O さ ス 2 コ 0 フフ 2 2 F さ 9F C9 OO_ OO 00 OO QO OO OO i 人 4 ア 














QA1DO 21 OO OO 39 22 B4 E9 さ 1 0 E9 2 0 
A1EO Q1 10 OO ED EO C5 D5 E5 F5 2 OO0 aO 
aa1FO 19 EE SQ OS AO E5 CD BB a1 2 Oo4 aO 
AG2OO SO AS Q5 CS FC 人 1 E1 CD BB a1 CD B4 
210 CD 90 QA1 CD さ 0 82 05 CS 10 a2 CD B4 
OO AO F1 E1 D1 ビ 1 2Q 4 E9 F9 Cg 
フフ 23 13 OD 20 F9 CD a4 a1 C9 OO 











向 240 語 SN OO0OONSS の ZENBWE9 さ 1 04E マ 選 弓 和合 1 
と 1970) 5 5D (67o) sD1 

⑦ ビ 守 き 9879) Hn 1 和 4 

人 GD D1 6 記 思 本 

















QBO で 1 O0 OO コ 9 2 BB E9 コミ 1 ヨ O E9 C5 D5 E5 F5 21 FO :OE 
Ao90 9F 5E 2 6 21 1 FS O1 10 OO ED BO 21 FO 9F 23 ょ 79 
AS2QO SG コ フタ 4E OC OO 71 F1 E1 D1 C1 2 BB E9 F9 C9 :44 











AEBO SG1 OO OO 3 コ の 9 22 Ba E ウ 31 0 E9 C5 D5 E5 F5 S1 90 iiE 
AoCO 9E 11 00 F4 06 OS OE 12 C5 01 10 OO ED BO E 全 1 s44 
a2DO 6 OO 19 EB E1 7E FE FF OO CA EB 2 C1 QOD CE CB gi74 
acEO QA2 11 2O F4 0 C2 Co 2 22 F フ 7 9F E1 F}1 E1 D1 ビ 1 :F3 
2aFO 2 BA E ウ 9 F9 C9 OO OO OO 2A F さ 9F 01 00 AO 0 人 77 3D 








人 31D 2S1 00 9 22 BC E ウ さ 1 BO E9 C5 DS E5 SA F5 9F sCB 
32O 11 SO 10 00 ED EO E1 D1 C1 BA BE E9 F9 C9 ga 




















テレ ビ ・ ア ニメーション 編集 プロ グラ ム ・ リ スト 
0 に の EC ミリー 
29 FLEHE 5 。 HDP9F IMTDTHB ロ 。25: ENS ロ LE。 。 ロ 1:KEVB。 "Prtnt "EKEY9. "oto17" リ +CHR ま (1 さ ッ 
sGHTH 維 加 

RB FRIMTEHR を (122:LHEHTE22。 19: COLOR は sFRINT" II が メン スウ オー mn ーー 0! ポ み 42111VEFD 
KR !=1 TO 15ggiNERT TIEOLOR ア 1 


_4g MIDTH、2gIFRINTCHE* ま て 12:L ロ CHTE22,9:PRTNT" ポリ ス ト * ** (キー】 スウ リー イ テ 
RET ラー オメ コト )"*T=1:=1:H1=5ggT4=1 





5g PEFUSR4=&HR2BG: =U5R4CV3 

6g LOCHTE22. 1?:PRINT" キ 村 ー ) が メン ワウ": 

ィ m LnCRTE49。17: INFUT ロ 

89 LOCRTE22, 18:PRINT" り ) エ 5) が "メス 9 Cn ミ に ヌコ トッ 
39 LHCRTE5B。 18: INPUT T 







PRTHT" ナ ン h イ 5 リカ エコ マカ"。 
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テレ ビ ・ ア ニメーション 編集 プロ グラ ム ・ リ スト 





160 








季 用 の 昭 奈 錠 ・ 
グラ ・ タ ・ 
、 | FIRE RESGUE …ーーー ト ー ト に eseec 
TAIR 局 M 枯 wwewaeseweo 放 ーー 
ヌー レック ・ ラ の の 32320828555 隊 al 


を 
に ア レク ンタ ング AT 























ドキ 3973 2 の 97 1 


2% み 多 マ ン で eeeeteeeokeeotkcke 3 一 共 遇 同 部 委 誤 / 傘 門 補 rs205 」 
822KSYNX2ELCC 渡 遡 卓 亀 9 | 


し 上 よ 
| 
」 
上 
由 
③ 
で 
上 
NN 
【 
い N3 
【 ン 2 
で 
| 
NN 






re も turn ヲ ラ 


1 


LO ETE3 





ショ ラン イッ ク 麻 雀 ケ ニーバ 請 2022RMR24A2222 
PCG キ ギャラクシアン 

Si7 イ ルコ マン タニ 

スペ ー ス ・ チ ェ イ ス ……: | 生 スト けい 


村 
= 


















本 ノブ イチ ノ イロ ハナ フン テ * ス ) ウラ 
ソノ num わ Der ラ ヲ オシ return ラ オズ 


還 HL | 


し 和信 





ト _。。 等 時 流 遇 1 コ 





トク 
まき まっ Iirnl 


に 3 き 
ji-S0 丁 W 












LtiSa)LIH 


司 層 











/ 中 び 方 


画面 中 央 下部 に 現われ る へ リコ プター を 操縦 し な が ら 共 
地 に 替 弾 を 投下 し て 破壊 する の で す . へ ヘリコプター は テン 
キー の | で 降下 , [4 で 上 昇 し ,[@RPH| キー で 爆弾 投下 で 
す . 上 空 で は 空 対空 ミサ イル が , 地上 か ら は 地 対 空 
ル が 飛ん で くる の で 人 避 け て くだ さい . また だ , 地面 に 衝突 
て も ゲー ム ・ オ オー バー です. な お , 画面 に は へ リコ プター 
の 飛行 軌跡 と 爆 弾 の 落下 軌跡 が 表示 され ます . 


/ 得 貞 に つい て 


手抜き を し た た め , 爆弾 の 投下 し た 位置 の 地面 か ら の 高 
さ に 関係 な く 基 地 1 つ で 1 点 で す . 高 得点 を 得る に は , 地 
面 ス レス レ を 地面 に 浴 っ て 低空 飛行 し [GRPH| キー を 提 
し っ ぱな し に すれ ば いい の で す . YA こ 当 る 
まで 次 の 爆弾 が 投下 で き な い こと を 考え れ ば わか る と 思い 
ま 9 


/ _ ラロ グラ ム -  \ 


@ BASIC は 表 1 に 示す と お り で す . 




















行 番号 内 容 
40 一 230 行 | 初期 設定 

240 行 地形 を 乱数 で 決め る . 

250 行 基地 の 出現 率 を 乱数 で 決め る . 

260 行 地 対空 ミサ イル を 乱数 に より 表示 


270 行 空 対空 ミサ イル を 乱数 に より 表示 

280 行 左端 に 地形 を 表示 

290 行 ミー ( 横 ス クロ ー ル ・ キ ー 処 理 な ど ) 
300 行 左端 の 地形 を 消す . 


320 一 390 行 | GAME OVER の 処理 

















@ マ シン 語 は 簡単 な 命 
プ ブル すれ ば すぐ わか る M し 
は ウー ンジ SUMe4 


し 一 変革 旧い 


BASIC の 説明 を 見 れ ば わか る よう に , 250 一 270 行 の 乱数 
の 比較 値 を 変え れ ば 良い の で す . 


/ 才 の 他 - 


ミサ イル が へ リ に 当たっ て も , ゲ ダー ム ・ オ ー バ ー に な ら な 
いこ と が あり ます が , これ は ミサ イル が へ り の 横 を それ た 
思っ て くだ さい . 

この ゲー ム は 白黒 で す . カラ ー 化 する こと は 横 ス クロ ー 
ル を や っ て いる こと を 考え れ ば , アデ アトリビュート 操作 が 信 
じ ら れ な いく らい , 面倒 に な り , まず 不可 能 で し ょ う . 小 
生 の よう に グリ ー ン ・ モ ニタ し か 持っ て いな い 人 間 に は 好 
都合 で し た . 

な お , スコ ア に は 1 バイ ト し か 使っ て いな い の で , 256 
点 以 上 取る と 0 点 に 戻り ます が , 256 点 取る な ど 絶 対 に 不 
可能 で し ょ う 

プロ グラ ム を 入れ る と き の 注 意 で す が , マシ ン 語 を 入れ 
だ た ら 走 ら せ る 前 に 必ず セー ププ し て お いて くだ さい . いく 
ぅ っ リセ ッ ト ・ ス イッ チ が あっ て も , 走 し て メモ リ の 内 容 
が 変わ っ て し まう と 目 も 当て られ ませ ん . 

90 一 180 行 の グラ フィ ッ ク ・ キ ャ ラク タ は コー ド 番 号 錠 
H95, 層 H96, &H9C 一 乏 H9F で す . 基地 は クラ ブ の 
マー ク で す . 


し か 使っ て いな い の で , 逆 ア セン 
ゝ ます . た だ し , D100 一 D11F 


(Y 
本 


参考 文献 
1) 280 マ イコ ンプ ログ ラミ ング テク ニッ ク , 電波 新聞 社 





タイ トル 写真 提供 : 日 本 ヘラ ルド 映画 
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文 ご の 世 な ら ぬ 2 時 間 半 の 旅 は , あな だ の 
脳裏 に 永遠 に 残る / 





&O 





BASIC プロ グラ ム ・ リ スト 

















1Eg DRT BBBVSHGB OR Bf : 昌 = 中 。 日: .。 回 。 日 日 回 。 
記さ 、 語 晶 下 回) 回 回 。 回 回 。 
1r 后 FHRT= 語 HD1EETHS 
18_ PRINT CHR ま で 1) 
13 FHRT=EHFS5 ロ TUEHFE3ESTEF1Si FRET 日 * 


MIIEITHSE。 ミコ 
CHLURB: 日: き 


7 +CHR ま で さ 1 +CHE ま で ヨッ + オ CH まい 
"+EHR ま びさ 1 3+ に HE に 
ュ + ビ HE ま 


EHHEHLE。 王 。 昌 


"+CHR ま て さ 





CHE 5 
TEHE ま て 8)+CHR: 
リ + ビ HER ま くさ 
唱 +EHR ま て さ ロ 3 キビ HR ま で 
ーー 』 日 = リー" 


5+CHE 


Hf 
11E:EEPD FEET・ ロ INET 


FUEET+ ロ 。 HERTIFIEESHEi1 1E 。 1 
ER "ーー デ 和 LHCHTEE。 


ミ 1 
2 テ 回 
| 
中 
っ 5 ロ 
で ら 日 
| 
1 
ぞ 3 日 
MA 
さ 加 
さ 1 ロ 
さ デ 





ローLISREC 還 3 ミエ F PEEKCEHD116y 
LHCERTE。 WEFRTNTE ま で ロロ 193 は 
BUT デ 1 ロ 






24iFRINT 
1=INTCRNDC1) ボ で +15 ロ 2 
CHEREUHNH 







=5 ま 
4THEHSSig 















ュ 二 リ 
二 す 














=FEERXSKHE11E)sLHCEHTES ょ で TF ロ = ニ デ THEHFETRHT 


キ 5 
=FEEKCSHE117 ュ 

LHCRTESG: 1I FE1RNT 
LCEHTESG。 1SIFERTRNT 


THF 
"Hi ュ ョ h ご に ロ F ほ ニ 





に 1 に ロロ 








33 回 IF SiHS THEHHE=SILHEHTESE 15FRTHT 
"H ュ キ 


ささ LUCEHTEEG ょ FERTNT 
EEEF 品 
35 IF INEEY ま YEHR ま で 1 さ 3THEH3ERE ELSE FRESTHEEIGHTH 1 デ 


35 END 


に 1 
HE 


LL/ 


Feturn keg"isEEEF1:i ロ TB1.33 さ 5FUHER エ =1THEH 





ロ u mad= Hi ョ h CanFe" 


=SHEi1 4 中 
リ + ビ HER ま 
1"+CEHR ま て 



















さ HE ロ 1=1 ロ HE ロ 1=rTHEH ロ 1 ニキ ミロ デ 


所 貼 』 ミ 則 ニ LIEER1 で 3 


有三 33a の KW AA 


昌 


5ELSEFFIHT 


F ロ EET+1。 器 *FHEET+ ミ ュ さ BI FEET+ さ FIRE エキ 叶 。 





MCHIU 朗 


回 HERTI HLITS1 。 3 








マシ ン 語 プロ グラ ム 











OO 
OO 
0O 
1 
109 





DOSO 
DOSO 
DO4O 
DOS5QO 
DO6O 
DO7Q 
DO8BO 
DO5O 
Doao 
DoOEO 
DOCO 
DoODO 
DOEO 
DOFO 
D1OQ 
D11o 
D12SO 
D1SO 
D14QO 
D15O 
D160 
D17oO 
D18O 
D19O 
D1aO 
D1Eo 
DiCO 
D1DO 
D1EO 
D1FO 
DSOO 
DS1O 
DS2O 


19 
11 
19 
78 


マタ 
12 
BO 
2 うさ 
06 
4 に 】 
D1 
BO 
OO 
8 
6 
54 
ご 〇 
0 〇 6 
E 世 
選 公 
さ E 
う E 
FB 
OO 
さき 全 
11 


っ | 
デ 


1E 


⑩ 江 記 < 


2) 
| 
っ 
デ 


95 





GE 
7 


QO 
00 
OO 
14 
D1 
中 
20 
0D 
OO 
EE1 コ 
QO 
10 
D1 
ED 
3E 
O4 
1 和合 
Oa 


12 


0O 
8B8 
FC 
4F 
ピン 
1 
96 
9F 
記 小 
SO 
GOD 
OO 


0 
OO 
OO 
D1 
Q1 
11 
05 
20 
Q0O 
DE 
0 
D1 
CD 
SE 
5 
っ 1 
FE 
FE 


1 





0O 
08 
FE 
48 
9) 
11 
SB 
る 
D さ 
D さ 
9) 
OO 
D1 
OO 
9C 


つ | 


18 
全 F 
D1 
DC 
CC 
1 ビ 
18 


OO 
(619) 
90 
11 
94 
C6 
DD 
世 2 
18 
BD 
77 
21 
aO 
1 
77 
1 
9E 
1C 
10 
1E 
00 
OO 
FC 
4F 


5 ミ 


78 
18 
O8 
51 

51 

F6 
OO 
FE 
1 
28 
2 
D1 

うき 
6 
FE 
FE 
38 
D1 


OO 
OO 
OO 
78 
OO 
019 
77 
DE 
0 
2O 
2a 
1 人 8 
DO 
D1 
CD 
D1 
28 
= 
DO 
D1 
OO 
E4 
に 1 
4E 
48 
OO 
FE 
FE 
GE 
き E 
3E 
oO 
OO 
4 ヨ 
2 谷 
1 台 
に 
1 
78 
96 
9E 
Oa 
3E 


0O 
OO 
00 
90 
ED 
OE 
074 
00 
11 
03 
10 
D1 
21 
0O1 
EQ 
7E 
16 
O 
[7 
C9 
0Q 
EF 
FC 
に に 】 
49 
DD 
4 
EB 
7o 
SO 
00 
OO 
の 4 
FE 
FE 
FE 
21 
D1 
OO 


つっ 


に 4 
21 


OO 
OO 
OO 
3E 
BO 
19 


OO 
OO 
00 
oO 
01 
DD 


さき E 2 


O6 
8 
21 
D1 
19 
QO 
O4 
D1 
FE 
FE 
18 
人 1 
oO 
OO 
人 4 人 
0 
マ O 
4D 
141 
2 
28 
1 コ 
D3 
D3 
oO 
19 
EE 
9D 
21 
4 
ヒ ウ 
61 
D8 
CB 
ED 
アブ 


20 
FD 
FF 
3 
19 
う E 
D1 
19)) 
C9 
2F 
9F 
OAa 
ご O 
0O 
Le19) 
E4 
9 さ 
らら 5 
49 
1a8 
1 人 4 
O4 
FF 
40 
40 
00 
DS 
328 
= 
D1 
OO 
2) 
FE 
FE 
ぞ 


ED 


0O0 
GO 
009 
ん 
04 
21 
DD 
GE 
18 
き 
3E 
2 ら 6 
ED 
ED 
OO 
ご 
28 
き E 
D1 
0O 
0O 
OO 
900 
4E 
5 
D1 
FE 
DD 
3D 
QOE 
C9 
OO 
DE 


2 
16 
1 
OO 
OO 
9 
= ビ 
3E 
4 


OO 
OO 
OO 
19 
OO 
D5 
4 
EF 
Q ミ 
3E 
E 
BD 
5E 
BO 
OO 
1E 
12 
91 
11 
OO 
QO 
OO 
00 
人 49 


55 


DD 
9D 
19 
FE 
1O 
1919】 
OO 
QB 
FE 
EE 
3E 


マコ 
さ デ 


OO 
『 ウ 
ご 


台 1 





00 
OO 
00 
72 
ED 
FS 
7 人 a 
BB 
11 
0 
BD 
20 
109 
421 
OO 
FE 
FE 
18 
C4 
O0 
00 
OO 
7 さ 


に 1 
つ 


FF 
P4 コ 
2 日 
18 
009 
3E 
OO 
OO 
FE 
95 
E 
1 
17 
OO 
7E 
D4 
4 
ワ / ア / 


OO 
OO 
00 
21 
SE 
O6 
DD 
2 
78 
77 
2O 
03 
D1 
13 
OO 
9 芳 
9 呈 
OS 
FZ 
OO 
OO 
OO 


00 


OO 
OO 
OO 
98 
12 
4E 
2B 
OD 
OO 
22 
03 
1 
01 
D1 
OO 
28 
2 
3E 
O1 
OO 
QO 
OO 
に な ん 
2O 
FF 
FE 
FE 
DD 
FE 
さき D 
GOO 
0O 
EO 
に ゲス 
に アコ 
マ 2 
ED 
OO 
EBE 
9D 
7E 
1 
1919】 


QO 
oO 
QO 
D1 
D1 
DD 
10 
B9 


し ) 
ぞ 


14 
21 
9E 
04 
QO 
1E 
OE 
OS 
1 全 
OO 
0O 
GO 
FE 
に に 】 


FF 
5 


9E 
70 
QOD 
ド EE 
00 
1919 
41 
FE 
FE 
1 ビ 
70 
GO 
2B 
2 
FE 
D1 
OO 


00 
OO 
OO 
ED 
ED 
7E 
EE 
2 
14 
D1 
の Y こ 】 
F ミ 
QO 
マミ 
0O 
FE 
FE 
11 
OO 
OO 
900 
OO 
0O 
4E 
選 選 
28 
OO 
0】 
GOO 
OO 
OO 
12 
96 
9F 
D1 
D1 
OO 
D6 
DO 
ヒ 9 
0O 


GO 
oO 
OO 
5B 
BO 
78 
DD 
65 
D1 
O1 
F ミ 
2 
ED 
ぞう 
090 
9D 
6 
16 
ED 
OO 
00 
GO 
00 
4F 
FF 
1C 
0C 
C9 
F6 
20 
OO 
OO 
D1 
3E 
3E 
OO 
FE 
FE 
28 
人 F 
OO 


DgFg 
13 品 
1 回 
1Bg 
1Fg 
D23g 















164 






* ュ ロッ ルー い 」 
の Si ho 


と ココ 












本 誌 1980 年 3 月 号 島 田 啓 一 郎 氏 作 の 『 ス ズ メ た た き ゲ ー 
ム 」 を 見 て , PC- 8001 で 「『 モ グラ た た き ゲ ー ム 」』 を と 思い 
立ち まし た . BASIC な の で スピ ー ド の 点 て 若干 不安 で し た 
が PC-8001 の 強力 な か カラー グラフィ ックス 機能 を 生か し て 
作っ た ゲー ム で す . 

この ゲー ム は 色 を 楽し ん で くだ さい . 高 解像度 カラ ー デ 
ィ ス プレ て 楽し め ば , 面白 さも 倍加 する は ず で す . 





ゲー ムセン ター な ど に ある モグ ラ た た き ゲ ダー ム と 同様 で , 
この ゲー ム の ルー ル は モグ ラ が ラン ダム に 1 一 8 の 番号 上 
に 現われ た り , 消 を た りす る の で , モグ ラ が 現われ た ら 素 
早く その 番号 の キー を 押し , 一 定時 間 に 数 多く モグ ラ を 叩 
け ば よい と いう 簡単 な ルー ル で す . 





上 導 び 方 


まず , プロ グラ ム ・ リ スト を すべ て 打ち 込み RUN き さき 
せる と 写真 1 の よう に 初期 表示 と し て モグ ラ が 8 忠 , 次々 


は は: 











の 
マン PC-8001 





と 画面 に 表示 され ます . 

次 に , 区 祭 三 著 キ ー を 押す と ゲー ム 開 始 で 持ち TIME : 
60. SCORE : 100 が 表示 され , モグ ラ が ラン ダム に 1 一 
8 の 番号 上 に 現われ ます (写真 2). その と き 素 早く その 番 
号 の キー を 押す と , モグ ラ が 叩か れ て 『 ビ ピッピ ッ ピ ッ 』 と 
唱 い て (実際 に モグ ラ は 鳴く か 小生 は 知り ませ ん が …?), 
モグ ラ が 紫色 に な り 恐 っ て ( 恐 っ た つも り で す ) 消え ます 
(写真 3). その と き , 得点 が 20 点 加算 きれ ます . 失敗 する 
と 10 点 減点 され ます . 

TIME : 0 また は SCORE : 0 に な る と ゲー ム ・ オ ー バ ー 


BCORE: 50 | 
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写真 3 モグ ラ が 叩か れ て 紫色 に 変わ っ た 





で , GAME OVER と HIGH SCORE が 表示 され て , 1 ゲー 
ム が 終了 し ます (写真 4). 時 間 の 表示 は 最初 持ち 時 間 と 
し て 60 が 表示 され , 1 ずつ 減っ て いき ます . この 一 1 され 
る 時 間 は 実際 の 1 牧 で は な く , 単なる ケー ム の た だ ため の 時 計 
用 ど な っ て ゆい まず, 選 の こと に つい で は ほ , プロ グ テ デム の 方 
で 触れ る こと に し ます 。 

な お , ゲー ム の 最高 得点 は , 1,300 点 に し て あり ます 。 


久 カク ラム 


プロ グラ ム は , すべ て BASIC で 書い て あり ます ., 短い 
プロ グラ ム な の で , 窒 1 に 示し た プロ グラ ム の アド レス ・ 
マッ プ を 見 て いた だ けれ ば , 説明 する ほど の こと は な いと 
思い ます 。 

た だ , プロ グラ ム の 中 で モグ ラ , 地面 な どの 表示 に は , 
N- BASIC の グラ フィ ックス 命令 PSET,。 PRESET, PUF 
@,。 LINE な ど を 使っ て いま す . これ ら の 命令 は , BASIC 
を し で (ほかなり の え ピ ビード で グラ フィ ックス ・2 パ ター シ な を 
どの 移動 , 表示 , 消去 な ど が 簡単 に でき る の で 大 変 便利 だ 
と 思い ます 。 

遊び 方 の 項 で ちょ っ と 和 触れ まし た が 。 時 間 の 表示 は モグ 
ラ が 表示 され 次 に 新しい モグ ラ を 表示 する まで の 処理 時 間 
(実際 は 約 1.6 秒 ) で 時 間 の 表示 を 一 1 し て いま す . 一 方 , 
モグ ラ が 叩か れる と サブ ルー チン に 入り サブ ルー チン を 通 
っ た 分 だ け 処 理 時 間 (この 場合 は 約 2.5 秒 要する ) が 長く 


表 1 アド レス ・ マ ッ プ 

放 其 生 ] 上 。 " 境 * 
初期 表示 (50 一 70 モ グラ の デー タ 読 み 込み ) 
| 130 一 140 | 区 ペニス | キー が 押さ れ た か 検索 | 
| 160 一 250 | 地面 お よび 番号 の 表示 = 
| 280 | TIME. SCORE の 初期 悠 モ セット 。。 。 
モグ ラ を ラン ダム に 表示 お よび 斉 出 し 

衝 SM 
|570 | TIME. SCORE の 値 を 処理 
| 580 。 | 時 間 待 ち (ケミ ー) 

ゲー ム 終 了 時 の 画面 表示 処理 
0080 に 3a ゲ 008 。 < 
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写真 4 ゲー ム 終了 時 の 表示 





な り ま す が 。 この と きも 同様 に 時 間 の 表示 は 1 減ら す よ う 
に な っ て いま す 。, 実際 に は 処理 時 間 の 大 い が あ る わけ で す 
が 。 ゲー ム に お いて は さほど 不 自然 さ は 感じ られ を いと 因 
いま す 。, 

ゲー ム の スピ ー ド を 変え る に は , 350 行 目 を 変えれ ば 変 
化し ます , 350 行 の For @⑳= ニ 0 To2 を , For Q⑳@=0 
To1 と すれ ば , スピ ー ド は 2 倍 に な りか な り 雌 か し く な り 
ます ,. スピ ー ド の 点 で 物足りな い 方 は 試し て みて くだ さい 。, 
逆 に スピ ー ド を 遅く すれ ば , 幼 喝 用 の スピ ー ド と な を な り ま す 。, 
ゲー ム を する 人 が , 好み の スピ ー ド を 選択 で きる よう に 
する こと も INIKEY$ あ る い は INPUT な ど を 使え ば 簡単 に 
で きる と 思い ます の で プロ グラ ム を 作っ て みて くだ さい 。 
この プロ グラ ム は カラ ー 用 に 作っ て いま す が 。 グリ ー ン 
・ モ ニタ な ど て 表示 させ る 場合 は 度 を 上 げ る か , ブログ 
ラム 中 の COLOB 命 令 の 部 分 を 変え れ ば 結構 楽し め る と 思い ます . 


二 ょ テッ 


当初 , 肝 念 し て いた スピ ー ド の 点 も N-BASIC の 交 力 を 
カラ ー グ ラフ ィ ッ クス 機能 に 助け られ て で きた ゲー ム だ と 
思っ て いま す .。 や は り , より スピ ー ド を 有 要求 され る 部 分 は 
機械 語 で 作る 必要 が ある と 思い ます 。, 
参考 女 献 
1 ) 島田 啓一 郎 : “スズ メ た だ た だき ゲー ム ”。 II/O, 1980 年 
3 月 号 

2) NEC : PC-8001 ユ テー ザー ズ ・ マ ニュ アル , N-BAS 
IC レ ファ レン ス ・ マ ニュ アル 。 1979 年 9 月 

3 ) 後藤 富雄 :“ グ ラフ ィ ッ クス 機能 と その 活用 法 ", イン 
ター フェ ー ス , 1979 年 12 月 号 , CQ 出 版 


4 ) 飯田 ・ 今 井 ・ 大 野 ・ 土 田 : N-BASIC 入 門 , アス キ 
ーー 出版 
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モグ ラ た た き ゲ ー ム プロ グラ ム ・ リ スト 


1 ド REN ポ + 玉 玉 玉 吾 下 ボ 関 HRA 。 玉 玉 吾 吾 潜 吾 玉 
SR MIIETH SR、SSIEIHSHLE 、 記 回 。 1 
さ FRINT CHR ま て 1SNEEHLHR 、 昌 、 昌 
Ha LnEHTE SSR、 diFRINT" 了 
5 COLOR 5,、BiLICHTE さ 1、 は 5FRITNT" モ SW 
ER RIH HRC1E さ 
で R FUR 1= TU 1EIRERE HE て TNIENEST 
Sa CULHR で 、 回 、1 
SR FHR = TH 1RS-STEF 15 
1 PUT 1S+N、 さ 5 ツー て SR+H、SBN 、 HE FSET BEEF s HENT 
11 CHLOR 1、 避 、1EiLTNECB。 >ー て 1 は 回 で 、FSET・E 
12S COLQR SQ、BiLHCHTE さ 4 ょ 1EFRINHT" で SFHEE キ ーー ヤミ" : 
1 さま =IN ド EV ま : IF H ま =""! THEN 1SR 
14Q IF H ま SSCHR ま くさ S> THEHN 13 中 
15R EEEFIFRIHT CHR ま て 1 ミ さ 
1ER COLOIR SB、1 ILTNE て 1S、SSN-C1SE、ESN FESETEF 
1 で に HLHR で 回 、 旨 
1S LCHTE 11.14:FRINT"1" 
13a LHCHTE 18、1 は FRTNT " 父 げ 
SR LHCEHTE SE 19:FRTINT" さ " 
さ 1 LHCHTE ささ 。 1 は EiFRTNT " 和 は" 
SS LHCEHTE 1、14:FRINT "5" 
S さ LHCEHTE 8, 1 は FRINT "5 
sa LCHTE SE、14:FRINT "や" 
SS LHCEHTE で 1 は FRINT "ST 
SE RE 半球 束 玉 串 中 束 叶 玉 中 吾 玉 中 中 玉 玉 玉 潜 中 玉 玉 中 玉串 中 中 
で で 回 ご 1 回 
SS ご =1R = ER 
SS CHLnR 5、 可 、15LTNE て 15。 8 ゅ ー て 1 ささ FSET,EF 
Sa CHLHR で 、、BILIEHTE 18。 さ FRTNT "TIHEI "3 日 
さ a LHCHTE ささ IFRINT "SEHREI に 
さ 1 ロ IF = HR T= THEH GT EE 
さ S CHILHR 6E: 回 、 1 
ささ 日 =INTCRNEC さ yt1Rns 1TF HSS THEN さき 回 
さ 4 =H ホ 15iTF 15 THEN ささ 昌 
さ SR FIR Rm TH S 
さ Ea PLTKN、 さ 5w-CN+15、S ロ y。 HK、FSET: IF = THEH EEEF 1 
さ Y FOR J= TU 1 さ HESRTIEEEF 只 
3 さ SB IF =15 THEN 7 
さ SM = さ ロ THEN SB 
周回 =5 THEN 3 器 
内 1 可 =ER THEN SE 
に | =rS THEN 519 
に 451 =B THEN SS 中 
に 15| =1G THEN くさ 器 
財 S =1SQ THEN 3 旨 
ER TF =1 さ 5 THEN 『 さ 中 
で 日 ま =TH ド KEY ま !* ITF 日 ま = ビ HR ま て は 8> THEH GHSUE 
ロ ま =IN ド EV ま : IF H ま =C ビ HER ま CS THEN ロロ SLE 
ロ ま =IHREV ま : IF ロ ま =CHR ま 5S1 ゝ THEN GSLE 
ロ ま =IN ド EV ま : IF ロ ま =C じ HE まく SS ュ > THEN ロ HSUE 
ロ ま =THKEV ま : IF ロ ま =CHR ま くき さ ) THEN HHSUE 
ロ ま =IN ド EV ま * IF H ま = に ビ HR ま て は > THEN ロ HSILE 
ロ ま =THRE い ま :』 IF 日 ま = ビ HR ま て SS> THEN ロ HSLE 
ロ ま =IH ド EV ま :TF ロ ま =CHR ま て SE ふ THEN SHE で 避 
NEST 避 
FUTSCN。 さ 5 ュー て NR+15、5 ロ By)、HE・FRESET 
ご = ニー1 ロ =T-1 
FIR し = TU rgiHEST 
BHT 9 
ChILUR 5.。i LHCHTE SEIFRIHT "GRHHE HUER く SFPHCEE キー デ ~ 
IF ご 1>5 THEN モ さ 中 
ミ 1 = ご 
FR R=g TH 8 
FnR = TI さ iNERT UE LHCEHTE 3 は: SiFRINT" 


65 LUCHTE 2 は 4.2EFRINT"T ロ ERV" ミ HIGH SEHREI" 51:EEEF gsNHERT 
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モグ ラ た た きま ゲー ム プロ グラ ム ・ リ スト 
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CHLOR 6,。1 

FUR =9 TO 195 STEPF 15 

PUTaC15+NM,35)- て さ g+, 5 HE。F'EET 

H ま =INKEV ま : IF 日 ま =" "0 THEN ELSE で 回 

NEXT 

LINE て 135, 5)- て 15, さ 5> 。 FRESET。 BF ITH 回 

IF H ま く >CHR$( さ 2) THEN SQ 

BEEFiLINE く 15, さ 5 ふ - て 135。5 ロ ) FRESET、BF 

LOCHTE 2g.6iPRINT " 

LUCHTE 24,2giFRINT" 

FUR Z=g TO 79g INEST 

GOTO 28g - 

RE ホホ ポポ ボボ SUBE 玉 涼 玉 叶 玉座 深 涼 涼 玉 玉座 注 束 玉 玉 ボ ボ 

COLOR さく, 回, 1: ご =5+ 

FOR =9 TO 45 

BEEF 1iFHR MM=9 TO 8 NEXT 

BEEF 9iNEXT 人 

RETURN 

DRTH 256,. ロロ, 9498, 8184. 1E さ BB、 さ 27EE。 REGE. SG86 
ロ 5 由 


、 里 表記 な の い ( 全 …、 






の 
BASIG IE 





る 潜 炊 妃 ヘ リコ プター グ が 秦 一 の 政 い だ 


加 泊 本 





で ), ハ シゴ が 上 下 し て いる と き , 火 が ビル を 包 ん だ と き に 
有効 で す . GAME START 後 に GAME START に 戻し た 


いと き に は , ハシ ゴ が 上 下 し て いる と き に 思 キ ー を 押し て 
M くだ さい .GAME OVER で は デモ に 戻る の で , 続け た いと 


き に は GAME OVER の 状態 の と き に [キー を 押し て も 























RUN さ せる と 最初 に 車 が 現われ , 次 に ゲー ム の 説明 と GAME START に 戻り ます . 
デモ が 現われ ます . この ゲー ム は 、 車 を 移動 きせ ハシ ゴ を プロ グラ ム は N-BASIC で 書か れ て いま す . 各 ルー チ 
上 下さ せ て 人 を 救助 する ゲー ム で , 動き は 画面 に 示さ れ て ン ご と の 説明 を 表 1 に 示し ます . 
いる と お り , [4], [6 」, [SHIFT] で 動き ます . 注 円 は マイ ナス ・ キ ー で す . 

















ハシ ゴ の 位置 を 問 違え て 1 キャラ クタ だ け 上 に する と , 


人 が 押し つぶ され て 減点 と な り ま す . 減点 は KILL と 書い 
て ある と ころ が そう で す . 





ハシ ゴ の 位置 が ぴた り 合 うと SAFE だ け 加 点 , 間 に 合 





わな いで 人 が 落ち る と OUT の 減点 と な り ま す (黄色 の 人 この ゲー ム で は 人 の 落ち る 時 間 が へ リコ プター が 飛ぶ ご 
は , 落ち て も 減点 が あり ませ ん ). と に 速く な っ て いき ます が , この 時 間 の 初期 値 は 文 番号 。 

1 番 上 の 紫色 の 人 は 端 に いる と き し か 救助 で きま せん が , 460 の Z み 三 34 を 多く する と 遅く , 少 な くす る と 速く な り ま す . 
100POINT の 加算 と な り ま す . 紫 の 人 は 落ち る こと は あ 火 の 動く 速度 は 文 番号 620 の TIME= ニ > バ “00:00:02” を 変 
り ま せん . を てく ださい. 上 の 紫色 の 人 の 動き は 廊 番 号 540 の E>13 を 

火 が 付け られ て か ら 上 に あがり きる まで に 400POINT を 変え て くだ さい . 多く する と 遅く , 少な くす る と 速 く な り 
得点 する と へ リコ プター が 飛ん で き て 消火 に あたり ます . ま 295 
火 は 全部 は 消え ませ ん . へ リコ プター の POINT は 文 番 号 610 の P>390 を 変え て く 

GAME START は [キー で 行ない ます が , デモ の 場合 だ さい . この ゲー ム は 現実 性 と 見 た め ( 車 と いう こと が よ 
人 が 走っ て いる と き , 車 が 動い て いる と き (人 を 乗せ な い くわ か ら な く な る ) を 考え て 少し 遅く 作っ て あり ます が , 


16 ひ 


2 





写真 1 


Hi-SCORE 
に 


シット ドウ シャ ノ 
イト ドウ キー 


4 て く ->6 
DP た ur40E だ )] 
SHIFT 
GRNE STRRT 
0 に 1 


写真 2 さ つ そ うと (? ), 左 か ら 放火 魔 が 登場 


EX ぐり に 】 コ 
9 


写真 3 ハシ ゴ 車 で 1 人 を 無事 救出 


LE こ に 1 いり 、1 コ 
9 


写真 4 ハシ ゴ コ 車 が 間に合わ な いと , 飛び 降る 人 が 続出 


も:1 り に 1 コ 
9 


ハシ ゴ の 位置 が 合わ な いと 死者 が 出 て , 減点 


Hi ューSCORE 
に 」 


写真 6 最上 階 の 人 を 救 け 出 す と , 100 点 が 加算 さき れる. 


に ま も は いく り に 1 コ SCORE 


写真 7 火 の 手 が 回 り ビ ル が 全焼 する と, ゲーム ・ オ ー バ ー 
il | コ 雪 いり コ 、、 


SCORE 


写真 8 400 点 に 達する と , 消火 用 ヘリ コ プ タ ー が 来る . 


に まち は いのり 、】 コ 
8 












表 1 プロ グラ ム の 説明 
内 容 
DATA READ ビル を 包む 秋 . ヘ リコ プター の 消火 液 を DATA か ら 読 み 込み 、 車 を 表示 し て GET し ます . 
120 一 330 | FIRST SCENE プロ グラ ム の 説明 や HI-SCORE の 表示 を 与え ます . 
340 一 440 | DEMO 人 を 走ら せ た 後 で 車 、 火 な どの 初期 値 を 与え を ます . デモ を 繰り 返し て 行ない ます -. 
450 一 620 | GAME 國 [&& [5HiF 和 キー を 使っ て 動き を 行ない ます . ハシ ゴ 1 回 の 上 下 を 車 の 動き の 3 個 か つ 5 個 分 と し て 表わし 
ます . 得点 400POINT で へ リコ プター の サ プ ブルー チン に 飛ば し ます . 
































640 一 670 | CAR PUT OUT 車 の 位置 に ある も の を すべ て 消し ます . 
680 一 710 | TOP MAN FIRST POSITION | 最初 の 紫色 の 人 を 表示 し ます . 紫色 の 人 が 端 で 助け られ た と き に も この 位置 に 表示 し ます - 
720 一 880 | CAR PUT ON GOTO で 位置 に 合わ せ た 表 示 を 行ない ます . 

















890- 970 ビ ピル と ベラ ンダ の 表示 を し ます -. 

980 一 1020 | FIRE UP 火 を 1 つ ず つ 動 か し て いき GAME OVER の サブルーチン に 飛ば し ます . 

1030 一 1070 乱数 で 位置 と 色 を 決め て 人 を 表示 し ます - 
車 を 表示 し て GET し ます - 

1250 一 1620 | RUNNING 人 を 3 種類 の 形 で 動か し て 火 を 付け ます . 

1630 一 1970 | MAN DROP 人 の 落ち て いく 動き を 表示 し ます . 

1980 一 2640 | LIFT | ハシ ゴ の 上 下 か ら 端 まで きた と き の 判 断 ,POINT の 増減 な ど を 行ない ます . 
2650 一 2800 | PUT OUT A FIRE | へ リコ プター と 消火 液 の 表示 そし て 再開 後 の 火 の 位置 を 決め て 火 を 表示 し ます -. 
2810 一 2880 | GAME OVER | ビル を 包む 炎 と GAME OVER の 表示 そし て 少し し て か ら デ モ に 戻り ます . 

3 つ に 分 割 し た 笑 と へ リコ プター の 消火 液 の データ が 入っ て いま す . 












































デモ 画面 の フロ ー チ ャ ー ト ゲー ム は スピ ー ド が 命 と いう 人 に は , ハシ ゴ は 文 番 号 20 
30 と 2110 と 2160 と 2240 を 取り 去り , 車 は 1 色 (アト リ ビ ュ 
ー ト を 使わ な い ) で 形 を 小さ く < 変え たれ ば 少し は 速く な る の 
で は な いか と 思い ます . 

また , この ゲー ム 方 法 に あき て きた だ たら, 人 を 助け る ご と 
に G= ニ G+ 1 の よう な 形 で 何人 巧 けら れ た か と いう 表示 を 
し た り , 人 の 落ち か た を 速く し て デモ の よう に 落ち る と 火 
ュ が 進む と いう 形 に 改造 する の も いい の で は な いで し ょ うか . 





ーー あと が き 


どう せ ゲ ー ム を 作る な ら デ モ も 本 格 的 ( ? ) に 作ろ うと 思 
い デ モ を 作っ た ら , 量 も 多く な り 時 間 も け っ こう か か り ま 
し た . この プロ グラ ム を 作っ て いた ころ 近所 で 偶然 火事 が 
あり 、 朝 の 4 時 ご ろ , 消防 自動 車 の サイ レン で 起こ され て 
し まい まし た . その と き の サ イレ ン が 迫力 が あっ た の で , 
今度 テー プ に と っ て B.G.M. と し て ゲー ム の 最 中 に 流す と 緊 
追 盛 が だ し て くる の で は , な ど と 考 を えて いま す . 

高 得点 を あげ る た め に は , 最初 の うち は 落ち 着い て 上 の 
紫色 の 人 は あま り 狙 わ ず , ゲー ム が 進ん で か ら カ ン を 働 
か せ て うま く 救 助 す る よう に する と いい で し ょ う . 
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画面 クリ ア 
第 2 初期 設定 
| ビル を 書く 
(1) 
| 火 を 付け に 行く | 
屋上 に 人 を 出す 
人 を 出す 
(2) 
1 回 本 ET 
車 を 出す 


TIME= テ 0 


(3) ハ シゴ を 出す 


人 を 乗せ て ハシ ゴ を 降 す 





| 


し 

















ファ イア ・ レ スキ ュー プロ グラ ム ・ リ スト 





2 _ REN * 玉 束 bu S。 NRKHDRT 玉 

さ 9 REN 玉 ま RIN LUUTIN 玉 

9 CUNSULE 11 MTDTH は ロ 。 ミロ i 日 S= ロ 

SB_ REN 吾 計 DRHTH RERD 玉 本 

SB DTIN F1 EK すす 3、FS て 5 FSSEK15 う 。F す 光 て ささ) 15 て ささ )、 折 さす 3、 由 SEK1S)。 TE) 、 HIEK さ さ う 。 
で as RFI 1 で )。HSSSKGY 

FOR Ua TU 9 FRERD F1EKT> 2N 計 

























3 FOR = TQ 15: RERD F さ 
1 FUR = TU 3 は さ は REED F4 は EK 
11 ロ FRIHT CHE ま 13 HEUE1 GS 
1E REN 本 FTIRST SEEHE ポ 
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15 LUCHTE さ 。 riFRTNT "イト “ ウ 
1S LUCHTE は 4。 35FETHT > 
1 加 LHCHRTE 11:PETHNT "im ジコ ドコ キー ロリ 
18 LUCHTE すす,1SIPRIHT "EEHIFT" 
LUCHTE S。15kFKTIHT "RE STRET" 
回 LCHTE diFEIHT JRUSH - ギー-\" 
SG Ei PETNT "分 FIHT" 

8 kFRINT " 十 SRFE _ 18" 
ECHLUIE 和 は ILHEHTE GE、 ヨ FETNT " 便 FUINT" 
加 LHCHTE EE、 1 ロ IFRTHT " 十 SHFE 4!" の 
加 LHCRTE 11iFRIHT "リロ UT -1g!" Wekop 
1EiFRIHT "ドド ILL BI" ンー で ーー で 
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EEH : 



































1JTE31 EEEFIEFERTHT USTHG「 拓 "まさ 
=1 1 THEHD=-Di =T+1 1 GUSLIE コ コロ 

1 =T+1: ロ IEUE コ コロ 
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写真 1 ゲー ム ・ タ イト ル の 表示 





私 は 10 ヵ 月 ほど 前 ピピ 〇 を 買い , マイ コン を 始め だ 男 で す . 
いま まで 『「 ゲー ム な ぞ な ん だ / 」 と 言い , 意地 で も BA 





語 を 学び 始め , マシ ン 語 ゲー ム を 作り 始め まし だ. 1 
米 


1 ご 〇 に し が みつ いて きま し だ が , 先日 , 突如 60 マ シン 時 

1 作 目 は 機械 語 の デフ レク ショ ン ・ ゲ ー ム で 、 ク 2 作 目 が FIRE !!! Ver.1 上 
の 順 US 拓 対 AM 居 。 選 ほ .2 ee 人 が 多 民 gg( 避 多 あ ルル ト 
で る ガツ ツ ほ な い の で 。 80 人 ある の アセ ンプ ル 加 能 な 時 
1 パス ・ ア セン ブラ を 自作 し て 作り 始め まし だ (私 は Di! * pu V.OGI 1989.8.19 
S k を 持つ て いな い の で す ). f FC! 認 C り :1 穫れ D 提 | | 


『 ど う せ ゲー ム ム を 作る ん だ つ だ ら 良 いも の を 。』 と , 市 販 T * RE YOU RLL RIGHT? て u ノ n>〉 
V ゲ ー ム の 『 ス ペー ス ・ シ ツ プ 』 を ベ ペース に し まし た. ご 
れ は テー ブル ・ タ イプ の 名 で , 有名 な ゲー ム だ と 思 いま す 「 
が , ボッ クス ・ タ イプ の 名 が 『 ス ター ファ イア 」 で す . 

お ろ ん 同 じ ゲ ー ム を P 〇 上 に コピ ー レ し て も つま ら な い の 「 
で , 自分 な り に 考え て あり ます . 思い の 外 簡 単 で 。 ゲー ム 
を 考え 始め て か ら お よそ 半 月 で 形 は で き て し まい まし だ . 

カラ ー グ ブラ フィ ックス で 〇 を 上 回 る 他 機種 で は 良 ご 似 
だ ゲー ム が すでに ある そう で す が , 自分 で は まぁ まぁ の 線 
で は あろ うと いう も の が で きま し だ た. 私 も , 私 の 妹 も な 
り 熱 ご な っ て ゲー ム に 没頭 し , 目 の 前 を 宇宙 船 が いま も 飛 + 
び か つて お り の ます . \ 


写真 2 中 央 の 十字 が 照準 線 


ーーー ポー ニー ボニー ボーー 玉 ーー ボ ーー ポー ニョ ポー 半 ーー 玉 ニー 米ドル ーー ポーー 米 ーー 六 








し ボー ポー ボー ボーー※ ポ ーー ボーー ポ ーー ポーー ポ ーー ポーー※ ボ ーー ツー ボー ポポ ーーー ボーー ボ ーー※ーー※ーー※ーー ボ ーー※ー 


ダー ム の 簡明 























ゲー ム は わずか な を BASIC 部 ( 約 1K バ イト ) と , 錠 と いう 廊 字 の 周囲 を 囲む 星 は 様々 な 色 に 点 減 し , 高 解像度 
HD000 か ら 使 用 する 4 K バ イト 弱 の マシ ン 語 部 か ら な カ み カラー ディス プレ イ な ど で 見 る と な か な か 美しい も の で す 
り , 160K シ ステ ム で も も ちろ ん 走り ます . (この テク ニッ ク は 東大 五 月 祭 で 使い まし た ). また だ , 画面 

BASIC は ゲー ム 前 後 の タ イト ル 表 示 な ど を わざ わざ に は それ まで に 出さ れ た 最高 得点 が 示さ れ ま す . 
マシ ン 語 で 書く の が アホ 臭かっ た の と , カラ ー モ ー ド の 設 ゲー ム を 開始 する と き は [ 双 キ ー を 押し ます . 何ら か の 理 
定 を 行なわ せる た め に 書い た も の で す . ゲー ム の 主要 部 は 由 で ゲー ム 開 始 を し な いと き は , 他 の 任意 の キー を 押し て 
すべ て マシ ン 語 で 書か れ て いま す . くだ さい . 両者 と も に [ RETURN | キー は 不要 で す . 

さて , RUN す る と 写真 1 の よう な 画像 が 示さ れ ま す . さて , [キー が 押さ きれ る と ゲー ム ・ ス ター ト で す . 突如 , 


写真 2 の よう な 画面 に 切り 換わり ます . 


STAR FIRE .! ! IVer. 1 ら 
この ゲー ム は 要する に , プレ イヤ ギー が 宇宙 戦闘 艇 の 唯一 
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① か ら ⑤ ま で 宇宙 船 。⑥ か ら ⑧ ま で ミサ イル . 
⑧ は 左右 の 図 を 交互 に 表示 する . 


ーー この 大 き さ が 80X25 モ ー ド で の | キャ ラク ター に 相当 
ん 





























表 1 画面 の 色 と 敵 船 1 機 あ た り の 得点 図 2 キー ボー ド の 説明 
画面 の 色 | 1 機 当り の 得点 。) チン キー( 寺 時 司る 回 

緑 10 点 

水色 | 20 点 

遇 < 30 点 
の 乗員 と な り , 船 と ビー ム 砲 を 操っ て 敵 宇宙 船 を 制限 時 卓 |:| | は 
(変化 し ます ) 内 に 破壊 し . その 得点 を 競う ゲー ム で す . 

写真 2 で 中 央 に 十字 に 並ん だ 点 が 見 を える と 思い ます が 略 

これ が 時 準 線 で す . 上 下 の 線 の 間 が スコ ー プ で , 中 央 上 方 , 
線 の すぐ 上 に 横たわる 帯 が タイ マ で す . 画面 に は 時 と 敵 宇 | 
宙 船 が 動き まわ り ま す . 


注意 し て いた だ きた い の は , この ゲー ム は 画面 の 色 を 識 














別 す る こと を 要求 する と いう こと で す . 絶対 に カラ ー で フ " た だ し , 矢印 は プレ イヤ ー 機 の 旋回 方 向 で ある か ら 敵 
レイ し て くだ さい . 画面 の 色 が 異な る と 敵 宇宙 船 1 機 当 た 船 や 是 の 移動 方 向 は 送 に な り ま す - 
り の 得点 が 異な り ま す ( 表 1). b ) [SHIFT] キー と | X | キー 
さて , 少々 解り に くい の は 敵 宇 宙 航 が ある 程度 接近 し て (左手 に よる 前 後 制御 お よび ビー ム 発 射 ) 
くる と , 自身 を ミサ イル 化し て 攻撃 し て くる と いう 点 で す . 
敵 字 宙 船 は 5 段階 に 大 きく な り ま す が 。 一 番 大 き な 宇 笛 般 | 」 | | | | 
は プレ イヤ ー 機 が 前 進 し て いる と 決 に 小さ な ミサ イル に 変 


じ , 渦 を 巻き な が ら 3 段 階 に 大 きく な っ て ( 図 1)、 そ し て 時 圏 | 回 | 圏 
爆発 し ます (写真 3 ). 


爆発 する と 画面 の 色 が 変わ り , 表 1 に 従っ て 敵 船 1 機 当 
た り の 答 点 が 変化 し ます . 同時 に タイ マ が 進み 残り 時 間 が 


減少 し ます . し た が っ て 、 プ レイ ヤー は も うこ れ 以 上 ミサ | 








イル を くら いた く な いと 考え る な ら ば , バッ ク す る か , 旋 SHIFT … 押 す と 後退 , 離し て いる と 前 進 . 
回 し て 逃げ る か , また は 届 ち 落と し て し まわ ね ば な り ま せ Xa ES ビー ム 発 身 
た c ) ファ ンク ショ ン ・ 1 キー (ゲー ム の 中 止 ) 


2 が キー ボー ド か ら の 操作 法 で す . この ゲー ム は 複数 


の キー を 押せ ば 機 は 斜め に 旋回 し ます . また , 旋回 し な が 








ら ビ ピー ム 砲 を 発射 で きま す - [f1 | キ ー を 押す と ゲー ム が 終了 し 写真 10 の 段階 に 移り 壮 | 


さて , プレ イヤ ー は テン キー で 機 を 旋回 させ , 敵 機 を 画 
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写真 3 敵 の ミサ イル が 渦 を 巻き な が ら 近 ずい て くる 





写真 4 自動 照準 状 置 が ロッ ク し た と ころ 


写真 6 敵 機 が いな いと , ビー ム が 除 々 に 消え て いく 





写真 7 爆発 パタ ー ン (ノー マル ) 





写真 5 ビー ム 発 射 





面 中 央 。 品 準 十字 線 の 中 央 に 持っ て きま す . する と 自動 照 
準 装置 が 働い て , 敵 機 は ロッ ク さ れ ま す (写真 4 ). 


自動 照準 装置 は 非常 に 強力 な 催眠 嗜 示 能力 者 で ,『 動 く な 
/ 大 きく も 小さ くも な る な / 旋 回 し た ら つ いて こい /』」 と 
命令 し , 敵 機 は 何 が あろ うと ロッ ク か ら 脱 出 で き な く な ! 
ます . プレ イヤ ー は そこ で IX キー を 押し , ビー ム を 発射 し 
ます . 

ビー ム は BASIC の LINE 文 と 異な り , 発射 音 を た 
て な が ら 滑 ら か に 伸び て いき ます . また だ た, その 間 に も 画面 
は 動い て いま す . ビー ム の 色 は 画面 が 何 色 で あろ うと 法 で 
ま : 

ビー ム は 中 央 に 達する と , そこ に ロッ ク さ れ た 機 が あれ 
ば 破壊 し , な けれ ば 何事 も 起こ さき さ ず , 再び 滑ら か に 消え て 
いき ます . 写真 5 に ビー ム 発 射 直後 の 様子 を , 写真 6 に 外 
れ た 場合 に ビー ム が 消え 始 め た 様子 を 示し ます . 仮に 命中 


ご 





写真 8 爆発 パタ ー ン (リバ ー ス ) 


OO 


し た 場合 も ビー ム の 消え 方 その も の は 変わ り ま せん . 

ビー ム が 命中 する と , 爆発 音 が し て 中 央 は 爆発 の 様子 が 
赤 と 画 面 の 色 で . 各 々 リバ ー ス と ノー マル で 点滅 し ます ( 写 
真 7, 写真 8 ). 爆 発音 は ビー ム が 消 そ る まで 続き , その 間 
写真 7 と 写真 8 の 状態 が 交互 に 映 さ れる の で , 一 応 爆発 ら 
し を 放 え ます 。 

この ゲー ム で は 1 発 の ビー ム で 複数 機 の 敵 機 を 破壊 する 
こと が 可能 で す . むろ ん ロッ ク す る の は 一 度 に 1 機 で す が 
ロッ ク は その 機 に ビー ム が 届い た 瞬間 に 解除 され , 次 の 敵 
機 を ロッ ク で きる よう に な り ま す . き 

それ に 対し , ビー ム は ある 期間 中 央 に 達し て いま す ( す 
な わ ち , ビー ム の 先端 が 中 央 に 達し て か ら ビ ー ム が 消え る 
まで の 間 . し た が っ て , この 期間 中 に 次 々 に 敵 字 宙 船 を 中 
央 に 持っ て くれ ば すべ て 爆破 で きる よう に な っ て いま す . 
敵 宇 宙 船 が か た まっ て 飛ん で いた ら , 旋回 し な が ら ビ ー 


179 











3 敵 船 の 存在 で きる 範囲 と スコ ー プ 革 囲 
列 
40 80 40 











存在 可能 範囲 
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A : 拡 張 座標 系 原点 

B : 画面 内 座標 系 原点 

C : 相対 座標 系 原点 
(画面 中 央 





ム を 放ち , な ぎ 倒 す よ うに し て すべ て 1 発 で 破壊 する こと 
も で きま す . 


ビー ム 砲 で 破壊 し た り , 旋回 し た り し て 画面 か ら 敵 宇宙 
般 が いな く な る と , 画 面 の 横 に 矢印 が 出現 し ます (写真 9 ). 
瑞 字 宙 船 が 存在 で きる 範囲 は 図 3 に 示す と お り ス コー プ よ 


り 広 いた め , どちら 方 に 敵 船 が いる か を この 矢印 が 示し て 
2 れれ に ま 59c3 

た だ し , 矢印 は 左右 だ け で 上 下 を 示し て は く し まき 
ト 下 に も 矢印 を 付け る の は 簡単 な の で す が , プレ イヤ ー の 
凍 お よび 記憶 力 が 点数 を 左右 する 重要 な ファ クタ ー と な る 
べく 。 余り 親切 な こと は し な いよ うに し まし た だ 。 

英 ミ サイ ル が 視界 外 で 爆発 し て も それ は プレ イ ヤー に 何 


の 関係 も なく, プレ イヤ ー は それ を 知る こと も で きま せん . 


次 に バッ ク で す が , [ SHIFT | キー を 押す と 早々 は 中 天 
に 向け 移動 を 始め 、 ミサ イル 化し て いな い 敵 船 は 縮小 し , 
や が て 飛び 去り , ミ サイ ル は 大 きく な る の を 止め ます . [SH 

IFT | キー を 押し て いる 間 バ パック は 続き , 手 を 離す と 前 進 
モー ド に 戻り ます . 

また , ミサ イル 攻撃 を 受け る こと の な い バ ッ ク ・ モ ー ド 
で の 戦闘 は デレ イヤ ー に 有利 すぎ , また そん な 戦法 は 卑 坊 
だ と 考え ん , バッ ク ・ モ ー ド で は - 度 有効 範囲 内 に 存在 する 
敵 船 が 0 に な る と , バッ ク し 続け る 限り 新しく 敵 船 を スコ 
ー プ 内 に 捕捉 する こと は 不可 能 に な り ま す . 

つま り 。 3 の 存在 可能 領域 内 に 新しく 敵 船 が ワー プ ・ 
アウ ト す る こと が 決し て な く な り , この 範囲 内 に 存在 する 
ミサ イル や 敵 船 を 破壊 し 尺 し て し まっ た ら , いく ら 待 っ て 
も 新しい 獲物 は 現われ ませ ん . 

ゲー ム は 上 方 の カウ ンタ の 帯 グ ラフ の 長 さ が 0 に な る と 
終了 で , 写真 10 に 示す と お り 点 数 , 敵 船 届 墜 回 数 , 被弾 ミ 
サイ ル 数 が 表示 され , 特に 得点 が ハイ ・ ス コア で ある と 写 
真 11 の よう に その 旧 表 示さ れ , 自動 的 に 登録 され ます . 

さて , ゲー ム の 遊び 方 の 最後 に ハイ ・ ス コア の クリ ア 方 
法 を 示し ます . 普通 プロ グラ マブ プル ・ フ ァ ン クシ ョ ン ・ キ 
ー に は 15 廊 字 ま で し か 登録 で きま せん が , この ゲー ム を 走 
ら せ て か ら | #・6 | キー を 押し て くだ さい . 20 字 以上 の 行 が 
示さ れ , ハイ ・ ス コア を クリ ア し ます . 

この 方 法 は ご 存 知 の 方 も 多い と 思い ます が , 要 
・6| キー を 押し た だ け で , [f- 6 | キー の 内 容 と [「f 


: す る に [f 
プア キー 
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写真 9 画面 内 に 敵 機 が いな く な る と 矢印 が 表 わ れ る 





写真 10 ゲー ム ・ オ ー バ ー で スコ ア が 表示 され る 






9ANE OVER!! 
VOUR SCORE @G99 


VoU SHOOT 49 
THEV SHOOT 43 


「』 


写真 11 ハイ ・ ス コア が 出 た た と き の 例 





9ANE OVER!! 


VOUR SCORE 4@89 
HIGH SCORE!!! 


VOU SHOOT 8 ァ 7 
THEY SHOOT 4 


の 内 容 を 連続 し て 書か せ て いる の で す (KEYLTIST し 
て くだ さい ). 

| f・6 | キー の 内 容 は RAME 上 &HEACC 番 地 か ら 16 バ 
イト に 登録 され て いま す が , 通常 の KEY 文 で は 最後 の & 
HEADB 番 地 は 必ず &HO0 0 が 代入 され , 15 廊 字 以 上 は 
定義 で き な い わけ で す . 

この 0 0 H に よっ て [f・@ | と [ f・Z | の 境界 は 示さ れる の 
で す . ファ ンク ショ ン ・ キ ー を 押す と 各 キ ー の 先頭 番地 か 
ら 定 義 き れ た 内 容 は 読ま れる わけ で す が , 読ん で いく うち 
に 0 0H が 出 て くる と シス テム は そこ で 読み 込み を 終了 し 
ます . 

で は 『0 0H を な くし た ら ど うな る か 』 と 考え て 試行 し 
だ た と ころ , 上 の よう な 使用 法 を みつ けた わけ で す . BAS 
I C 部 の 150 行 を 見 て くだ さい . 








ーーー 
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プロ グラ ム の 説明 


B AS I C 部 に つい て は 特に 説明 の 必要 
マル チ ・ ス テー トメ ント の 山 で REM 文 も な い , 無茶 苦 茶 
に 見 づら ちい プロ グラ ム で す が , そこ を 何と か 読ん で いた だ 
けれ ば わか る と 思い ます . 要する に 前 後 の 廊 字 表示 の み 行 
な わせ て いま す . 

次 は マシ ン 語 で す が , きわ め て 見 らい プロ グラ ム に こ 
れ も な っ て いま す . 主要 な ワー キン グ ・ エ リア は 名 &HD0 
0 0 か ら &HD21F まで で す ( 含 デ ー タ 領域 ), キー イン す 
る と き は &HD0C8 番 地 以 後 の み を 入力 し て くだ さい . 

敵 宇 宙 船 の 総数 は 機 の 存在 が 許さ れる 範囲 内 で 常に 5 機 
で す . これ に 対し , 星 は 画面 内 に 10 個 存在 し ます . 表 2 に 
&HD000 か ら &HD0C7 ま で の 敵 宇 宙 船 お よび 量 に 
対応 する ワー キン グ ・ エ リア の 説明 を , 表 3 に 主要 な 他 の 
ワー キン グ ・ エ リア の 説明 を 示し ます . 

英機 や 星 の 移動 は 各 軸 速度 が 表 2 に 示す 各 軸 方 向 の 『 時 
定数 』 に 支配 され て お り , 船 の 接近 や 後退 も 同様 で す . 表 
4 は サブ ルー チン の うち 主要 な も の の 開始 アド レス と 簡単 
な 説明 で す . 図 4 に 示す アル ゴリ ズム と 共に 参照 し て くだ 
さい . 

この ゲー ム で は 特に ゲー ム 開 始 時 に ラン ダマ イズ を 行 な 
っ て いま せん , し た が っ て , ロー ド し て 最初 の ゲー ム の 最 
初 の シー ン で は 同じ 展開 に な る 可能 性 が あり ます が , この 
MS が 
に し て いる 。 事実 上 同じ 展開 が 生じ し る と は 思わ れ ま せ 
ん . 22 


お わり に 


ある 日 , 私 が 行き つけ の 喫茶 店 に 入る と 店 の 中 の 配置 が 
前 日 と 少し 違っ て いま し た . 新しい テー ブル ・ ゲ ー ム が 入 
っ た の で す . それ が 『 ス ペー ス ・ シ ッ プ 」』 で し た . 

遊び も せ ず その 前 に 腕 を 組ん で 座る こと 1 時 間 . 
語 で 次 に 何 を 作る か 迷っ て いた 私 は 1 人 で ニヤ け 始 め ま し 
た .『 ス ター ファ イア 』 を PC で 作っ た ろう じゃ な いか … 

ゲー ム の デザ イン に 10 旦 : プ ョ グラ テム 作成 に 3 日 。 宙 上 
改良 に 3 日, キー イン に 1 日 , デバ ッ グ に 半日 , グラ フィ 
ッ ク ・ デ ザイ ン 改 良 に 1 日 と 半 , 他 に 少々 いじ っ て , 計 約 
20 日 弱 で 完成 . 後 , 同じ クラ ス の , (あの ) 島田 啓一 郎 君 の 
助言 に より 再び いじ る こと 半日 で . この プロ グラ ム と な り 
事 じ だ 

姜 絶 な ほど の 混乱 型 プ ログ ラム と な り , 島田 君 の 名 誉 の 
た め に 申し て お きま す と , 彼 は 主として 『 ゲ ー ム な ら そ れ 
らし く 音 と か 爆発 の 様子 と か つけ ろ /』 と か いっ た 面 を ア 

















マシ ジ シン 


ドバイ ス し て くれ た の で あっ て , 混乱 の 責 は 私 に あり ます . 


ソー ス ・ プ ログ ラム を 取っ て お け な い ノン ディ スク ・ ベ で 
ー ス の 1 パス ・ ア セン ブラ の 悲し き で も あり ます が (改良 
テツ ッ ギ ハギ ノ ), マ シン 語 は 確か に 数 値 計算 は 苦手 で す が , 何 
と し て も 皆さん アタ ッ ク し て くだ さい . 損 に な る わけ は な 
ぃ し, 思っ た より ずっ と 簡単 な も の で す . 

な お , 私 の シス テム は 32K 本体 の 他 は 黒白 RF モジ ュ レ 
ー タ の み で す . この 私 だ っ て カラ ー の ゲー ム が 作れ る の で 
すか ら , 他 の 人 達 は これ は も う 何 で も で きる の で は …. 

PC は I/O ポー ト や アト リ ビ ュ ー ト ・ エ リア を 始め と し 
て マシ ン 語 で の 直接 制御 は な か な か 難し い 機 種 で す が , 相当 


EE 桂 な が WVW で し ょ う 。 





に タフ な 機種 で も ある の で 要 は いじ る こと で す . 

最後 に か くも し ょ ー も な い プ ログ ラム を 載せ よう と お っ 
し ゃ っ て いた だ いた 1I/O 誌 と , I/O 誌 に 載せ る に 際 し , 
協力 と ゲー ム ・ デ ザイ ン に 関し 助言 を いた だ いた 東大 TS 
tr に ー ザ ー ズ ・ グ ルー ププ メン バー の 
島田 啓一 郎 君 に 対し , 感謝 の 意 を 表し た いと 思い ます . 


避 参 考 物 件 
1) テー プル タイ プ TV ゲ ー ム 『 ス ペー ス ・ シ ッ プ 』 


表 2 敵 宇宙 船 と 星 の た め の ワ ー キ ング ・ エ リア の 説明 


a ) 敵 宇 宙 船 (5 機 分 ) 


出船 ご と の スタ ー ト ・ ア ドレ 
宙 船 ナン バーー 1) ※ 名 HH12 


ス 財 IXー 芝 HD000 圭 


WW 







IX+00H 拡張 座標 (x) (中 心 点 ) 












































01H 訪 ( ヵ ) (中 心 点 ) 

0 2H * 画面 内 座標 ( ェ ) (中 心 点 ) 

0 3 H - ( ヵ ) (中 心 点 ) 
04H | 相対 座標 絶対 値 (x) (中 心 点 ) 
0 5H / ( ヵ ) (中 心 点 ) 
0 6H 状態 ナン バー( 図 1 参照 ) 
07H | 。 ェ カ 向 移動 時 定数 

0 8H | ヵ 方 向 ? 

09H 画像 だ 上 端 画面 内 座標 ( ェ ) 
0AH | 7? (? ) 
0BH 中 変化 時 定数 





























0CH ナン バー 増分 

0 DH 変化 時 定数 (オリ ジ ナ ル ) 
0EH | 状態 ナン バー 増分 (オリ ジ ナ ル ) 

OFH _ 状態 変化 用 カウ ンタ 時 
10H ェ 方 向 移 動 用 カウ ンタ 








1 1 HH ヵ 方 向 ヶ 





b ) 星 (10 個 分 ) 


スタ ー ト ・ ア ドレ ス 財 IX 王 w HD060 十 ( 星 ナ ン バ ーー 1) 
X&H0A 


~ 画面 内 座標 ( ェ ) 
/ (7 ) 
* 相対 座標 絶対 値 (r ) 
/ (7 ) 
相対 座標 符号 (r) 
相対 座標 符号 ( ヵ ) 
ェ 方 向 移 動 時 定数 
# 方 向 / 
ェ 方 向 カ ウン タ 
7 方 向 7 


*) 各 座 標 系 の 原点 は 図 3 参照 






































性 つら | ら | らら | ら | ら | ご | らら ご つど | ご の 











表 3 


主要 な ワー キン グ ・ エ リア 


内 容 








開始 番地 


表 4 主要 な サ プ ブルー チン 


説 明 





0 








敵 船 に 対応 する ワー キン グ ・ エ リア 
番地 (TAINUM 出 力 ) 


の 開始 


D220H 


正負 表現 1 バイ ト の r、 ヵ ( 画 
面 内 ) 座標 か ら 対 応 す る V-RA 
MI 内 ア ド レス を 算出 する . 








時 ナンバー (STRNUM 入 力 ) 





星 に 対す る ワー キン グ ・ エ リア の グ 開 始 番地 
(STRNUM 出 力 ) 


D254H 


左上 端 の 画面 内 座標 と 画像 デー 
タ の 先頭 番地 を 与え られ , 画像 
を 描く か , また は 消す か する . 








消し た り 描 いた りす る 画像 の 左 1 間 を 人 





同 座標 (PSET. PRESET 入 力 ) (上 と | 





画像 デー タ 開 始 番地 ( 同 ド ) 





描こ うと し た 図 展 が 表示 可能 
た か どう か . 





RND 数 作成 用 R OM 読み ポイ ンタ 





ゲー ム の 総力 カウ ンタ (&H2000 有 以上 
と な る と ゲー ム 終 了 ) 


D2FOH 


PSET 


PUT の 属性 を 描く べく 指定 し 
コー ル す る . 





D300H 


PRESET 


PUT の 属性 を 消 太 すべ く 指 定 
し コー ル す る . 





な 範 胃 に あっ 


D310H 


TAINUM 


敵 船 ナ ンー バー を 与え られ 該当 す 
る ワー キン グ ・ エ リア 先頭 番地 。 
お よび その 船 の 状 か ら 画 像 デ 
ー タ 先頭 番地 を 出力 する . 





SRND 


R OM を 読み 込み RND 数 を 作 
成す る . 








画面 の 色 を 決定 する た め の ア 
エリ ア 代 入 値 


RNTAI 


敵 般 の ワー フ ・ ア ウト 先 座 林 を - 


定め る . 





ドリ ビュ ー ト ・ 





ビー ム 砲 制御 . 0 で ビー ム な し 1 で ピー ム 


表示 , 2 で 消去 


EDGE 


瑞 船 の 中 心 拡張 座標 か ら 他 の 座 
標 を 定め る 。 








ゲー ム 終 了 判 定 用 





画面 座標 + (PO INT 入 力 ) 
画面 座標 ヵ (PO INT 入 力 ) 


ATTRIB 


D 1E 0H に ひえ られ た 数 値 を 
アト リピ ビュ ー ト ・ エ リア 各行 左 
か ら 2 番目 の アド レス に 代入 . 





PREPA 


- アトリビュート ・ エ リア 


に すべ 
て 0 を 代入 する . 





上 の 2 入力 に 対応 する V-R AM 内 番地 (P 
O I NT 出力 ) 


CLEAR 


ケ え られ た コー ド で 画面 を 埋め 
る . 





ロッ ク さ れ た 敵 船 ナ ン バ ー 





待 点 


CENTER 


画面 中 央 の 色 や モー ド を 指定 き 
れ た よう に 変え る . 








画面 の クリ ア ・ コー ド (CLEAR 入力 ) 





敵 ミ サイ ル の 井 発 回 数 





ハイ ・ ス コア 


LOCK 


色 は 白 」。 モー ド は リバ パー ス と し 
て CENTER を コー ル す る . 





UNLOCK 


画面 中 央 の 色 と モ ー ド を 元 に 戻 
せ と CENTER に 命令 する . 








1382 





忠 墜 し た 敵 船 の 数 





REDZ 


色 は 赤 。 モー ド は リバ ー ス と し 
て CENTER を コー ル す る . 





BOMB 


CLEAR、 PREPA, AT 
TRIB. SOUND を 使い 
敵 ミ サイ ル グ の 井 発 を 表現 し 画面 
の 色 を 変え カウ ンタ を 進め め る . 





D5F0OH 


TAIMOV 


英 船 の 移動 、 変 化 、 ロ ッ ク , 出 
現 な ど 敵 船 に 関す る すべ て を 制 
御 す る (ミサ イル 棋 発 も ). 





D740HI 


ARROW 


左右 の 矢印 を 描い た り 消し た り 
する . 





D7DsH 


STRNUM 


星 ナ ン バ ー か ら 該 当 す る ワー キー 
ング ・ エ リア の 先頭 番地 を 算出 





D7ZFsH 


RNSTR 


する . 
- 星 の 出 現場 所 を 定め る . 





D888H 


STEDGE 


星 の 画 面 内 座標 か ら 他 の 座標 を を 
定め る ・ 





D8F0H 


CONST 


星 の 移動 時 定数 を 定め る . 





D908H 


STRMOV 


時 に 関す る すべ て を 制御 する 。 





D9E5H 


BEAMCN 


ビー ム に 関す る すべ て を 制御 す 
る ( 敵 船 爆発 な ど . な お , 敵 ミサ 
イル の 爆発 は ビー ム を 妨害 する ). 





DB30H 


CROSS 


中 央 の 十字 線 お よび カウ ンタ を 
つか きど る . 





DB90H 


INiP40H 


キー ボー ド か ら の 入力 を チェ ッ 
ク し , 必要 な 処理 を 行なう . 





DC50H 


PREPTA 


ゲー ム 開 始 前 の 初期 化 を 行なう 





DCA0H 


MAIN 


各 サ プ ブルー チン を 順 庁 だ て て コ 
ー ル し , D1F4H が 0 で ある 
限り 繰り 返す . 





DD50H 





SOUND 





敵 ミ サイ ル 命 中 時 の 音 出し ルー 
湖 、 





























図 4 フロ ー チ ャ ー ト (部 分 ) 















&HDIF4ー Acc 
( キ 0 ) 


b) メイ ン ・ ル ー チ ン c) PREPTA サブ ルー チン 


PR 所 PT 旋 


全 敵 機 の 位置 を 
乱数 処理 


定数 初期 化 











&HDIF4… 0 Acc-&HDIF4 





d) INPUT サブルーチン 


全 瑞 機 の 前 後 移 
動 を 調整 する . 






ビー ム ヶ 座標 ( & HD 
IE2) に I8H 代 入 
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較 4 フロ ー チ ャ ー ト (部 分 ) 








e) STRMOV サブ ルー チン 





新座 標 を PUT の 
入力 用 メモ リ に 





画面 内 座標 
ェ ・ ヶ を PUT の 
入力 用 メモ リ に 





乱数 に より 
ェ 座標 処理 


状態 増分 に より 
状態 空 化 
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左向き 矢印 を 描く 


左向き 矢印 を 消す | 









&HDIE2 よ り ビ 
一 ム の 位置 を 計算 


&HDIEI 
は 1 か ? 





ビー ム を 描く 
(ビー ム 座 標 -| ) 





ij) CROSS サブ ルー チン 


印 が 存在 す 
る か ? 





RETURN 


矢印 が 存在 す 






る HDIF4<* 









ロッ ク 
され た 船 が あ 
る か ? 


// 


&HDIE2 一 18H 





命中 フラ グ , 発射 
ララ グ ・ リ ギ ツ ド 









ビー ム を 消す ( ビ 
ー ム 座標 の 処理 ) 
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『F 1RE。 シ リー ズ 第 2 弾 を お 届け し ます . 今回 
の 目標 は 画面 設定 を 含め すべ て マシ ン 語 で 行なう こと , 
画面 上 で 動く 主要 な 物体 に 1 機 ご と に 固有 の 色 を つけ 
る こと , お よび 移動 する 物体 の コー ス を 任意 の 直線 に 
指定 する こと な ど で し た . 

画面 上 に 固有 の 色 を 持つ 物体 を 表示 する 方 法 。 す な 
わ ち アト リピ ビュ ー ト ・ エ リア の 制御 法 は すでに 何人 か 
の 人 が 確立 し て いま す が , 私 は 私 な り の 方 法 を トラ イ 
し て み ま し た . ゲー ム は 『 3 次 元 ギ ャ ラク シア ン 」』」 っ 
ぽ ぼく, か つ ス ター トレ ッ ク の 映画 の ご と く , 適当 に デ 
ザイ ン し た オリ ジ ナ ル ・ ゲ ー ム で す . 

『 エ ンタ ー プ ライ ズ 号 艦長 殿 . 銀河 系 内 各 セ クシ ョ 
ン に 侵入 し た クリ ゴン 戦艦 を 掃討 せよ . 


ゲー ム の 説明 


プロ グラ ム は &HC600 か ら &HE466 ま で の ぎっ と 8K 弱 
の 領域 を 使い ます . も ちろ ん 16K シ ステ ム で も 動き ます . 
ロー ド の 仕方 は mon 十 [RETURN| + [上 | [RETURN| 
で す . ロー ド し 終わ っ た ら RUN さ せる わけ で す が , キー 
の 説明 を 見 た か っ た り , 音 の 出る 出 な い を 制御 し た か っ た 
ら GE318[RETURN| と 押し て くだ さい . 写真 1 の よう に 

表示 きれ ます . 

ロー ド 前 の 時 点 で 画面 中 お よび スク ロー ル 設 定 が どう な 
っ て いよ うと E318 番 地 を CALL し た 時 点 で WIDTH36, 25 
ji CONSOLE0, 25 に 設定 され ます . ステ ー タ ス ・ バ パッ ファ 
を 使わ な い 画 面 の 設定 法 の 一 例 な の で , リス ト の 巨 318 番 地 
を 参照 し て くだ さい . 

“イマ ハ ヨル デス カ 2?" と 尋ね て くる の で , 音 を 出 
し て 良けれ ば [NI と , 静か に プレ イ し た けれ ば [Y] と 押し て 
くだ さい . 

も う 1 つ の スタ ー ト 番地 は 巨 200 番 地 で す . GE2OO「RE 
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TURN と モー ニタ 内 で 打つ か , ま た は 先ほど の 質問 に 答え る 

こと に より 、 画面 は WIDTHS0.25 : CONSOLEO,25,0,1 : 
COLOR7,,1 の 状態 に 入り ます . これ も ステ ー タ ス ・ バ パッ 
ファ は 使っ て いま せん . 

“STARTREK" と いう 文字 が 様々 な 色 で 1 文字 ずつ ゆ 
っ くり と 表示 され “FIRE. ク "と いう 文字 が 赤 で パッ と 出 
現し 、 背後 に 星 が 流れ 続け ます (写真 2 ). 

な お , 私 の 友人 で PC の ゲーム の 効果 音 は HAL 研究 所 
製 の PCG な ど を つなが な けれ ば で き な い と 思っ て いな た 者 
が お り ま す が そ ん な こと は あり ませ ん . この ゲー ム も 前 作 
の 『STAR FIRE」 も プロ グラ マブ ル ・ サ ウン ド ・ ジ ェ ネ 
レー タ な ど は 必要 あり ませ ん . 

次 に 。 デモ ンス トレ ーション と と も に 登録 さき れ て いる 
HIGH SCORE が 表示 され ます (写真 3 この デモ ンス ト 
レー ショ ン は ダミ ー の エン ター プラ イズ が 破壊 され る まで 
続く の で , 運 が 悪い と ちょ っ と 長く な る か も し れ ま せん . 

続い て エン ター プラ イズ が ワー プ し , “SECTION00" 
と いう 文字 が 表示 され ます (写真 4). そし て , ゲー ム の 開 
始 で す . キー ボー ド の 説明 を 図 1 に 示し ます . 

この ゲー ム は 3 次 元 ギ ャ ラク シア ン と いっ た 風 に 作る た 
め に 画面 中 央 上 方 に 消失 点 ( 無 限 遠 点 ) を 設け て あり ます . 
ゲー ム の 目的 は 光子 魚雷 を 持っ て クリ ンプ ゴン 戦艦 を 破壊 す 
る こと で す が , 光子 魚 電 は 消失 点 に 向かい 進行 し エン タ 
ー プ ライ ズ も 消失 点 に 向かい 方 向 お よび 形 を 変え , 星 も 消 
失点 より 湧き 出し ます . 

し た が っ て , 画面 内 に お いて 光子 魚雷 が 存在 し うる 範囲 
は 図 2 に 示す 三角 形 の 部 分 だ け で す . この 領域 内 に 敵艦 を 
持っ て くる た め に 旋回 する の で す . 旋回 に より 星 と 敵艦 は 
押し た キー と 逆 方 向 に 流れ ます が , エン ター プラ イズ の 光 
子 魚 生 と クリ ン デ プン 側 光 子 魚 軍 は コー ス を 変え ませ ん . 不 
合理 で は あり ます が , これ を 変え る と 易 し す ぎ た り 上 区 し す 
ぎ た り する の で , クリ ン デ ゴン 側 光 子 魚 箇 を よ け る た め に 平 
行 移動 が あり ます (写真 5 ). 

プレ イ 中 の 様子 を 写真 6 に 示し ます . 赤い の が 敵 光 子 魚 
雷 で す . 1 面 消 し 終わ る と エン ター プラ イズ は ワー プ し , 
次 の セク ショ ン に 進み ます . 


写真 1 キー と 得点 の 説明 . 太 か 夜 か の 問い 合わ せ も あり ます . 写真 5 エン ター プラ イズ 号 を 左 へ 平行 移動 する ・ 


へ イコ ウイ トウ の くき する 】 1 く ツ エ つ 】 
トイ ナ と 8 し くさ です も ) で うた >) 
コウ ワシ キネ" ョ ライ ハッ シャ (る ぅ 


レア テ アン 三 2 全 と ん と 
| ・・・ 4 テン 
ミト " リ ・・・ る 29 テン 
と くど ・LEEE- と 4 
ト ア ・ 還 EE と 2 
イマ ) ヨル テッ スズ カマ て ヤン N> 還 


写真 2 タイ トル 文字 の 後 を 星 が 放 射 状 に 流れ る - 


写真 3 デモ 画面 . HIGH SCORE は 0 点 - 写真 7 GAME OVER の 表示 


写真 4 エン ター プラ イズ は SECTION 00 へ ワー プ . 
いよ いよ 戦い が … 写真 8 


HIEH BEURE 


4.600 点 が HIGH SCORE に 登場 され た と ころ . 

















図 1 キー ボー ド の 説明 





e 平行 移動 (エン ター プラ イズ の 左右 移動 ) 一 有 て で 一 





@ 旋回 移動 (クリ ン ゴ ン 艦 を 照準 内 に ) 還 ] 
た だ し , 矢印 は 旋回 方 向 で あり 
画面 内 の 動き は 李 . 


@ 光子 魚雷 発射 [3 

@ ぁ ゲー ム 中 止 (GAME OVER へ ) STOP キー 

ゅ モニ タ に 戻る (GAME OVER 時 ) STOP キー 
@ リ プレ イ (GAME OVER 時 ) . ス ペー ス バー 








表 1 クリ ン ゴ ン 艦 1 隻 当 た り の 点数 














水 言 到 30 
黄 色 40 


な お , クリ ン ゴ ン 艇 は 5 段階 に 大 きく な る 

















表 2 主要 サブ プル ー チ ン の 説明 
開始 番地 | 名 前 | 
CFOOH|PRMODE 
CF60 HIENMODE 


CF6DHIKLINUM| クリ ンプ ン 艦 の 】 
エリ ア を 台 出 し する 


CFS89HIKLMINU | | 還 ク リン テン 人 


















国 2 エン ター プラ イズ の 射線 





ーー この 三角 形 内 に し か 
光子 魚雷 は 存在 
で き な い 














写真 6 で 画面 右側 上 方 に ある の が 点数 、 画面 左側 上 方 に 
ある の が 残り の エン ター プラ イズ 機 数 で す . な お , エン タ 
ー プ ライ ズ の 残り 友 数 は 画面 上 に ある も の を 合 み ませ ん . 
初期 値 は 3 台 で す . 得点 は 999.999 点 まで 表示 で きま す . 


英 の 発砲 問 度 は 面 ご と に 変わ ちり, SECTION 11. 27, 43、 


ME で 最高 に な り ま す . また , クリ ンプ ゴン 艦 は その 色 に よ 
っ て 得点 が 異な り ま す ( 表 1). さて , エン ター プラ イズ は 
クリ ン デ ゴン 艇 の 体 当 た り を 受け た り , 敵 光 子 魚 軍 を 受け る 
と 沙 倫 発 旨 まお | で し で 。 友 す べ て が や られ る と GAME 
OVER に な り ま す ( 写 真 7 ). 

特に , 得点 が 前 回 まで に 出さ きれ た HIGH SCORE を 上 回 
っ て いる と , その 旧 表 示し , 自動 登録 し ます (写真 8 ). 
GAME OVER の 状態 で [STOP| キー を 押す と WIDTH36. 
25 の 状態 に な り , モニ タ に 戻り ます . 

一 方 , [SPAcE | バー を 押す と リプ レイ で きま す . 図 1 に 示 
し た よう に [STOPI キ ー は プレ イ 中 止 の た め の キ ー で ,。 フ 
レイ 中 に [STOP] キー を 押す と GAME OVER の 状態 に な る 
の で ,。 あま り 長 ぐ 押 じ し で いる と 一 気 に モ ニタ に 戻っ で じ レ ま 
いま す . 

な お 、 [STOPI キ ー で ゲー ム が 中 止 さ れる の は キー 入力 
を 受け 付け る と きだ け な の で , ワー プ や デモ 中 は 中 止 で きま 
せん . HIGH SCORE の クリ アテ 方 法 は SHCE75 一 SHCE78 





の 4 バイ ト を モニ タ か ら &H00 に 直す こと で 実行 で きま す . 


ブロ グラ ム の 説明 


プロ グラ ム の 占め る 領域 wHC600 か ら &LHE466 ま で の 
うち , デー タ ・ エ リア が &HC600 か ら & HCCFF ま で, ワ 
ー キ ング ・ エ リア が &HCD00 か ら &HCEFF まで を 占め ま 
が 

な ぜ デ テク タ ・ エ リア が こん な に 大きく な っ だ か と 言う と , 
エン ター プラ イズ が 14 通 り 、 クリ ンプ ン 艦 が 32 通 り 。 クリ 
ン ゴ ン 光 子 魚 雷 が 16 通 り , エン ター プラ イズ 交 子 魚雷 が 8 
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CFA5HIENMNUM| 同 エ ンタ ー プ ライ ズ 光 子 色 宙 
CEC1HISTANUM| 同時 (画面 内 に 10 個 存在 する ) 
CFD2HIDATKLI | 描こ うと する クリ ンプ ン 艦 の 画像 デー 
タ を 出力 
DO066HIDATKLM| 同 ク リン ゴン 光子 色 党 

DO ADH|DATENM| 同 エ ンタ ー プ ライ ズ 光 子 魚 宇 
D850H|IDATENT | 向 エ ンタ ー プ ライ ズ 
DDB8H|WARDAT | 同 ワ ー フ 中 エン ター プラ イズ 
DOE7H|KLMSCN| 待機 中 の クリ ン ゴ ン 光 子 魚 宙 を 探す . 
DOFCHIENMSCN | 同 エ ンタ ー プ ライ ズ 光 子 色 宙 
DiiiHlPUT 画像 を 描く か 消す - 
D222H|ATTRIB | アトリビュート ・ エ リア 制御 
D2FOH|IDELCUL | 移動 物体 に コー ス を える 
D34CHIVECTCU| 移動 物体 に 動く 方 向 を 指示 する 
D3FOHISRND ROM よ り 忠 数 を 発生 
D4DOHISTACON| 呈 の 制御 
D560HIAIMEIR | クリ ンプ ゴン 光子 急 生 の 順 準 
D5COHIRKLIRND | クリ ンプ ン 艦 の 初期 化 
D608HIKLFJUD | クリ ンプ ン 艦 爆発 を 判断 
De67CH 8 NOCN | 生き て いる クリ ンプ ピン 艦 の 制御 
D70CH LMOYE 

































































クリ ン ゴ ン 艦 の 移動 

D980H ABCN | 燃 発 中 の クリ ン ゴ ン 艦 を 制御 
D7ACH|ENEJUD | エン ター プラ イィ イズ に 命中 し た か 否 か の 
判断 

D8SD4HIKLMCON | クリ ンプ ゴン 光 子 療 宙 御 
D9DCHIENTMCN | エン ター プラ イズ 側 光 子 魚 宙 制 御 
DA60HIENMEIR | エン ター プラ イズ 光子 区 党 発 前 
DABOHIENTCON | エン ター プラ イズ 制御 
DAFESH | INPUT キー 入 力 

DEO4H|WARP ワー ブフ 制御 
D7ESHIGMPREP | 面 が 変わ る ご と の 初期 化 
DE9CHIPREP ゲー ム 開 始 時 の 初期 化 
DEF6HIMAIN ゲー ム 部 主 ル ー チ ン 
EIE4HIDEMONS | ゲー ム 開 始 時 の デモ 制御 
E200HIHMAIN 最上 位 ル ー チ ン 
























































通り , 他 に グラ フィ ッ ク で 描い た 廊 字 が 27 通 り の 画像 を 使 
っ で ゆる た あめ 人 です 。 

表 2 と 表 3 に 主要 サブ ルー チン の 説明 お よび 主要 ワー ク 
・ エ リア の 説明 を 示し ます . 国 3 の フロ ー チ ャ ー ト と 共に 
参照 し て くだ さい . な お , ブロ グラ ム 自 体 は 例 に よっ て 破 
減 的 な の で , あま り 見 られ な い 方 が 良い の で は …… ・ 


音 出 し , 音 消 し で は &HDF06 番 地 を 直接 書き 替え て い 
ます . この 範囲 の チェ ッ ク ・ サ ム が 狂っ て いた と き に は ま 


9 法 還 と を NGK<8 だ さい 5 
































図 3 フロ ー チ ャ ー ト (概略 ) 





a) ジェ ネ ラ ル ・ フ ロー チャ ー ト 






E200 番 地 





ゲー ム ・ オ ー バ ー 処 理 











| KLABCN | 





STOP キ ー が 
押さ GA る か 


音 消し 指示 が あれ ば 消す 


Lessr [ 












変更 可能 な 場所 は 2 筒 所 だ け で す . 1 つ は 各 SECTI 
ON で の クリ ン デ ゴン 機 数 と 発砲 類 度 で . これ は &HCCE 
8 か ら &HCCFEFE ま で テー ブル に な っ て いま す . 偶数 バ 
イト が 各 面 機 数 奇数 バイ ト が 発砲 頻度 で す . 発砲 頻度 は 
何 ビ ッ ト 立 っ て いる か て で 変化 し , 立っ て いる ビッ ト 数 が 少 
な いと 発砲 問 度 は 増し ます . 

第 2 は 反射 神経 の 特に 優れ て いる 人 の み に お 勧め し ます 
が 。 この ゲー ム の 速度 を 押 き を て いる の は モモ と し て アト リ 
ビュ ー ト ・ エ リア 制御 な の で す . だ か ら 『 画 面 は 真っ 白 で 
いい / と に か く < く 限界 まで 速く ノ 』 と いう 人 に は &HD222 番 
地 に &HC9 を 書い て みる こと を お 勧め し ます - 

いま の まま で も 相当 な 反射 神経 が 必要 で す が ,. ちな み に 
作者 の アベ レー ジ は 12.000 点 ほど で す -. 





注意 所 


各 面 機 数 に 関係 な せく, 画面 内 に 同時 に 存在 する クリ ン ゴ 
ン 艦 は 5 隻 ま で で す . 同様 に エン ター プラ イズ の 光子 魚雷 
数 も 5, クリンゴン 側 光 子 魚 憲 は 10 ま で で す . 





クリ ン ゴ ン 科 側 の 昭 準 は 正確 に エン ター プラ イズ を 独 っ 
て くる も の と , わざ と エン ター プラ イズ の 動 こ うと する 方 
向 に ずら し て くる も の と 半々 で す -. 


最後 に 


アト リ ビ ュ ー ト ・ エ リア 制御 に 関す る ROM 内 サ プ ブルー 
チン を 読ん で 見 る と PC は キャ ラク タ 単 位 で の 色 変 更 や 属 


性 変更 を 念頭 に 置い た マイ コン で ある こと が わか り ま す . 


この ゲー ム の 中 で 使用 する 画像 は 数 10 キ ャ ラク タ よ り 成 
る 領域 を 占め る も の が 多く , その た め , ROM 内 ルー チン 
に より キャ ラク タ 単 位 で 色 を 付け て いた の で は 遅 過 ぎる し , 
また , アル ブリ ズム の 良い 練習 問題 に も な る の で , RO 
MI 和 内 サブルーチン は あま り 使 わ ず 自 分 で 色 制 御 部 を 作っ て 
み ま し た . な お , 一 度 色 宣言 を し た エリ ア は し ば らく その 
色 が 残る の で も 色 が 付き ます . 

私 と し て は 宇宙 も の は これ で お し まい , 次 回 か ら は 少し 
EE 色 の 異な る 『 フ ァ イ ア ノ 』 シ リー ズ を 作り た いと 思い ま 
まず: 

な お , この ゲー ム は ROM 内 サブ ルー チン を か な り 使 っ 
て いま す が ,. いま の と ころ , どの バー ジョ ン で も 大 寺 夫 の 
は ず で す (画面 反転 OUT81.33 は 使っ て いな い の で ). と に 
か く 葵 絶 無双 混乱 極限 の プロ グラ ム で す が , お 許し を . 
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主要 な ワー ク ・ エ リア 


































































































番 地 番 いい! 明 
CD0O0 昌 (609 二分 得点 CE71H-ーCE73H ま で に 6 桁 ま で の 10 進 
1 PUT お よび ATTRIB の 入出 力 お よび スタ ッ ク R 数 が 入り 、 CE74H の 第 0 一 第 5 ビット が 各 桁 表 
CD2AH CE74 古 示 の スイ ッ チ に な る . 
CD2BH NUMBER 入 力 CE75 呈 HIGH SCORE 各 バ イト の 役割 は 同上 
CD2DH ン ゴ ン 和 解 状態 表 00H で ノー マル .、 ! 
! それ 以外 で パス CE78H 
CD31H CE7C 古 ROM 読 み ポ インタ 
CD32 古 同 ク リン ゴン 光子 秋生 00H で 待機 、01H で 進行 CE7DH 
! CE7EH ゲー タカ ウジ シタ 
CD3BH CE7F 呈 
CD 3 で CH 同 エ ンタ ー プ ブラ イズ 光子 魚 宙 00H で 人 待機 。01H CESOH SECTION NUMBER (16 進 ) 
) CE81H 当該 SECTION で の 臣 虹 必 要 機 数 
CD は 30H CES2H 発砲 類 度 決定 用 数 値 
CD は 1H クリ ンプ ゴン 艦 ワ ー ク ・ CES3H 発砲 用 カウ ンタ 
) CES4H 届 墜 機 数 
CDS7H CES5HH クリ ンプ ゴン 発生 倍 止 スイ ッ チ 
CDSSH クリ ンプ ゴン 光 了 チ 魚 雷 ワ ー ク ・ CE8SSH キー 入力 袋 止 ス イッ チ 
! CES9H エ 多 グー ブライ ズバ データ 
CDD7H ! 
CDDSH エン ター プラ イズ 光子 希 二 ワー ク ・ CESFH 
! CE90H SECTION _ NUMBER (10 進 ) 
CDFFH CE91 呈 子 備 エ ンタ ー プ ライ ズ 機 数 
:E0O0H DELCUL 入 出力 お よび スタ ッ ク CE92H 音 長 カウ ンタ 
) CE94 呈 乱数 (SRND 出 力 ) 
CEO9H CE99H 平行 移動 方 向 
CEOAH VECTCU 入 出力 お よび スタ ッ ク CE9AH エン ター プラ イズ 光子 魚雷 発 半 ス イッ チ 
) CE9BH 同人 覇 止 カ ウン タ 
CE1IEH CE9C 馬 旋回 移動 方 向 
CE20H CEAO 昌 画面 クリ ア お よび 画像 消去 用 ヌル ・ キ ャ ラク タ 
! ! 
CE6FH CEFFHH 























ター トレ ッ ク ・ フ ファイア ダン プ 
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スタ ー ト レッ ク ・ フ ァ イ ア ダ 
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ーー チェ ッ ク ・ サ ム は モニ タ と プリ ンタ へ 同時 に 出力 され る の で , プ 
チェッ ク ・ サ ム プロ グラ ム の 使い 方 リン タ の な い 方 は 行 番 号 240 を 削除 し て くだ さい . 
プロ グラ ム を RUN さ せ て か ら , スタ ー ト 番地 、 エ ンド 番地 を また C001 番地 より 以前 に ある プロ グラ ム の チェ ッ ク を 取る 
16 進 数 で 入力 し ます .。 バイ ト 数 は 64 バ イト と 指定 し て くだ さい . 場合 は 行 番号 100 の &HC5FF を 適当 に 変え て くだ さい - 








1g CELERE さ 回 。&HC5FF 
11 MIETHH は 25:EHHSHLEB 








加 
品 
ユエ 
En 
問 
ピコ 
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呈 
国 
5 
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3 
ト ュ 
8 
En 
回 
コラ 
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13 ロ TIHFUT" ミ tart 
1 IHPIT "=rd 
15 ロ INFUT "bg te 
1E ロ 記 = ロ に = ニ +T: 1F 
5 TH KR-1 


5 まこ 
=UHL "Eh"TE ま ュ : IF EXBTHEHN E= ニ E+pSS 






mtVENEXT 
3 ISUE2 







校内 委 7 に 
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3 LFRIHTS ま ま リ ーー "5E ま : 
35 IF >=E THEH EHE, ELSE GHTH 1Eg 
eg =INTK 3 は 和 す 35 キ 日 
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28 =INTKKZ1E EK 
23g EETIUEH 
マシ ン 語 プロ グラ ム の チェ ッ ク ・ サ ム 

Ce60O 一 C63F = 12BE1 CCBO CCEBF = 1aCF D3OO - D3SF = 1E42 D9 ヨ 0 - D9EF = 231H E ー E0 さ F = 1a2F 
Ce40 - C67F = 1179 CCCO 一 CCFF = 1BE2 D340 - D37F = 2138 D9CO - DFF = 2211 EQ4O 一 EQO7F = 27D6 
C6BO 一 C6BEF = 15B6 CDOO - CDSF、= OEFB DSBoO - D3BF = 1BS55 DAOO - DA3F = 1DDF EQOBO 一 EOBF = 2BD さ 
Ce6CO - C6FF = 12F6 CD4O 一 CD7F = OEBB D さ CO - DSFF = 1D4E DA40 一 Da7F = 2271 EQOCO 一 EOFF = 1C77 
C7OO 一 CZ7SF = O55C CDBO 一 CDBF = 100Z D4Q0O 一 D4 さ F = 1FBA DABO 一 DaABF = 1F5F E10O 一 E1 さ F = 1CS4 
C740 一 C77F = OCE6 CDCO - CDFF = 12DC D44O 一 D47F = 1D19 DAQCO 一 DQFF = 236E E140 一 E17F = 2050 
C7 ヨ O - CZ7EF = QEBZ CEOO 一 CESF = OFAZ D4BO - D4BF = 2QOD さ DEOO - DESF = 1FE4 E1HO - E1BF = 194 
C7CO 一 C7FF = 1O6E CE4O - CEZF = 1O5F D4CO 一 D4FF = 21B1 DE40 - DB7F = 2216 E1CO - E1FF = 23E2 
CBOO 一 CBSF = OF67 CEBO 一 CEBF = 0O98B2 DSoo 一 DS53F = 1EDF DBBO - DEBBF = 20F1 E2OO - E2SF = 25DC 
CB40 一 CB7F = QOQSE CECO - CEFF = OOFA D54O - D57F = 2186 DBCO 一 DBFF = 2ODF E240 一 E27F = 1FOZ7 
CBBO - CBEF = OFED CFOO - CFSF = 18SE DS5BO 一 DS5EF = 21OBH DCOO 一 DCSF = 1BE9 E2HO 一 E2BF = 1E9F 
CBCO - CBFF = 197A CF40 - CF7F = 1DBS D5Co - DS5FF = 1FZD DC40 - DC7F = 1EBC E2CO - E2FF = 1FBC 
COO - C93F = OCBA CFBO - CFBF = 1D7 フ 7 Deoo 一 D63F = 21C1 DCBO - DCBF = 200C E3OO - ES3 さ F = 17D1 
C940 一 C97F = ODA2 CFCO 一 CFFF = 1BQZ D64O 一 D67F = 209a DCCO 一 DCFF = 1FE1 E ス 40 - E ミ 7F = 1981 
CBO - CBF = 072C Dooo - DOSF = 19 ミ 1 DeBO 一 D6BF = 216 さ DDoo - DDSF = 23Da ESBO - E3BF = 1DF5 
C9CO 一 C9FF = 1420 Do40 一 DO7F = 19D さ DeCO - D6FF = 25OA DD40 - DD7F = 23DC E3CO - ESFF = 229E 
CAOO 一 CASF = OCO4 DOBO 一 DOBF = 1DAD D7ZOO 一 D7SF = 2 さ 324 DD ヨ O - DDEF = 1FSC E400 一 E4 ミ F っ 5E4 
CA4O 一 CA7F = OE52 DoCo - DOFF = 1CSE D740 - D77F = 1C2E DDCo - DDFF = 1AQC E440 一 E466 = 1592 
CQBO 一 CAEF = 1S さ GE D1OO 一 D1SF = 20D6 D7BO 一 D7BF = 2OB5 DEOO 一 DESF = 21BF 
CACO - CaFF = 19D1 D14O 一 D17F = 1CO6 D7CO 一 D7FF = 1EC8 DE40 - DE7F 17BC 
CBOO - CB3F = 15S3B D1 ヨ oO - DIEF = 1D3 DBoO 一 DBSF = 2474 DEBO - DEEF = 2214 
CE40 - CB7F = 1D4a D1CO - DIFF = 1a92 DB4O 一 DB7F = 1C2O DECO 一 DEFF = 1DEC 
CBBO - CBEF = 211 昌 ー D23F = 1C54 DBBO - DBBF = 179E DFOO - DFSF = 283F 
CECO 一 CBFF = 1AEF ー D27F = 1C44 DB ヨ CO 一 DBFF = 1E4F DF4O 一 DF7F = 2401 
CCoOO 一 CCSF = 143C ー D2BF = 1CC2 DOO 一 D93F = 1E25 DFBO - DFEF = 26CO 

|_CC49 一 CCZF = 2176 ー D2FF = 20DF D940 一 D97F = = 1D4A 





























2 さ 67 DFCO - DFFF 回 則 
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了 PC-8001 


BASIC 十 マシ ン 語 








た 迷 一 一 上 一 一 上 ※ 一 一 上 ※ 一 一 ボー ボー 一 析 一 一 ※ーー 上 一 一 ※ー 一 上 ※ー 一 米 一 一 ボー 一 玉 一 一 ボボ ーー ボーー 米 ま に 直せ ば , プリ ント 出力 で きま す . 


」 0 シバ ニン シンパ が 天 り ペド si ラ ョ ンジ (は 人 の 剛 チェ ッ ク ・ サ ム が すべ て OK な ら , 恐らく マシ ン 語 は 大 
+ パッ と し な く て , 約 半年 前 (? ) か ら 出現 し た の が ! 堆 夫 と 思わ れ ま す . BASIC の 行 番号 10 と 5000 一 5140 を 消し 


* ギャ ラク シア ン で し た . 一 度 途 中 まで 作っ て みた と 


キ て , も う 一 度 テ ー プ に と っ て お きま し ょ う . 
* き は メモ リ ・ オ ー バ ー に な っ て し まい ,。 あき ら め て 


いま し た . し か し , 誰 も 本 に 発表 し て くれ そう も な 


<, 秦 起 し て 今度 は 省エネ ル ギ な ら ぬ 省 メ モリ に 徹 る ゲー ム の 解説 
し , さら に 最近 の 知識 (の つも り ) を 投入 し て I6K R + マー 


ホー ニキ ーー 











| AM で も 走る ギャ ラク シア ン を 完成 させ まし た . ビー ム 砲 は テン キー の [4| で 左 へ , [| で 右 へ 移動 し ます . 
PSSP%SREAESPieT2ERS ビー ム の 発射 は スペ ー ス | キー で す . 








RUN す る と まず 解説 が 出 て き て , |RETURN| キー を 押す 
と ゲー ム が 始ま り ま す . 画面 右側 に は , SCORE, Hi-SCO 
RE, ビー ム 砲 の 数 が 表示 され ます . MYSTERY POINT 


1 本 物 と 比べ て と いう の は 攻撃 中 の 母船 に 命中 し た と き 表 示さ れ ま す . S 
民 CENE は 局面 数 の こと で す . 





最近 の ギャ ラク シア ン は , パー ト TII と か パー ト TIV と か , コン ボ イ が 移動 を 始め , し ば らく する と ビー ム 礼 が 描か 
か な り 進 ん で いる よう で す が , 何しろ 原型 し か や っ た こと れ て 開始 で す . この 時 間 は ビー ム 砲 が や られ た と き 空 中 に 
が な い の で , それ に 準 選 だ る もの: 選 し まし し た, いる ギャ ラク シア ン が コン ボ イ へ 戻る た めで , この 時 間 な 
本 物 に 比べ て お つる と ころ は 。 し に すぐ に ビー ム 砲 を 描く と , 訳 の わか ら な いう ち に 再び 
⑯ あ の すばらし い 音 が 出 な い . や られ る は め に な り ま す . 
@ ド ッ ト が 荒い の で ち 性 と し た 形 に な ら な い . 最初 の うち は 1 耕 の ギャ ラク シア ン が 攻撃 を 仕掛 け て き 
背景 の 星 の 流れ が な ます . 下 半 分 に か か る と ミサ イル を 発射 し て くる の で , 避 
⑳ ラ イン ・ カ ラー に な っ て いて 。 各 ギ ャ ラク シア ン ご と に け な が ら 机 破 し て くだ さい . ギャ ラク シア ン の 数 が 減る に 
色 が つか な い . つれ て 攻撃 し て くる 数 が 増え て きま す . 母船 と 護衛 は た い 
カー ブ で ギャ ラク シア ン が 傾 か な い . て い の 場 合 , 3 吾 で 1 グレ ループ に な っ て 攻撃 し て きま す . 
な ど , いろ いろ あり ます . ミサ イル が 矢 プ スマ の ご と く 3 208285 信 520 ある い は コン ボ イ 
降っ て くる 点 な ど , 本 物 以 上 に むず か し いと ころ も あり ま 型 が 1 耕 残っ て いる と き に 局面 は 次 に 移り ます . 
す . 面白 さき の エッ セン ス だ け は 取り 入れ て ある つも り 9 5,000 点 を 超す と ビー ム 砲 は 1 吾 追 加 さ れ ま す . この と 


き の 追 加 音 が , ビー ム 砲 を や られ た と き の 音 に 似 て いま す 
の で , 問 違 えな いよ うに し て くだ さい 


こ ( 
ブロ グ ラム の 入力 に つい て 25 面 消 りす と ギャ ラク シア ン は 全 減 で GIVE UP し 


ます が , ここ まで 行く 人 は …… まず いな いで し ょ う 。 
BASIC の プロ グラ ム に は チェ ッ ク ・ サ ム が 付属 し て いま 
す . BASIC, マシ ン 語 と も 入力 し た ら テ ー プ に 入れ て お き 


まし ょ う . マシ ン 語 は 間違え る と た いて い 桑 走 し ます . 1 編 貞 





RUN す る と , 
得点 は 表 1 に 示し ます . 攻撃 型 は コン ボ イ 型 の 倍 に な っ 
と 表示 し た 後 , 次 々 と 64 バ イト ご と の チェ ッ ク ・ サ ム の 値 が て いま す . MYSTERY POINT は 母船 の み に 命中 し た と き 
出 て きま す . 適当 な と ころ で [ESC | キー で 画面 を 止め て , 200 点 , 護衛 に 命中 し た 後 , 母船 に 命中 し た と き 400 点 , 座 
本 の 値 と 比べ て くだ さい . も し 違っ て いる と き は そこ の 番 4 し て か ら 母 船 に 命中 し た と き 800 点 で , こ の と 
地 の 範 囲 に つい て チェ ッ ク し て くだ さい . の 得点 は 画面 右側 に し ば らく 表示 され ます . 


プリ ンタ の ある 人 は 。, 行 番号 5090 の PRINT を LPRINT 
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| ギャ ラク シア ン | 





ー キ ーー- 





RUN 直 後に 表示 され る ゲー ム の 説明 


PLNY 


6ALWAINN 6RNNE SC0RE 
099 
Hi-SCO0R 


中 6 


FUNCTIIONG? ぅ f- 


ーーー 


BEAN en SPANCEKey 


5999 POINT 3 コ JUL P-49 1 が 4 2177 


HIt RETURN Keu to $tart 


SCORE 
09666 

Hi-SCORE 
69019 


中 ( 


NSTERY POINI 


SCENE 


時 々 , 母船 を 含む 3 機 が 編隊 を 組ん で 攻撃 し て くる . 


SCORE 
66439 

Hi-SCORE 
69919 


中 ・ 


NWSTER 


SCENE 





NWSTERY PCI 











E 


Ni 


ゲー ム を 開始 し て , し ば らく は ギャ ラク シア ン の 攻撃 が な い が … 











こう な る と 逃げ 回 る の も 大 変 / 


SCORE 
1206 

1 で きす 3 
に うい 


中 ・ 


RSTERY 


SCENE 
母船 を うま く 攻 撃 し て ミス テリ ー ポ イン ト が で る 


SCORE 
61509 

Hi-SCORE 
6699 


中 


MVSTERNY RIN 
eHh 


SCENE 


第 1 面 を 無事 きり ぬけ , 第 2 面 が 始ま っ た と ころ 


避 L』 
に アス て エマ エエ 


Hi-SC0RE 
に 


中 


NWSTERY POINT 


SCENE 2 








5. プロ グラ ム の 有 解 説 


W マ シン 語 


動き を 必要 と する と ころ は すべ て マシ ン 語 で 組ん で あり , 


BASIC へ は 終了 時 に 戻る だ け で す . 
図 1 に ジェ ネ ラ ル ・ フ ロー チャ ー ト を 示し ます . 


16 進 の 


数 値 は サブルーチン の 番地 で す . (1) 一 (7) の サブ ルー チン に 
つい て は , それ ぞ れ の フロ ー チ ャ ー ト を 図 2 一 図 8 に 示し 


ます . 


これ ら の フロ ー チ ャ ー ト を 見 れ ば , だ いた い の 動 き 


表 1 得点 
ギャ ラク シア ン の タイ プ | コン ボ イ 型 攻撃 型 


四 計 当 an e 
ae 40 ' 80 
還 母船 60 


MYSTERY 
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表 2 マシ ン 語 サブ ルー チン 素 8 ワー ク ・ エ リア 
番 地 内 容 番 地 内 容 
D400 一 D462 | ギャ ラク シア ン を 描く サブ ルー チン E866 ビー ム 砲 表示 まで の 待機 カウ ンタ 
D463 一 D4B9 | 初期 画面 E867, E868| 母船 1 飛行 コー ス ・ ポ イン タ 
D4BA 一 D4EC | 10 進 出力 サ プ ル ー チ ン E869, E86Al| 母船 2) / / 
D4ED 一 D4FF | 0 一 FF の 乱数 サ プ ブルー チン E86B 母船 (攻撃 型 ) の 存在 
D500 一 D50C | タイ マ E86C,E86D| 〉/ ,. ヵ ゥ の アド レス 
D50D 一 D52F | クロ ッ ク 更 新 .| ス ペー ス | キ ー を 戻し た か . E86E カ カ Y 値 
D530 一 D5A8 | ギャ ラク シア ン の 踊り E86F 7 / X 値 
D5A9 一 D6 3 4 | ギャ ラク シア ング の 左右 移動 E870 / / タイ プ 
D635 一 D6 9 4 | ビー ム 砲 移動 Ei8.78ls BS8172 / / コン ボ イ 中 で の 位置 
D695 一 D6DB | ビー スム 発射 E873, E874 / / 飛行 コー スポ イン タ ア ドレ ス 
D6DC 一 D7 6 3 | ビー ム ト 上 昇 , 命中 . V-RAM 内 か コン ポイ 型 . E875 一 E87E| 護衛 1) 一 一 母船 と 同様 の 配列 
D764 一 D7EB カ 攻撃 弄 E87F-E888 / (2⑫②ー 一 / / 
D7EC 一 D845 カ 母船 E889, E88A| 0 一 FFFF の 乱数 値 
D846 一 D88C | コン ボ イ 型 の ワー ク を 消す . E88B 局面 数 
D88D 一 D8C 3 | ギャ ラク シア ン 爆 発 マ ー ク , 得点 計算 E88C ミサ イル (1) の 存在 
D8C4 一 D90 9 | ビー ム 稀 追 加 し た か ? E88D, E88E / 。 (1) の アド レス 
D90A 一 D93F | 攻撃 型 の ワー ク を 消す . E88F 一 E8C7 | ミサ イル (2) ミサ イル 0 で , ミサ イル (1) と 同様 
D940 一 D978 | 母船 得点 表示 E8C8 ビー ム 砲 を 追加 し た か 
D979 一 D9CF| 母船 得点 の 数 字 を 描く サブ ルー チン E8C9 攻撃 型 ギ キャ ラク シア ン の 数 
D9D0 一 D9DF | ビー ム を 砲台 に つけ る サブ ルー チン E8CA 攻撃 型 ギ キャラ クシ アン (1) の 存在 
D9E0 一 DAO9 | 番地 計算 サ プ ブルー チン EACRBHEABROIG / の アド レス 
DAOA 一 DA2B | ギャ ラク シア ン の 数 か ら , 攻撃 する も E8CD / の Y 値 
の の 数 を 決め る . E8CE / の X 値 
DA2C 一 DACF | 攻撃 する ギャ ラク シア ン を 決め て , デ E8CF 7 た の 多 12Z 
ー タ を 移す . E8D0, E8DI / の コン ボ イ 中 の 位置 
DAD0O 一 DAE 7 | ギャ ラク シア ン を 描く サブ ルー チン E8D2, E8D3 / の 飛行 コー ス ・ ボ ポイ ンタ ・ ア ドレ ス 
DB56 一 DB7F | ギャ ラク シア ン 飛 行 の メイ ン ・ ル ー チ ン E8D4 一 E8FI | 攻撃 型 ギ キャ ラク シア ン (2 た (4) で , (1) と 同様 
DB80 一 DB9F | デー タ の エク スチ ェ ン ジ E8F2 ミス テリ ー ポ イン ト 表 示 カ ウン タ 
DBA0 一 DC36 | ギャ ラク シア ン 飛 行 の サブ ルー チン E8F3 ミス テリ ー ポ イン ト 表 示し て いる か ? 
DC37 一 DC85| 飛行 コー ス の ポイ ンタ 変更 (1) E8F4, E8F5| HI-SCORE 
DC86 一 DCAB | ミサ イル 発生 E8F6, E8F7| SCORE 
DCAC 一 DD06 | ビー ム 砲 爆発 マー ク , ビー ム 砲 を 1 吾 E8F8 コン ボ イ 型 の ワー ク 内 に あっ た か の フラ グ 
減ら す . E8F9 護衛 を 何 台 や られ た か ? 
DD0O7 一 DD5C / / 。 の サブ ルー チン E8FA ビー ム 砲 の 数 
音 を 出す サブ ルー チン E8FB, E8FC| ビー ム ・ ア ドレ ス 
DD5D 一 DDCF| 飛行 コー ス の ポイ ンタ 変更 (2) E8FD ビー ム 発 射 し て いる か ? 
DDD0 一 DDEF| 0 一 7 の 乱数 を 得る サブ ルー チン E8FE コン ボ イ 型 エイ リア ン (1) の 存在 
DDF0O 一 DE3F | コン ボ イ 型 へ 戻る . E8FF, E900 7/ / (1) ア ドレ ス 
DE40 一 DE8C| 攻撃 型 母船 の デー タ 移 動 E901I 7/ / ()Y 値 
DE8D 一 DEEC / 護衛 の E902 / / (1)X 値 
DEED 一 DF0O3 | 護衛 の み の 飛行 E903 7/ ル (1) タ イプ 
DF04 一 DF4B| 攻撃 型 母 船 と 護衛 を 決め る . E904 一 E9F 3 | コン ポイ 型 エ イリ アン (2 た (0 で , (1) と 同様 
DF4C 一 DF59| 母船 , 護衛 の ワー ク を 消す . E9F4 移動 方 向 値 一 時 スタ ッ ク 
DF5A 一 DF6C| 飛行 の コー ス を 決め る . E9F5, E9F6| ビー ム 砲 アド レス 
DF6D 一 DF7F| デー タ の エク スチ ェ ン ジ E9F7 ビー ム 砲 や られ た か ? 
DF80 一 DF9F| 母船 の 飛行 の メイ ン ・ ル ー チ ン E9F8 BASIC リ ター ン 要 求 
DFA0 一 E049| 母船 と 護衛 の 飛行 サ プ ザル ー チ ン EE9E'9 0 一 FF の 乱数 値 
E04A 一 EO68| コン ボ イ 中 の 母船 を 描く . E9FA ギャ ラク シア ン の 数 
E069 一 E0O7F| 飛行 コー ス の ポイ ンタ 変更 E3FB / の 踊り 
E080 一 EOF9 | ミサ イル 降下 E9FC / 移動 方 向 
EOFAーEI2F| ミス テリ ー ポ イン ト 表 示 を 消す . の 二 な 20 
EI30 一 EI6 5| ハイ スコ ア ・ サ プ ブルー チン に 8 に この 5 
EI66 一 EI7F| 画面 左 半 分 の クリ ア 還 ー 
EI80 一 EIA9 | ギャ ラク シア ン = 0 か の チェ ッ ク ee 
EIAAーEIBF| RUN 時 初期 設定 mmz 
EIC0 一 E259| 第 1, 第 2 初期 設定 がく can ンタ 
E35A 一 E3 79| ビー ム 砲 爆発 時 の 初期 設定 〆 っ を 
E37A 一 E415| メイ ン ・ ル ー チ ン ) 
E416 一 E4 IF| 画面 右 の ビー ム 砲 を 描く デ 
E420 一 E495| カラ ー 化 
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| | ギャ ラク シア ン 還 

















図 1 ジェ ネ ラ ル ・ フ ロー チャ ー ト 図 5 攻撃 型 ギ ャ ラク シア ン 【[ 4〕 


第 | ・ 第 2 初期 設定 IEICO 












残っ て いる キャ ラク シ 















初期 画面 D436 アン 数 に より 飛行 する 
数 を 決め て 、C レ ジス 
タ に 入れ る 
| クロック の イン クリ メン 財 D 50D 
1X、1Y に ポイ ンタ 
を 入れ る 
タイ マ D500 
1) ギャラ クシ アン の 踊 MD530 


[ 2 〕 』 ギ ャ ラク シア ン 左 右 移動 』 D 5 A 9 


上 待機 カウ ンタ 
が 0 か 





待機 カウ ンタ が 2 の 
と き ピ ビー ム 砲 を 表示 


が 空い て 
る か ? 





コン ボ イ 型 の ワー ク か ら 


攻撃 型 ギ キャ ラク シア ン lMp A 0 A FV 
こ 移 


を 決め る 


攻撃 型 母 鯛 と 護衛 を 
を 決め る DE40 


の 


ギャ ラク シア ン の 降下 DB56 


DF6D 








E080 


EOFA 





図 2 ギャ ラク シア ン の 踊り (1 〕 


踊り の 
タイ ミン グ か ? 


ア yes 


RETURN 











ピー ム 砲 爆発 時 の 初期 yes 


ーー(() 


TO 


ギャ ラク シア ン を 消す 


の 


コン ボ イ 型 を 描く 









攻撃 型 を 描く 
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\ 








較 3 ギャ ラク シア ン 左 右 移動 〔 2 〕 


移動 の 
タイ ミン グ か ? 










nO 






1X 一 ボイン タ 








9 


9 の | 移動 方 向 を 変え る 





移動 方 向 を 変え る 





START 


ビーム no 
出現 し て いる か 7 





図 8 ミサ イル 降下 (7〕 


S 
1X 一 ワー クエ リア 先頭 


アド レス を 1 つ 上 へ 
上 げ る 


Cr ー 
ピー ム 砲 が 0 な ら BASIC RET 


リタ ー ン の フラ グ を 立て る 95 


を 
ミサ イル を 描く RET 





図 6 攻撃 型 母船 と 護衛 を 決め る (5] 








G A 数 が 
22 以 下 か 
7 


Ye: 


5 


母 般 ) が no 


消え て いる か 
? 
母 般 2 が 
消え て いる か 
? 


| ye5 
護衛 の デー タ を 移す 




















護衛 を 決め て 
デー タ を 移す 







較 4 ビー ム 上 昇 ・ 命 中 〔 3〕 


こく 2 クン 5 
6 


ビーム の ワー ク を 消す 


コン ボ イ 型 ある い は 
攻撃 型 の ワー ク を 消す 









ワー ク を 消す 












コン ボ イ 型 の ワー ク を 
消す 


ギャ ラク シア ン 爆 発 
マー ク 


け 算 表示 








RET 
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| ギャ ラク シア ン | 











図 7 ギャ ラク シア ン の 降下 〔6 〕 


ア yes 







上 部 飛行 コー ス を 決定 


X の 値 を 計算 


下部 飛行 コー ス を 決定 


画面 か ら yes 
出 て いる か 


4 
00 コン ボ イ へ 戻る 


Ga 


ビー ム 砲 0 な ら BASIC 
リタ ー ン の フラ グ を 立て る | 


に さ 
で 
の 


@ 
を 描く 


RET 


表 4 デー タ ・ エ リア 


























E25A 一 E359 | 初期 設定 の コン ボ ポイ 型 の デー タ 
DAE8 一 DB55 | ギャ ラク シア ン 飛 行 コ ー ス の デー タ 
表 5 BASIC プ ログ ラム 

行 番 号 | 内 容 
140 一 160 初期 設定 
170 説明 文 へ 
180-200 画面 の カラ ー 化 
210 一 280 画面 右側 の 表示 
290 マシ ン 語 メイ ン ・ ル ー チ ン へ 
300 マシ ン 語 ハイ スコ ア ・ ル ー チ ン へ ヘ へ 
310 GAME OVER か , GIVE UP か の 分 岐 
320 一 360 GAME OVER の 表示 
370-450 説明 文 
460-530 GIVE UP の 表示 
5000 一 5140 | チェ ッ ク ・ サ ム 
表 6 変更 点 
変 更 す s 点 | 番 地 | 現 の 値 (1 
(|) 全 体 の スピ ー ド E384 05 
※(2) ギ ャ ラク シア ン の 踊り 速度 | D534 0 7 
※(3) ギ ャ ラク シア ン 左 右 移動 速度 D5AD 1F 
※(4) ビ ー ム 砲 移動 速度 D639 0 3 
※(5) ビ ー ム の 速度 D6E6 0 1 
(6) ギ ャ ラク シア ン 飛 行 速度 D51I6 08 
※(7) ミ サイ ル 速 度 E084 0 3 
(8) 終 了 局 面 数 E3F0 1A 
9) ビ ー ム 砲 の 数 EIDI 0 4 
IW ミ サイ ル の 数 E08B 14 





























は わか る と 思い ます . 

さら に 詳し い サ ブ プルー チン の 役割 に つい て は 表 2 を 見 て 
くだ さい . ワー ク ・ エ リア を 表 3 に , デー タ ・ エ リア を 表 
4 光 寺 し 北 す 。 

マシ ン 語 の 解説 な ど は 細か く 書 いて いた ら キ リ が な い の 
で この 辺 に し て お きま すす が, フローチャート を 見 て それ か 
ら 内 容 を みれ ば , 理解 は 容易 と 思い ます . た だ し , プ ブログ 


ラム は 必ず し も フロ ー チ ャ ー ト 通り と は 限り ませ ん が …… 上 


@BASIC 


BASIC の プロ グラ ム は , 説明 交 , 初期 の 表示 , 終了 の 表 
示 く らい な の で , 簡単 に わか る と 思い ます . プロ グラ ム の 


内 容 に つい て は 表 5 に 示し ます . 


⑤., 変更 点 


うま く な り 過 ぎ て つま ら な いと いう 人 人 や (まず いな いと 
思い ます が ), むず か し 過ぎ て つま ら な いと いう 人 の た め 





に 変更 点 を 表 6 に 示し ます . 番号 の 頭 に っ * の つい た も の は 
変更 する 数 値 が 2 の 倍数 (00、01, 03, 07、0OF, 1F, 3 
全 。 eaece ) に な る よう に し て くだ きい 、. 


(5) の ビー ム の 
し 速 す ぎ ま す . 

(6) の ギャ ラク シア ン 飛 行 速度 は , 04 以 下 に は し な い 
で くだ さい . また , あま り 遅 くす る と , 避 で 説明 し た よう 
に 待機 時 間 の うち に コン ボ イ へ 戻れ ず , ビー ム 砲 出現 と か 
ちあ うこ と に な り ま す . 

(7 ) の ミサ イル 速度 は , ( 6 ) と の 兼ね 合い が 大 切 で , 
ミサ イル が ギャ ラク シア ン と 同じ 速度 や 逆 に 遅く て は , 変 
な も の で す . 

( 8 ) の 終了 局面 数 は , 得点 が 最高 65.535 点 まで で , そ 
れ 以 上 は 0 点 に 戻る た め , それ 以内 に 終了 と いう こと で 25 
面 に 設定 し まし た . も っ と も 25 面 まで 行っ た こと が な い の 
で , 実際 に 何 点 に な る か は 不明 で す . 

( 9 ) の ビー ム 砲 の 数 は , 10 吾 以上 に な る と 正しく 表示 
され ませ ん . 

(10) の ミサ イル 数 は 現在 20 個 あり ます が , 画面 上 に こ 
ん な に た くさ ん 出現 する こと は な く , 10 個 くら いで よさ そ 
う で す . プロ グラ ム を 組む 時 点 で は 見 当 が つか な い の で 多 
め に し て お いた の で す が …… 。 初心 者 の うち は , この 数 を 
少な くし て お く と 楽に な る と 思い ます . 

変更 は , 全体 の 調和 を 乱 き な いよ うに する こと が 重要 で , 
調和 の と れ て いな い ゲ ー ム は 興味 も 半減 し ます . 


速度 は , 00 に する と 速く な り ま す が 少 
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図 9 連続 し て キー の 値 を 読ま な くす る 方 法 





ク . グ リー ン ・ モ ニタ の 人 へ 


本 プロ グラ ム は カラ ー 用 に し て ある た め , グリ ー ン ・ モ ニ 
タ で は 薄く て 見 えな い 部 分 も ある と 思い ます . そこ で 変更 
点 で す が , まず マシ ン 語 で は E455 番 地 ( 現 在 00)0 に C9 を 
入れ ます . BASIC で は , COLOR 廊 の 数 値 を すべ て 7 に し 
ます . 行 番号 260、270 の LINE 文 中 の 数 値 も 変え る の を 忘 
れ な いよ うに し で くだ さい 、。 


@. ワ ン ポ イン ト ・ ア ドバイ ス 


一 連続 し て キー の 値 を 読ま な くす る 方 法 一 
ゲー ム で よく 使う ミサ イル や ビー ム の 発射 な どの と き マ 
シン 語 で キー の 読み 込み を する と , 押し て いる 間 連 続 し て 
読め る の で , 押し て いる だ け て で 連続 し て ビー ム が 出 て し ま 
いま す . これ で は 興味 半減 で . や は り 本 物 の よう に 1 回 ご 
と に キー を 押す よう に し た いも の で す (も っ と も , キー は 
早く 痛む /). 

さて その 方 法 で す が , 本 ゲー ム 中 で も 使用 し て いる も の 
で , 押す キー は | スペ ー ス | キー, ワー ク ・ エ リア で は E 9 
FEF に 初期 値 と し て 00 が 入っ て いる も の と し ます . キー を 
離し て な いと き は ここ に 01 が 入る こと に な り ま す . ここ で 
は , フロ ー チ ャ ー ト の 形 で 図 9 に 示し て お きま す . これ ら 
2 つの サブ ルー チン は , メイ ン の ルー プ ' の 中 の どこ に あっ 
て も か まい ませ ん . 本 プロ グラ ム で は (1) は D695-D 
6 AA, (2) は クロ ッ ク 更 新 サ プル ー チ ン 内 で , D51D 一 
D52C に ある の で , 実際 の マシ ン 語 は そちら を みて くだ さい . 


る お わり に 


や は リマ シン 語 の プロ グラ ム は 時 間 の か か る も の で , 以 
前 に 作り か けた と いう 基礎 が ある に も か か わら ず , か な り 
の 日 数 が か か り ま し た . BASIC の よう に スラ スラ 組め る 





(1) キー を 押し た と き 


A-(E9FF) 












Ac( 











es 
に ン 
yes 
ー00 
RET 








よう に な る の は いつ の こと や ら . 早く アセ ンプ ラ が 欲し い / 

高 得点 の コツ は …… , た だ ひたすら や る の み と い う 感 じ 
で す . と に か く 高 得点 の ギャ ラク シア ン を 狙う な ん て こと 
より ,、 ひたすら ミサ イル に あたら な いよ う 逃 げ ま わる こと 
が 高 得点 へ の 道 か も し れ ま せん . 筆者 の 今 ま で の HI-SCO 
RE は 11,140 点 で し た . 

カラ ー は ライ ン ご と の カラ ー で , キレ イ で は あり ます が , 
や は り ギ ャ ラク シア ン 1 機 ご と に 固有 の 色 を つけ た く , そ 
れ に は アト リ ビ ュ ー ト ・ エ リア を いじ る と いう 区 関 が ある 





BASIC プ ログ ラム 








の で す . PC 内 の モニ タ の カラ ー サ プ ブルー チン が 使え る と 
いい の で す が , どなた か ご 存 知 で し た ら 教え て くだ さい . 
@ 参 考 に し た も の 

1)2280 マ イコ ンプ ログ ラミ ング ・ テ クニ ッ ク , 
2) 八 丸 鉢 真 留 : 
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4) ゲ ー ム : ギャ ラク シア ン 
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ン 語 》 








イン ベー ダー に 下 嗣 され だ 地球 防衛 軍 は , も う ゲ ー ム 
| セン ター の 片隅 に 残る の み と な つ だ が (ちな み に 筆 者 は 6 
| 000 点 の 壁 が 越え られ な か っ だ ), ご 
る 地球 防衛 海軍 は いま だ 健在 で あつ た だ. 


し か し レ , ここ も エイ リア ン に 発見 され , いま や その 防衛 


: は サ プ マ リン 部 隊 の 員 う と ころ と な つた だ. 空中 か ら 大 拳 レ 
て 押し 寄せ る エイ リア ン は ミサ イル を 落と し , 海中 に は 浮 
: 遊 機雷 も 漂 つ て いる . さら に 海面 に 近づい た エイ リア ン は 
泊 中 へ 入っ て 体 当り を か け て くる. 

: あな だ は , これ ら 障 害 を 避け な が ら す べ て の エイ リア ン 
を ビー ム 砲 で 破壊 し な く て は な ら な い . 地球 の 運命 は 今や 
あな だ の 手 に 掘ら れ だ ・・‥‥・・ ノ 


必 び 方 


画面 の 右上 か ら , SCORE, HI-SCORE, サブ マリ ン 数 , 


SCENE (局面 の 数 ) が 表示 され ます . 
サブマリン は 最初 3 台 で , 4,.000 点 を 越え る と 1 右 追加 さ 


写真 1 エイ リア ン が 海 に も ぐる と , 斜め に 移動 する . 


ご 海底 の 秘密 基地 に あ 」 


re HIEN 


れ ま す . サブ プ マ リン は 上 , 下 , 左 , 右 に 動き ま , テン キー の 
2], 同 、[. 還 の キー で 動き ほ ま す ( 図 1).、 サブ プ マ リン が 後 
へ へ 動く と いう の も 少し 変 で す が , あま り 気 に し な いで くだ 
さい . 
スペ ベース | キ ー を 押す と ビー ム が 発射 され ます . キー を い 
っ た ん 離さ な いと 次 の ビー ム は 出 ま せん . また だ た, ビー ム が 
消 を える まで , 次 の ビー ム は 出 ま せん . 空中 の エイ リア ン は 
バリ ア を 張っ て いる の で , 中 央 に 当ら な いと 破壊 され ま 
せん . 海中 で は バリ ア が 張れ な いい ので, どこ に 当っ て も 
破壊 で きま す . 
図 1 サ プ マ リン の 移動 



































(上 ) 


(*) | 較 | () 


( 下 ) 


写真 2 浮遊 機電 に ぶつ か り , 潜水 艦 が 爆破 され る . 
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写真 3 ゲー ム の 説明 


4999 jpoint テ ^ SUBMRRINE 1 タ “ イ ッ ウイ 
S scene 7 サス コー トニ BONUS 1 ロ 9g point ツイ 


Hit PETURN ke 





写真 4 エイ リア ン を 迎え 撃つ か , そ れ と も 逃げ まわ る か … 





サ プ マ リン が エイ リア ン , 浮遊 機電 ( 個 ). ミサ イル に 当 
た る と 破壊 され ます . 

機電 は 最初 は 1 個 で す が , 3 面 か ら 2 個 、 9 面 か ら 3 個 
に な り ま す . 

海中 の エイ リア ン は 機電 や 仲間 の エイ リア ン と ぶつ か っ 
だ た とき, 爆発 は し ませ ん が 変形 する こと が あり ます (エイ 
リア ン は 変身 能力 が あっ た の か な ? ). 海底 まで 行っ た エイ 
リア ン は 再び 空中 に ワー プ ' し て 出 て きま す . 局面 が 進む に つ 
れ , エイ リア ン は 位置 を 下げ て 出現 し ます . 27 面 消す と エ 
イリ アン は GIVE UP で 全 減 し , 地球 防衛 軍 の 勝利 で す . 

ミサ イル と ビー ム が ぶつ か っ た だ た とき, ビー ム は いつ も 消 


減 し て し まい ます . 


エイ リア ン の 得点 は 表 1 の よう に な っ て いま す . 1 行 目 
と いう の は 一 番 下 の 行 で , 4 行 目 と いう の は 一 番 上 の 行 で 
す (海中 の エイ リア ン を 狙っ た 方 が 高 得点 で す が ・・・・ 危 険 
も 一 本 /). 

機 箇 は 撃っ て も 得点 に は な り ま せん . 5 面 ご と に BON 
US が 1,000 点 つき ます . 


素 1 エイ リア ン の 得点 


エイ リア ン 空中 海中 

1 行 目 , 2 行 目 30 50 
| 3 行 目 50 100 
| 4 行 目 70 150 
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写真 5 エイ リア ン が 洪水 艦 に 体 当 りす る 直前 





機電 は 左 か らし か 出 な いし , 海底 に 着い た エイ リア ン が 
空中 へ ワー プ す る の も 左側 に 出る 確率 が 高い の で す . まず , 
右側 の エイ リア ン を 全部 消し て 安全 域 を 作っ て お きま す . 
そし て , あと は 海底 まで 潜っ て , 無理 を し な いよ うに 海中 
の エイ リア ン を 消し て いき ます . 

海中 で は 左側 の エイ リア ン は 右 下 へ , 右側 の エイ リア ン 
は 左下 へ 移動 し ます . 慣れ て くる と どこ へ 降り て くる か わ 
か る の で , そこ で 待っ て いま す . ミサ イル は , か た まっ て 
落ち て くる こと が 多い の で 注意 し て くだ さい . 


プロ グラ ム に つい て 


(1 ) マシ ン 語 


動き を 必要 と する 重要 な 部 分 は すべ て マシ ン 語 で 組ん で 
いま す . その ため, サブ プ マ リン の 爆発 時 や エイ リア ン = テ 0 
の と き と 終 了 時 し か BASIC に 戻ら な い の で , それ 以外 は 

STOP キー が きき ませ ん . 途中 で 止め た いと き は , 

STOP キー を 押し て か ら RESET キー を 押す よう に し 
1 で 炎 7 き IO 

プロ グラ ム を 入力 し た ら , RUN す る 前 に 必ず テー プ に と 
っ て お きま し ょ う . マシ ン 語 は 1 つ 間 違え た だ け で も ウ 毅 走 
する 危険 が あり ます . 

マシ ン 語 に つい て は ,。 か な り 詳 し く フ ロー チャ ー ト を 書 


MARIN ALIEN マシ ン 語 プロ プラム ・ フ ロー チ ヤ ー ト 











(1) エ イリ アン ・ ダ ウン 












START 












START 


24 匹 
の エイ リア ン 
終了 ? 


エイ リア ン を 消す 







1 行 下 に 
エイ リア ン を 描く 


(2) エ イリ アン 左右 移動 





START " 





エイ リア ン の 
両端 を 消す 


攻撃 型 を 描く 集団 型 を 描く 


アム 
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(3) サ プ マ リン 移動 Y (④) 擬 電 発生 ・ 移 動 









局面 数 に より 
機雷 数 を 決め る 


70 





DA 0D 


< 思 コン ー 


OO ぐ m ポ ンジ に 5 シン 5 








ア 6S RET 
バク ハツ ルー チン へ 
ピン 
es oO 70 
移動 
yes RET 
- バク ハツ ルー チン へ の 
DA28 < 機電 移動 サ プ ル ー チ ン > 
no | 
| 
70 了 6S 
*R 尼 千 RET 
(5) ビ ー ム 発射 


| ほ ペ ベー ス | キ 一 
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MARNN ALIEN マシ フル お プロポ フ ラム ここ ンド 














| (6) ビ ー ム 上 昇 ] 


(7) ミ サイ ル 発 生 
















RET 


機雷 の ワー ク を 消す 


ミサ イル の ワー ク を 消す | 


| ミサ イル 発生 | 
サジ ルー テン 









イル (0!)(2) | 
クス チェ ンジ 






イル (1)(2) 
ク 


し ( 1)(3) 
ステ チェン ジ 





エイ リア ン 爆 発 マ ー ク 


エイ リア ン の ワー ク 消 す 


(8) ミ サイ ル 降 下 サ ブ プルー チ ン 










(9) マ リン ・ エ イリ アン 


ミサ イル の ワー ク を 消す 










| マリ ン ・ 
エイ リア ン 移 動 | 
マリ ン ・ エ イリ アン 
(1)(2) エ クス チェ ンジ 


マリ ン ・ エ イリ アジ 





Re 


yeS 
ン ャ 


爆発 の フラ グ を 立て る 















LSE] 





| マリ ン ・ 
エイ リア ン 移 動 
マリ ン ・ エ イリ アン 
(1)(2) エ クス チェ ンジ 
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MARIN ALIEN マシ ン 語 プロ プラ ム ・ フ ロー チ ヤ ー ト 




















< マリ ン ・ エ イリ アン 発生 サ プ ブルー チン > 


DEC2 


START 








< マリ ン ・ エ イリ アン 移動 サ プ ブル ー チ ン > 


DF3A 










空中 の 
エイ リア ン に 戻す 





マリ ン ・ エ イリ アン 
消 す 





(8) ミ サイ ル 降 下 サ プル ー チ ン 
の サ プ マ リン か 7 へ 


マリ ン ・ エ イリ アン 
消 す 


(6) ビ ー ム 上 昇 の 
マリ ン ・ エ イリ アン に 当 
た っ た か 7? へ 


エイ リア ン を 消す 






マリ ン ・ エ イリ アン 
の 番地 。 その 他 の 値 
を 決め る 






マリ ン * 
エイ リア ン を 描く 


進行 方 向 値 を 決め る 

















きま し た ( 図 2)、 これ を 見 れ ば だ いた い の 動 き は わか る と 
思い ます . 各 プ ロッ ク は サ プ ブルー チン に し て あり , メイ ン 
・ ク ロッ ク の 数 値 が 一 致し た と き に 動く よう に な っ て いま 
す . これ に よっ て , 容易 に 速度 に 差 を つけ られ ます . フロ 
ー チ ャ ー ト の と ころ に ある 数 値 は マシ ン 語 の 番地 で す . 
また , フロ ー チ ャ ー ト に 書け な か っ た サブ プ ル ー チ ン に つ 表 3 
いて は 表 2 に まとめ て お きま し た だ た. マシ ン 語 の ワー ク ・ エ 27, E928 
リア は 表 3 の よう に な っ て いま す . 2 9 


画面 の 両端 の 境界 線 を キャ ラク タ で 描く た め に あり ます . 
これ に よっ て 画面 の カラ ー 化 (アト リピ ュー ト ・ エ リア に 
直接 書き 込ん で いま す ) を 楽に し て いま す . 


ua 

エイ リア ン の 位置 (開始 時 ) 
乱数 値 

HL 値 の 一 時 スタ ッ ク 


(2 ) BASIC 2 


2F, E930 
3 1 
32。,E933 
3 4 
3 5 
3 6 
37 一 也 93C 
3 D 
3E 
3F, E940 
4 1 
4 2 
4 3 一 到 E947 
4 8 一 EE94C 
4 E 


BASIC の 説明 は 表 4 に 示し ます . 


表 2 
D500--D520 
D6CC-D>eD8g 
D6D9-DeE9 
D6EA--D719 
D863 一 D8BF 
D8Co-D8F5 
DA0D--DA27 
DCFD-DDOF 


DE16 一 DE7F 
DEAC 一 DEC1 
DFB0 一 DFDF 
E020 一 EE029 


マシ ン 語 サ プ ブルー チン 

第 1 初期 

みみ イマ 

乱数 サブ ルー チン 

10 進 出力 サブ ルー チン 

エイ リア プン を 書く サブ プルー チン 
画面 外 の エイ リア ン 移 動 

機 雷 の エク スチ ェ ン ジ 

ミサ イル の エク スチ ェ ン ジ 

エイ リア ン を 空中 に 戻す 
マリ ン ・ エ イリ アン の エク スチ ェ ン ジ 
マリ ン ・ エ イリ アン の ワー ク を 消す 
燥 発 ル ー チ ン 


マリ ン ・ 








160 行 の LINE 文 は 、 





サ プ マ リン 追加 
SCORE 
マリ ン ・ エ リア ン 出 現 か 
アド レス 
Y 値 
タイ プ 
方 向 値 
2 癌 上 日 の マ リン ・ エ イリ アン 
サブ プ マ リン の 数 
ミサ イル (1) 出現 か 
/ アド レス 
/ Y 値 
ヶ ポ プ 
ミサ イル (2) 
ミサ イル (3) 
エイ リア ン の 位置 Y 


ト と 同様 





E02AーE04F 音 出 し の サブ プ ル ー チ ン E94F,. E950 ニア に ラス: 
E050 一 EOE2 第 3 初期 E952 機電 1) 出現 か 
EOE3ーEOFO BONUS 処 理 E953,E954 の CPM と 
E0F1ーE04C み カラー 化 E955 の Y 値 


210 


E956 機雷 (1)X 値 
BI9. 557=-B%9..55B ヶ (2) 
E95C で 一 9.6.0 ヶ (3) 
E962 た ZS リシン (に 307 さっ だ が 
E963 機電 の 数 
E964 局面 数 
E965 何 か に ぶつ か っ た か 
E966 サ プ マ リン ・ ア ドレ ス  Y 値 
E967 / X 値 
6 8。 E / 
6 A エイ リア ン の 数 
6 B エイ リア ン  X 値 
6 エイ リア ン 1) 出 現 か 
6D, アド レス 
6F Y 値 
7.0 X 値 
7 ググ 


ェ イ リア ン (2)- エ イリ アン 0 上 上 と 同様 
メイ ン ・ ク ロッ ク 値 

エイ リア ン 移 動 方 向 

[スペ ニス | キー を 見 し た か 


表 4 BASIC プ ログ ラム 

初期 設定 

み カラー 化 

初期 画面 

マジ ンジ ン メ イン ・ プ ログ ラバ ベ ペ 
語 面 数 十 1 BONUS 処 理 
料 発 の 画面 

GIVE UP 

GAME OVER 

SCORE を SC に 入れ る . 
燥 発 の デー タ 

説明 交 


変更 点 





Co ココ ココ OO om oO いい いい ビビ ピロ 
ぬら の いい の ょ よ の DD @ の 








1O 


番号 の 頭 に ま の つい た も の で は , 変更 する 数 値 は 2 の 倍 
つま 0.1 。 0 85 0 7 。。O0EHSwES に SBEKRt な AS ど 
に し な いと 動き が お か し く な り ま す . 速度 は 数 値 を 小さ く 
すれ ば 速く 。 大 きく すれ ば 遅く な り ま す . 

(4) の エイ リア ン の 踊り は , ぜひ 数 値 を 変え て みて くだ さ 
い .。 いろ いろ と 面白 い 動 き カ を し ます . (2) の サブ プ マ リン の 
数 は , 10 台 以上 で は 表示 が ASCI コ ー ド に な る こと が あり 
ます . (9) の GIVE UP の 局面 数 は BASIC で , 320 行 の A 三 28 
の 数 値 を 変更 し ます . 


今 | に | 

グリ ー ツ ・ モ ニタ し か な い 人 へ 

プロ グラ ム は み カラー 用 の た め ,。 グ リーン ・ モ ニタ では, 
青 , 赤 。 紫 の 色 は ほとん ど 見 えま せん . も っ と も ミサ イル 
や エイ リア ン が 消え て か ら 突 然 出 て きた り し て より スリ ル 
が 味わえ そる と いう 利点 (?) も あり ます が ・…… び . 

変更 は , BASIC 廊 中 の COLOR 文 の 数 値 を 7 に 変え , 行 
番号 170 を 削除 し て くだ さい . 


あと が き ぎ 


某 日 授業 が 早く 終わ っ た の で 久しぶり に ゲー ム ・ モ セン 
ター へ 行っ た と ころ , 『 ト マ ホ ー ク 777 」 と いう ゲー ム が あ 
り ま し た . な か な か お も し ろく , と くに 海中 で エイ リア ン 
が 襲っ て くる の に 感 江 し て , さっ そく 作っ て みた の が この 
クー の RY 

フロ ー チ ャ ー ト を 書く の に 1 週間 か か り , ハン ド ・ ア 
セン ブル の 悲し さき で , マシ ン 語 に 直す の に また 1 週間 か か 
つと CSK まり し 7 

マシ ン 語 を 始め て まだ 間 が な い の で , か な り 無 駄 な こと 
を し て いる 部 分 も ある みた いで す が , それ で も マシ ン 語 の 
スピ ー ド は スバ ラ シ イ も の で , BASIC な ど 足 も と に も お よ 
びません . BASIC の ゲー ム の 遅 さ に ガッ カリ し て いる 方 は , 
ぜひ マシ ン 語 を や っ て みる こと を お 推 め し ます . 


うま く な っ て 「『 点 が と れ す ぎ て つま ら な い 』 と いう 人 や や , 
反対 に 『 ち っ と も 点 が と れ な く て つま ら な い 』 と いう 人 の 
た め に , 表 5 に 変更 で きる 項目 を 示し ます . 


最初 は 画面 に キャ ラク タ や ドッ ト を 書く 部 分 か ら マ シン 
語 に し て いく と , と っ つき や すい と 思い ます . と に か くい 
じ っ て いる と 自然 に いろ いろ な こと が わか っ て きま す . ゲ 
ー ム の 命 は 何と いっ て も スピ ー ド …… だ と 思い ます . 
表 5 変更 点 この ゲー ム で 筆者 の 最高 点 は 16 面 で 23,000 点 で し た . 
変更 する 項目 3 現在 の 数 値 

1) 全体 の スピ ー ド 
(2) サ プ マ リン の 数 
※(3) エ イリ アン 移動 速度 
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(4) エ イリ アン の 踊り 
*(5) サ プ マ リン の 移動 
| 圧 右 
1 


いし 上 下 


4 ) 平安 京 エ イリ アン 





慈 o 下 で 6 も 読 k で 3 と .… 








※*(6) 機 軍 の 速度 
※(7) ミ サイ ル の 速度 
空中 
海中 
8) マ リン ・ エ イリ アン の 速度 
9)GIVE UP の 局面 数 BASIC で 行 番号 3 2 0 
(3) は 3 ヶ所 の 値 を 同じ に する こと . 
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279 IF H MDD5=9 THEHSC=S ビ +1999 ELSE DTD 329 


1O 


BASIC プロ グラム ・ リス ト EE 


39g 7MHRINE HLIEN "iR UER 1.5 558:6, ら 

199 CLEHR さ gg。 を HD4FF 

119 DIHHZC2 ッ BC うじ 2 て 5) > EZ て 9 う > EZK62 テ FXC32: 2 て 5 > 

120 GOSUE マ 20: GUSUBS29 

139 FDKE&HE9FE,9 

149 DEFUSR9=&HDSOG HH=USROCB) 日 =1 : ら ビ =9 

1S9 UIDTHBB: 25:CDNSHLE り > 25。9, 1 5 CDLOR7, 9。 13PRINTCHR き く 12) 

169 LTNE て ロッ ゥ ー バ ロロ, 2 は う 」" "BILTNE て 67 ょ うー(6 ア > 24 う 7 5B 

1Z9 DEFUSRK=&HEOF 1 : HH=USR7〈 り > 

189 CHLOR? ア LCRTE で 1 25 PRINT "SCORE "LOCHTE71) 45 PRTNTUSTNG" 叶 SC 
199 CHLD ロ RS LDCHTE69: ?* FRINT"HL 一 SCORE"+LDCHTE71。 2 FRTNTUSTNG " 柏 六 音 才 井 !5 昌 
299 LUCHTEZ2: 14:FRINTPEEK く SHE93D ふ 


。 219 COLOR4I LUCHTE71 。 19#FRTNTVSCENE'"+LOCRTE727 21 PRINTR 


22g DEFLISR1=&HDFE さ HH=USR1 て By 


- 239 IF PEEKC&HE95H〉=9 THEN 249 ELSE GOTU 349 


249 FUR 1=1TH15IBEEP1: FOR K=1TOSGiNERTIEEEPB 遇 さ =1THS9: HEXTT。 1 


259 FUR 1=1TQ1999:HEXT 


269 H=H+1:FOKE&HE964, 日 : GOSUB799 


2 DEFUSR8=&HE9E さ : HHR=USRS て ロッ 
299 PRTNTCHR ま く 122 ょ FOR 1=59TD19995TEP5g# BEEF1 


"gg CHLOR6:LOCRTES。 1 1 : PRINTVB D N 5S BPRINTUSTNGT 揚 提 韻 ! TEFUR U=1T0S: NEXT 


31g LUCHTE39。 113FRINT" "sBEEF9zNEXTLOCHTE39, 11:』PRINHT"B ロ NU 
S 1 ロ Gg:FOR =1TOBQPs NEXT: 

329 IF MP EN 55g 

339 UTU 

349 DEFUSR う = &HEO2R:X=PEEKC&HE2675 ょ UEVaPEEK&HE966 IF "=24 THEN449 
く 59 FUR K=1TQZ 

369 COLUR6:PUT9CK ホ 2+ う > V ホ 4 うー て X2+9。 kd よさ う ) 。 昌 を) PSET 

さ 79 HL =S841』 HH=USRSCHL > 

389 COLDR4:PUT9CX ホ 2 ォ 2。 V*4ー4 う CK2+1 1 。 マキ オ + ア )  B を PSET 

さ 99 HL=9128: HH=USR3CHL ) 

499 COLORS: FUT9CR ホ 2 ホー オッ ー く X ホ 2+1 1 > V ホ オキ ア う DSET 

419 HL=96G82: HH=USR9CHL > 

429 COLOR2:FIUT9CK*2+V4ー キ うー(X ホ 2+1 1 。 Vikd よ ア ) ッ FPSET 

43 NEXTIFOR 1=1TOB99:NEXTIGOTO 539 

449 FDR K=1TQ2 


~ 459 COLOR6FLIT2CX ホ 2+2。 4 うー て Xk2+9。 V+ くう 。 HPSET 


469 HL=5841* HH=USR9CHL 〉 

479 COLOR4:FPUTaCXK2+2。 "4-4 う CX ホ 2+1 1 。 V+ る う 。 Cy PSET 

489 HL=9128』 HH=USR9CHL) 

499 COLOR さ IPUTaCRk2。 4-4 う KK2+1 1 4+ る っ Ez PSET ・ 
599 HL=9682i HH=USR9<HL) 
519 CDLUR2+PLHT9CR*27V ホ 4-4 う CX*2+1 1 。 V+ さ う BZ) FSET 

529 NENTIFDR 1=1TDBg9iNEXT 

53g 5=PEEKC&HE93D>』5=5-1:LOCRTEZS。 14: PRINT5I 1F S= ロ THEN619 ELSE POKE&HE93D, 5 
349 GODTQ 269 

559 CQLOR6LnCHTE21。43 PRINT" レ ーーーーーーーーーーーーーーーーーー+": BEEP 
569 LOCHTE215:PRINT"| 電 失 日 IT UE リ P "8BEEP 

S7g LOCHTE21 PRTNT" "3 BEEP 

589 COLOR5:LOCRTE15, 9*PRINT" チ キュ ウ * の エイ バン ナジ ョ ウリ デズ ョ ! 

Sg9 LOCRTE15。 19:FRIRT"RLIEN n で * ン x り Pop9sP ] 

699 FDR !=1T03999: NEXT 

619 COLOR6ILUCHTE19。 4* PRINT"Fーーーーーーーーーーーー ーーーーーー ヤ * 
629 LOCRTE19。5:FRINT"I*kt BRHME DUER wwwi' 

6 さ 9 LOCRTE19。6sPRINT" " 

649 GOSUB7Og 

65g LOCHTE15, 9: PRINT" W 

669 COLOR5: TF SC>HS THEN HS=GCiLDCHTEZ1 , 9:PRINTU5TNG" 析 料 り 日 5 


_679 -LOCHTE19, 19gPRIHTTH し て 上 RETURN ked to restart 95 


689 吉 1NPUT を <1) く >CHR$ く 13)THEN689 ELSE GOTO 13 ロ 

98 END 

799 5C= URLCCHR$ く PEEKC&HFS28)+CHR$ く PEEKC&HF529) >+CHR* く PEEKC&HF52R >+CHR$ く PEEKC&H 
F52B)2+CHR ま (FEEKC&HF52C〉)> 

?19 RETURN 

ァ 29 HzC9〉= さ 25 昌 Z(1 う =193 ロ 8:HZ く 2)=-8724 

739 FDR 1=gTD8:REHD JiBZCT〉=JiNEKT 

?49 FOR 1=9TO5:REHD TICZC1)=JiNHEXT 

759 FOR 1=gT09:RERD JID%zCT)=JiHEXT 

ィ 69 FOR 1=gTO6ERERD Ji Ez て 1 ラニ JINEXT 

ィ 7Z9 FDR 1=9TD9iREHD JFC1I)=JENEXT 

788 FOR 1=gTO6IRERD JiGzC1 う =JiNERTE RETURN 

ィ 99 DHTH 129,9,-32768B, 17 ア 9 16552。 19389 1 645 ア , 2 9, 8 ロ 。 9, -32768, 1 アア 9, 16552, 19389 

899 DHTH 144, 136.19 ア 。 23 く で 5, 2 條 Sg。 2087 引 。 22 さ 63 1452。 1 188。 2 ささ 7 96 136> 8197> 2 
さ 375。 2439, 298 ア 4 , 22363 

81 DRTH 144。 9 く 5 さ 。 9349。 -23 さ 71, 24 さ 99。 384 。 -2236 さ 23269。 9636, - さ 9427, 96, 935 さ 。 9349。 
ー233?1 , 24 さ 99。 る 84, 2236 マ る 

g20 IIDTH49, 25: CONS0LE ロ 25, 9 1: PRINTCHR 人 て 12 

839 COLOR33 LOCRTE4。 2 PRINT" ーーーーーーーーーーーーーーー+" 

849 LOCHTE4,3* PRIHT"|** MHRINE HLIEN wl" 

859 LOCRTE4, 4:PRTNT "ーーー 一 |" 

869 COLOR4:LQCHTE さ 。 6:PRINT"KeU functton UP" 

79 LOCHTE22 7:PRINT "8" 

889 LOCHTE14: gkPRINT"LEFT 4 十 6 RIGHT" 

899 LOCRTE22,9:PRINT"2" 





99 LCRTE21。19:PRINT"DOUN" 


919 LOCHTE5, 123PRINT "BERN nwgbb ・・・・ SFHCE ke9P 


929 CHLOE ア LUICHTEG。 155 PRINT "499g Pornt テ *“ SUBMRRINE 1 5* イ イカ 
939 LnCHTE9。 17:PRINT "5 scsne スコ トニ BONHIUS 1999 Potnt 9 イリ 

949 COLOESILUCHTEg, 225 PRINT "HLt RETLRN に Ke り to、 start"5 

959 ITF INPUT ま て 1) く > じ HR$ く 13>THEN95S り ELSE RETUKN 


ms プン 言 プロ グラ ム ダンプ ・ リ スト 


回 212 
1 日 ま 
525 


3 け # 


Bi 
Sg* 


IEEE 


OrI 


EEE 


S3Rr 
IGHEI 
SEI* 


IE15 


5Dgi 
IGEGE 
5Fgi 
rcH 


619: 2 


1 
63 は # 
I54 回 
に ya1SH 
212 
67 記 # 
01c12 
59 は * 
5HRT 
6B 加 ! 
IDEIW 
回 
EE ロロ g 
ら F 同 8 
WaI5H 
1 ロロ! 
2 H 

SH 
CH 
7S ロ si 
758 
2 
Tc1SH 
アロ * 
)7HETs 
7B* 
fnH 
NSH 
YEg 
IFg 
212ISH 
品 18 
82 
515H 
NG 店 # 
に 12 


EGRI 


2 
JBSE 
だ が 2 


JH 


SEIME* 
31 有 NH 
Ts] ら 有 
GE* 
9F! 
DI5I9H 
91g 
22 ロミ 
19 う 2 昌 * 
KN に C5H 
に js15 
396 ロ * 
た rd5H 
)98* 
39 は 





3E 1 さ 2 64 E9 マ 2 6 さく E9 HF さ 2 4E EB 32 2C E3 21 D9R9』 E2 35 18 
同 同 昌 Ph 22 2F に 3E ロロ る さ S 3 ER じ コ ロロ 9 ロ ロロ ロロ D2B95 9 CD 6D 
RF 2 FF ES で 1 EC E9 さ E ロ 1 CE 33 D6 1 で 中 E9 D9CgE EQ 99 9 


3E 9 CD 3 DE 21 で 1 E9 さ E 1 5 98 CD 4 D6 21 D3D9s FE 99 29 


日 1 E9 SE 2 GE GrY CD 45 DE 21 CE EB さ E 3 6 99 9E9* 2 28 ロ 4 
PE 45 [5 21 5F E9 HF 5 中 CD 45 PE 21 81 E3 ふ E D9F9I SH 63 E92 
FE 5 RE DD dB DE 21 SF E5 SE FC ロ G 97 CD 4 D6 DH99E 3H 62 E ラ 
21 CB E9 3E FH HE 9 CD 15 D5 21 5E E9 3E F3 6 DH19I 18 93 21 
本 CD 所 D6 せ 1 BEB 3E FS ロ G BS CE 45 be 21 9E PR2GI 13 19 F ァ 
E9 3E F1 5 四 ア Ch 中 ロ DO 21 CB E ラ 3E F9 BE 99 CD DH39* E9 FE 9 
35 h6 1 ED E9 3E 1H ロ 6 3 CD 3D DE 21 7ZF E9 3E DH4GE 2H 53 E ヨ 
23 ロ E 5 CD は D D6 1 9D EG 3E 2F 6 7 CD 4D DB5 DHSBz 38 18 HF 

る 3 DD5 3E 18 3 さ 2 EH ES 18 PDH69i E9 3E B1 
EBM F9 22 58 E9 3E 1F 32 DRZg:i BB DR CD 
さ 2 65 ES 3 さ 2 62 E2 32 SB DH8GEI CH DH。 さ 6 
3E E9 32 13 E9 32 48 ES DR99: 55 E9 2 さ 
E9 21 93 F ラ 22 5 さ EB 21 DHHGz FE 3 はじ 29 
22 5D ヒラ 21 中 E 2 22 55 DHBgz 9 9 gg 
5 13 ロ 2 22 5F E9 さ E 6 32 DRHCg ロ is SS E9 19 
42 E9 32 4F ES 3E 9 りす 32 47 ES じ 3 5 E り ロロ 9 PB DRHD9z CH BS- DH 


B ロロ BR 6 18 11 ロ 6 7 18 1 ロロ FC C9 11 6  DHEg: FE 99 Cg 


7 で 19 じ G 9 ア 19 FH じ う 9 9 ロロ ロロ け 6 19 11 / 選 99 で 7 DHFI 32FF E9 
19 1 に CGI 回 同和 21 日 2 FB 6 42 36 24 2 さ 1 DB9dk"g ロ 9 3 日 
FE 21 1 F3 SE 37 CD 5H DB 21 44 F3 3E BS C3 5H DB19:i FE 9E 29 
DE、 BI ロロ さ 5 CC 23 さ 6 CC 23 さ 6 EF 2 る 3E CC DB2gI さ 2 59.E ラ 
23 35 CC 23 さら 6 D じ 9 BOB 9 9 BE5 C5 ロ G 96 36 DB3gk gg 2B 36 
2 1 FE 1 E] CO ロ QB ロ 21 E ロ FB CD SB5 De DB49』 2B 11 52 
21 EB FD 5 9 CD 9B D6 11 9 FF 19 E5 PD SS DB DB5g』s 23 19 F4 
E1 16 8 加 ED CE DIG 19 ED CB ロロ BB RI 16 ロア 1E gg PB6gz 3 C3 4D 
1B HE3 2 ド に CS ロロ DO ロロ CD5 3H 29 ES 4? BZ_Br DBZ9s 23 36 9gB 
8 SC 52 29 EB に 1 CO EiG PE B 1 1 27 CD 6 DZ DBBqI O gdO 
1 EB 3 PD 6 D7 1 64 ロ CD ロ 6 D7 9E ロ H CD 96 DB9 ロ z 28 95 FE 
RY 7D CR SB 12 CS CE 37 マ F 3E 3 ロ ED 42 さ 8 gS 3E DBR9i 2B 5 FE 
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DD 75 中 1 DD 4 2 E1 HZ ?93 FE GC 3 ロ CH BE GE DC2qz CC D6 Di 
5 加 ES 19 で E1 2 ミ PD 29 F5 C3 57Z DZ 3H FP E9 DC3gk 36 Op 23 
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マシ ン 語 プロ グラ ム ダン プ ・ リ スト 


ニ の 両方 へ 同時 に 出力 する よう に し て いま すか ら , プリ ンタ の ある 
チ ェ ッ クサ ム ・ フ ログ ラム の 使い 方 人 は その 方 が 見 や すい で し ょ う .TV の と き は , 画面 を は み 出す と ス 
RUN さ せる と , START= と 表示 きれ る の で 、 開始 番地 を 16 クロ ー ル され ます か ら , 適当 な と ころ で 
進数 で 入力 し て くだ さい . 次 に END= と 表示 され て か ら , 終了 チェ ッ ク し て くだ さい . 
番地 を 16 進 数 で 入力 し ます . 最後 に BYTEー と 表示 され る の で , 現在 の プロ グラ ム で は 、 CA 0.1 番地 以後 に マシ ン 語 プロ グラ 
計算 する バイ ト 数 を 10 進 数 で 入力 し ます . ム が ある 場合 し か 使 を ませ ん . も っ と も マシ ン 語 は た いて いり 後 半 
この CHECK SUM は 64 バ イト で や っ て いま す . TV と プリ ンタ に 志 く の で ,。 さしつかえ な いで し ょ う . 


チェ ッ ク サ ム プロ グラ ム ・ 


マシ ン 語 プロ グラ ム の チェ ッ ク サ ム 


2 5 で うみ +5 ち 
よけい も の 
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バッ クマ ン は ゲー ムセン ター に 登場 し て , だ い 作 月 
日 が 経ち 人 気 が 下 が っ て き て いま す が . ここ に PC 版 
の バッ クマ ン を 発表 し ます . 

最初 バグ が 大 量 発生 し て し まい 。. 


語 の 最後 の 


い 


ンジ ンク 


ルー ル は 分 か っ て いる と 思い ます が , パッ クマ ン ( 画 ) が 
4 区 の モン スタ ー( 吉 ) に つか ま ら な いよ うに し な が ら , 全 
部 の ドッ ト を 食べ て し まう ゲー ム で す . 

ドッ ト の 中 に は パパ ワー エサ と いう 物 が あっ て ,。 パッ クマ 
ン が それ を 食べ る と モン スタ ー 達 は 洪 型 に な り , 青ざめ て 
いけ aG 必 ま ぶ ま す :。 パッ ク その と き に ドッ ト を 食 
べ て いて も よい の で す が , モン スタ ー 達 を 食べ て 反撃 する 
の Ga きま 9 
その と き の 点 数 は 1 匹 食 べ る ご と に 200. 400, 800, 1600 
と は ね J 必 が つ で いき ます 。 モン スタ ー は 食べ られ る と , 
だ た っ て また 中 央 か ら 出 て き て 


正 に 戻り ます . 


ーー ラン )/ 
マシ ジン (ば 


4 


ンジ 
央 いじ け て いた 奴 も 点 減 し 

全部 の ドッ ト を 食べ 尽 す 
面 の 中 央 に 変 な 
BONUS 得 点 

まず , BASIC と マシ ン 語 の プロ グラ ム を 入れ て RUN さ 
REGK く 7 モン スタ ー の キャ ラク タタ と ニッ ク ネ ー ム が 
= 


次 の 面 に 移り ます . また . 
まあ WS れれ 4 ボン リレー の oe 


画 


人 (て 


女 字 が 出 て 


て 


いい. 


革 人 


ェ 
ヒコ ゴ 


出 で 





方 は バグ 取 リ ルー チン だ ら け に な っ て いま す が 。 割 と 
本 物 に 近く で きた の て 結構 楽し め ま す . 
効果 斉 も PC と し て は いい 音 を 出し し て いる と 思っ て 


満足 し て いま す . 


アカ ベー は パッ クマ ン を 追い か け て き て , ピン キー は 待 


ち 伏 せ し て きま す . ア オス ケ は 追い か ける の も 気分 次 第 で , 
グズ タ は た だ 歩き 回 っ て いる だ け で す . 
使用 する キー は テン キー の [2| , [4| . [e] , [8] で す . 
パッ クマ ン は 壁 に ぶつ か ら な い 限 り , 動き 続け る の で , キ 
ー を 押 き なく て も 前 進 し 続け ます . また , キー を 押し た 方 
向 が 壁 だ っ た ら , の 方 向 を 向 か ず に や は り 
前 進 し 続け ゃ 
モン スタ ー や フル ー ツ を 食べ だ 








パッ クマ ン は そ 


ミー 
ます 


と き の 点 数 は 画面 大 下 に 


ずっ と 出 て いま す . 10,000 点 に 達する と パッ クマ ン が 1 欧 
ある い は 1 人 増え ます . さあ , 心 の 準備 が で きた ら |RETU 
RN| キー を 押し て くだ さい . 画面 が 消え (OUT81,0)。 タ 
イト ル ・ ミ ュー ジッ ク が 鳴っ た ら ス ター ト で す . な お 、 


655,350 点 を 超え を た と き は モン スタ ー が ギブ アップ し て 終 


530: 。 


非 効率 的 で 簡単 な プロ グラ ム で す が , サブ ルー チン と ワ 
ー ク ・ エ リア お よび デー タ ・ エ リア を 和書 いて お きま す ( 表 
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図 1 ジェ ネ ラ ル ・ フ ロー テ チャ ー ト 








1 一 3). マシ ン 語 は D000H 一 DC13H です. 

フル ー ツ は 友人 か ら ド ッ ト を 70 個 か 140 個 消し た と き に 
出 て くる と 聞い た も の で すか ら , その よう に し まし た . 

バグ は 一 応 全部 取っ た つも り で す が , も し か し た ら 1 面 
消し て も 終わ ら な いか も 知れ ませ ん (バグ を 取る 前 が そう 
だ っ た の で ). その と き は あき ら め て くだ さい . 

今 の と ころ この よう な バグ は 出 て いま せん . また 得点 の 
最後 の 0 は ニセ 物 で , 6,500 点 の 場合 、 ワ ー ク ・ エ リア に 
は 650 点 と いう 数 値 が 入っ て いま す . 

タイ ドル "ミュージック や コー ヒー プレ イク ・ ミ ュー ジ 
ッ ク は I/O"80 年 11 月 号 に 載っ て いた ミュ ー ジ ッ ク ・ サ ブル 
ー チ ン を 拝借 きせ て いた だ きま し た -. 

BASIC の プロ グラ ム に CLEAR 文 は 入っ て いま せん が 必 
要 で あれ ば 最初 の 部 分 に CLEAR300, & HCFFFE を 入れ て 
くだ さい . 

380 行 の PRINTUSING “** 壮 半 半 0" : HS の 2 つの 
アス タリ スク (*) は 数 字 の 桁 が 空 いて いる と ころ を * で 埋め 
る こと を 意味 し ます . いら な けれ ば * を に 換え て くだ さい 

パッ クマ ン は PACK MAN と 書く 人 が 多い の で す が , こ 
の リス ト の よう に PUCK MAN と 書く の が 正しい 綴 で す . 手 
抜き と し て 画面 の ドッ ト に 色 を 付け て いま せん . 

OUT81, 0 は 画面 が パッ と 出る よう に と 音 が 良く な る よ 
うに 入れ て ある の で す が , 異常 動作 を する 場合 は 取っ た 方 
が いい か も 知れ ませ ん . 取る と き は 0DBCOH か ら の 3 バ 
イト も 00 に し て くだ さい . 

プロ グラ ム の ジェ ネ ラ ル ・ フ ロー チャ ー ト を 図 1 に , 各 
モン スタ ー の フロ ー チ ャ ー ト を 図 2 に 示し ます . また , プ 
ログ ラム の 変更 点 を 窒 4 に 示し ます . 


図 2 各 モ ンス ター の フロ ー チ ャ ー ト 


START 











: 高 得点 へ の コツ :・ 


⑯ モ ンス ター が いじ け て いる と き に は 初心 者 の 場合 ドッ ト 
を 食べ 続け て 食べ られ な いよ う 心 掛け る ,、 プロ の 場合 は 
な る べく 食べ る . 

@ モ ンス ター を 食べ よう と 思っ た ら , まず すべ て の モン ス 
ター を 引き つけ て お いて パワ ー エ サ を 食べ る . 

モン スタ ー が 散ら ば っ て いる と き に フル ー ツ が 出 て きだ た 
ら , 両側 か ら は さま れる の で 引き つけ て お いた まま 食べ 
信 Mv ぐ 。 

⑳ 各 モン スタ ー の 性質 を 理解 する . 

ワー プ ・ ト ン ネ ルレ を と お る モン スタ ー は 警戒 し て 速度 が 遅 
く な る の で ., 引き 離 そう と 思っ た ら そ れ を 利用 する 

を 乱用 し な い . 逃げ 場 が な い の で , は さま れる 危険 が あ 
る . 

@ 時 々 ある モン スタ ー の 向き の 反転 に は 注意 する . 

パワ ー エ サ を 食べ て も いじ け な く な っ た ら 直 を 使う . 


画面 書き 
単音 ルー チン 


第 1 初期 

第 2 初期 設定 
最初 の 第 2 初期 設定 

食べ られ な とき の 第 2 初期 設定 
キー スキ ャ ン 

アド レス の 変更 

パッ クマ ン を 動か す * 

ムシ ャ ムシ ャ と 食べ る 音 

10 進 出力 サブ ルー チン 
乱数 サ プ ブルー チン 

ミュ ー ジ ッ ク ・ サ プルー チン 
タイ トル ・ ミ ュー ジッ ク 

モン スタ ー サ プル ー チ ン 

座標 の あっ た モン スタ ー を 見 つけ る . 
モン スタ ー を 乱数 で 動か す 

その 方 向 に 進め た ら 進 みそ う で な な けれ ば 帰 
る ルー チン 

アカ ベー 

ピン キー 

グ バ ツ 

アオ スケ 

4 匹 を イジ ケ さ せる . 

モン スタ ー と フル ー ツ の 得点 表示 
モン スタ ー が 食べ られ る . 
ツレ ー ラ 以 

メイ ン ・ ル ー チ ン 

4 匹 を 消す . 

パッ クマ ン し ほぼ お む . 

1 面 ク リア 

コー 所 憲 デ レイ ク ・ ミ ュー ジッ プク 


@ 和 最後 に …… 


本 物 は この ゲー ム の よう に PBEK で 判断 せ ず に , 座標 で 
判断 し て いる よう で す . た と えば , パッ クマ ン が アオ スケ 
に 向かっ て 正面 か ら 対 当たり する と , する り と 抜け て し ま 
うと き が ある と いう バグ が あり ます (モン スタ ー だ か ら 意 
識 的 に 作っ た の か も 知れ な い ). 

この プロ グラ ム は そん な こと は あり ませ ん が 意識 的 に 作 
っ だ た だ も の と し て 。 

1) モ ンス ター を 食べ る と き に , 
は 加算 きれ な い . 

と いう の が あり ます . 後者 の は パワ ー エ サ と モン スタ ー が 
重なっ て いる と き に 食べ な けれ ば どう も な いで し ょ う . 

な お , 私 達 の 最高 得点 は 岡部 和義 君 の 84.670 点 と いう 記 
録 で す . 書き 忘れ て いま し た が , パタ ー ン は ゲー ム を 面白 
くす る た め に 作っ て いま せん . 

次 は アイ デア と も に オリ ジ ナ ル の 作品 を 作ろ うと 思い ま 
9 





そこ に あっ た ドッ ト の 点数 





画面 デー タ 


レイ ルル こら ーー ウッ ク 0 ワー ジグ 
リ / 
ee ー ジ レイ グミ ーー の の no ーー 


BASIC リ ター ン ? 
スズ コア 
モン スタ ー の 動き は 乱数 か ? 
E 9FC の た め の カ ウン タ 
アカ ベー 状 胡 
方 向 
座標 
そこ に ある キャ ラク タ 
いじ け , 待機 の カウ ンタ 
ピンキー:(GE だ 同 ⑥) 
アオ スケ (上 に 同じ ) 
グズ タ (上 に 同じ ) 
パッ クマ ン 方 向 

/ 座標 
フル ー ツ 出 て る か ? 
上 の カウ ンタ 
モン スタ が いじ け て る 時 旧 
コー ヒー プレ イク ・ ミ ュー ジッ ク 用 カウ ンタ 
フル ー ツ の 種類 
メイ ン ・ ク ロッ ク 
パッ クマ ン の 数 
数 を 増やし た か ? 
HL の 一 時 スタ ッ ク 
ムシ ャ ムシ ャ と 食べ る 
ドッ ト の 残り 数 
乱数 
色 ス タッ ク 





音 の 上 が り 下 が り 








表 4 変更 点 


1 番 最 初 の モン スタ ー が いじ け て いる 時 間 
同じ く コ ー ヒ ー プ ブレイク ・ ミ ュー ジッ ク が 
鳴っ て か ら の いじ け て いる 時 時 

フル ー ツ が 出 て いる 時 間 





注 ) パッ クマ ン の 数 …。 書 こ うと 思い まし た が や め ま し た .。 パッ クマ ン の 数 は 
これ で 充分 で す . どう し て も と いう 人 は プロ グラ ム を 解読 し て みて くだ さ 
い . 全体 の 速度 は 1 面 消す ご と に 速く な っ て くる の で 変更 は 不可 能 で す . 
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PC-8001 BASIC 商 





TV ゲー ム 『CRAZY BALLOON」』 の PC 版 で す . 


ルー ル 


左右 に 揺れ る 風 スタ ー ト か ら ゴ ー ル まで , 割ら な い 
よう に 持っ て いき ます . 失敗 は 3 度 し か 許さ きれ ませ ん . 


遊び 方 





ト 2 
RUN き せる と 。 キー の 説明 が 画面 に 表示 され ます . 使 の 
用 する キー は テン キー の [2]( 下 ), [4] (な )、 Le] ( 石 ), [s] Ye 
(上) だ け で す 。 次 に キー を 押し て くだ さい . 愉 
コー ス が 現われ , 左上 に tme が 表示 され ます 
が 現 わ 4 T ime が 表 し ます. 8 に OOE 画 、 


srae 











右 下 の 風船 を うま く 操 っ て , で きる だ け 速 く デ ー ル まで 


持っ て いく の で す が , あせ る と グラ フィ ッ ク ・ キ ャ ラク タ 
に ぶつ か っ て , 割れ て し まい ます . 
風 航 は 4 個 あ り ま す . デー ルイ ン す る か . 風船 が 4 個 と 


も 割れ る と ゲー ム ・ オ ー バ ー で す . 星 間 の 制限 は あり ませ ん . 


も う 一 度 や り た いと き は [スペ ー ス | キー を 押し て くだ さ 
い ( 注 : スタ ー ト に 近い と ころ で 風船 が 割れ る と 決 の 風船 
も 現われ て , すぐ 割れ て し まう こと が あり ます ). 


プロ グラ ム に つい て 


プロ グラ ム は BA S I C で 書い て あり ます . コメ ント が 
入れ て ある の で , 全体 の 流れ は リス ト を 見 れ ば わか る と 思 
いま す . 


230 行 で 色 の 指定 を R N D(1) * ま 6 十 2 で 行なっ て いる の は . 


青色 が 見 え に く いた めで す . カラ ー モ ニタ を 使用 し て いる 
人 は RND(1)*7 十 1 に し て 良い と 思い ます . 





730 行 で 風船 が グラ フィ ッ ク ・ キ ャ ラク タ に ぶつ か っ た か 
どう か を V-R AM の 値 を 読ん で 判定 し て いま す . 770 行 も 
同じ で す . 220 行 の BA が 風船 の 数 で す . 


最後 に 


BASIC で も スピ ー ド は それ ほど 遅い と は 思い ませ ん 
が , PC で は 音楽 が 出せ な い の が 残念 で す 。 

この ゲー ム は ゲー ム ・ コ ー ナ ー で タイ トー の 『CRAZY 
BALLOON」 を 見 て , その 夜 作 っ た も の で す が , 楽し ん 
で も ら え た で し ょ うか . 実物 で は 風 が 吹い た り ,、 コー ス が 
変わ っ た り ,100 円 ド が 必要 だ っ た り し ます . DATA 廊 や 
LINE 廊 の 数 値 を 変え る と ,、 色々 な コー ス が で きる の で 
試し で て で 宮 さ 3W 

我 が PC の ソフ ト は MZ の ソフ ト に 数 の 点 で 負け て いる 
の で , PC の ユー ザー の みな さん , I/O に も っ と PC の ソ 
フト を 発表 し まし ょ う . 
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フラ 4 


この ゲー ム は 映画 「 火 の 鳥 』。 か ら ヒ ント を 得 て 作 り ま し 
た . あく まで も ヒン ト で すか ら , 映画 の 筋 と は 多少 違い ま 
す . 
ゲー ム 内 容 は 大 宇宙 を 和 飛び 回 る 火 の 鳥 を 宇宙 船 ス ペー ス 
・ シ ャ ー ク に 乗っ て 生け 捕る と いう ゲー ム で す . すなわち , 
火 の 鳥 を 捕らえ る 量 を 競う ゲー ム で す . 











居 





キー の 説明 











[ 仙 | 


が 前 で す ( 図 1 a). 

シャ ー ク は 上 下 左右 に 移動 で きま す . キー は テン キー ボ 
ー ド の 周 の 上 下 左右 の キー で す ( 図 1 b). この と き 。. 
ペー ス | キー を 押し な が ら 移 動 キ ー を 使う と , 動く スピ 
ド が 上 り ま す 。 


l2| 火 の 鳥 の 捕え 方 


まず , ビー ム 砲 で 火 の 鳥 を 気絶 きせ ます ( 火 の 鳥 は , 不 











ll 





死 島 で すか ら 死に ませ ん ) . する と , 究 が @ に 変わ り ま す . 


図 1 操作 キー 
a) ビー ム 砲 (フル キー ボー ド ) dj) 移動 キー( テ ン キ ー ボ ー ド ) 
4 上 


9 -= 四 回 回 *- 
の 





幅 回 











タイ トル 廊 字 ・ イ ラス ト : で 手塚 プロ ・ 火 の 鳥 プロ ・ 東 宝 ( 東宝 提供 ) 映 画 紹介 p.121 


ビー ム 砲 は 前 と 後 の 2 方 向 で . フル キー ボー ド の 還 が 後 , 





図 2 スペ ー ス ・ シ ャ ー ク の 機能 





5 ピー ム 砲 発射 1 





ビー ム 砲 





ノン 正気 の 火 の 烏 


レン 2 


@ ーー 一 気絶 し て いる 火 の 島 


格納 口 








そこ で , シャ ー ク を 移動 きせ 火 の 鳥 を 栓 納入 口 か ら 格 納 し 
ます ( 図 2). この と き , 格納 は そっ と 行なっ て くだ さい 


(すなわち | スペ ー ス | キー を 押さ な いで ). そう し な い 








と うま く 入 ら な いこ と が あり ます . 

うま く 格 納 で きる と 100 点 一 500 点 の 間 の 得点 が 得 ら れ 
ます . 

リ 上 が 捕え 方 で す . 
3| その 他 











火 の 鳥 は 始め 2 羽 で す が , 1 面 終わ ら す ご と に 2 羽 ず つ 
増え ます . 4 面目 以後 は 8 羽 の まま で す . 

シャ ー ク が 正気 の (気絶 し て いな い ) 火 の 鳥 に ある 程度 
以上 近寄る と . 火 の 鳥 は シャ ー ク に 笑 を 放ち , シャ ー ク は 
爆発 し ます . する と , シャ ー ク は 1 吾 減る こと に な り ま す . 
注意 し て くだ さい . 

M 区 し た 火 の 鳥 は ある 程度 時 間 が 経つ と 正気 に 戻り ます . 
また , 気絶 し て いる 火 の 鳥 に ビー ム 砲 を 当て も 正気 に 戻り 
ます . 後者 の 場合 , 次 に 気絶 し た と き は 気絶 し て いる 時 購 
が 短 か く な る の で 注意 し て くだ さい . 

画面 の 最上 部 の 表示 は 左 か ら , トッ プ ・ ス コア , 今 の ス 
コア , シャ ー ク の 残り 数 ( 今 使っ つて いる シャ ー ク を 除く ) 
で 9 に 

な お , 4 面目 を 終わ ら せ た と きのみ シャ ー ク が 1 吾 増 え 












| ぜ ます . 
SN で 、 試験 管 ベ ビー と し て 生ま れ , 幼児 期 は も っ ぱら 
映 ゴ 49e 1 人 で オー トマ テック 青児 シス テム を 持つ ドー ム 
吉 火 の 鳥 登場 人 物 RS ハ ) ハウ ス て で 将来 の 宇 宣 ハン ター 要員 と し て 育て られ 
の と し 1 nr / た . 5 オオ ぐ で らい の 頃 , 宇宙 科学 セン ター か ら 育 児 
@ 手 塚 プロ ・ 火 の 鳥 プロ ・ 東 宝 NM 巡 ロボ ッ ト , オル ガ が 送ら れ て き て , の ち オ ル ガ に 


一 切 の 世話 を 受け 成人 する . 







ググ プ 
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R UN 直後 の 画面 。[f・1] キ ー を 押す と ゲー ム ・ ス ター ト 








ピー ム 砲 が 火 の 鳥 に 命中 、 中 央 の @ は 気絶 し た 火 の 鳥 


ブロ グラ ム の 説明 


プロ グラ ム の 説明 と いっ て も , そう むず か し い プ ログ ラ 
ム で な い の で ここ で は 簡単 に 説明 し ます ( 図 3, 表 1). 

まず , 火 の 鳥 ゲー ム の デモ で す が , これ は 必ず 入れ まし 
ょ う (筆者 か ら の お 願い / ) 

行 番号 3 2 0 で 行 番号 56 0 に ジャ ンプ し て いま す が , 
これ は スペ ー ス ・ シ ャ ー ク を 表示 する た め だ け の も の で す 
キー を 調べ る の に は , INP を 使っ て いま す . 

U 多 (I,J) は 画面 上 の 1 , J 座 標 の 火 の 鳥 の 
わす デー タ が 入っ て いま す . た と る えば, 火 の 鳥 が 正気 な 
き は 一 1, 気絶 し た と き は 一 2, 火 の 鳥 が そこ に いな いと き は 
0 が 入っ て いま す . 行 番号 6 0 0 で は , うま く 格 納 し た か 
どう か は , この 座標 を 調べ て いま す . 

レー ザー 砲 は . まず レー ザー が 発射 され た と き 火 の 鳥 に 
当たる か どう か を 先 に 調べ て か ら , レー ザー の 表示 を し て い 
ます . この 方 法 が 一 番 早 いよ う で す . 

火 の 鳥 の 移動 は 一 度 に 全部 で は な く , ( 行 番号 8 4 
0 一 990) を 通る ご と に 1 羽 ず つ 動 か し ます . この た だ ため , 
何 か の 原因 (スペ ー ス ・ シ ャ ー ク が その 上 を 移動 し た な ど ) 

で 火 の 鳥 が 消 を える と 次 に その 火 の 鳥 0 で 肖 守 だ た 
まま に な っ て し まい ます . それ で は 困る の 1110 行 
ch 陸 人 

火 の 鳥 の 射程 内 に スペ ー ス ・ シ ャ ー ク が いる か どう か は , 
その 火 の 鳥 が 移動 し た と き に 調べ ます . 1010 行 , 10 


状態 を 表 
正 と 


宇宙 科学 セン ター か ら 送 られ て きた 宇宙 ハン ター 育成 
用 育児 ロボ ポット . 人 間 的 な 反応 を 見 せ は する が , こと ば 
は や や カタ コト て 感情 に と ぼ し く , 全く 人 間 と 同様 と い 
うわ け で は な い . 





ざさ ロ 





スペ ー ス ・ シ ャ ッ ク へ 火 の 鳥 を うま く 格 納 し て 500 点 加算 . 





火 の 鳥 に 近づき すぎ る と 攻撃 され る . 








U%(| , 
FX(1) 
F Y(1) 
F(1) 
F S 
X 
Y 
D 
FI 
SC 
HC 


2 0 行 の 土 140 や キ 


表 1 


り ) 


プロ グラ ム で 使っ た 主 な 変数 


1, J 位 置 (画面 上 ) の 状態 

火 の 鳥 1 の X 座 標 

火 の 鳥 1 の Y 座 標 

火 の 鳥 1 の 気絶 し て か ら の カウ ント 
火 の 鳥 の 始め の 数 

スペ ベ ペース ・ シ ャ ー ク の X 座 標 

スペ ー ス ・ シ ャ ー ク の Y 座 標 


スペ ー ス ・ シ ャ ー ク の 残り 台数 
火 の 鳥 を つか まえ た 数 

スコ ア 

ハイ ・ ス コア 


5 を 変え れ ば 火 の 鳥 の 射程 が 変わ り ま す . 


10 行 の C1 一 C 7 の 変数 は 色 の 指定 用 な の で カラ ー モ ニ 





タ を 使っ て いる 方 は , 次 の よう に 変更 し て くだ さい . 
10 庫 GII 三 四 G2 三 263( 三 3 人 の 4 ニー4 6 5 
=ー5:C6= ニ 6:C7= テ 7 





り に 


この ゲー ム は BA S IC だ け で 書か れ て いる だ た め 。 多少 


遅い と 思っ て いる 





方 も ある と 思い ます が , 私 は この 程度 カ 


知能 指数 300 と いう 超 英 オ 少 年 . 性 格 は 冷徹 功利 的 . 
徹底 し た 合理 主義 の 精神 の も と に あく な き 権 力 へ の 野心 
を 秘め . 人 を 人 と も 思わ な い . エリ ー ト 指向 , エリ ー ト 
意 設 を 強く も っ て いる . し か し , 彼 は 彼 な り に ある 種 の 
使命 感 を 持っ て 人 類 の 将来 に つい て 考え る と ころ は ある . 
た だ し , それ は 常に 自分 の 権力 欲 を 満足 させ る こと と ウラ 
ハラ に な っ て いる の だ . 








ちょ うど いい と 思っ て いま す . (負け 惜しみ で は な い ). 
最近 , ゲー ム の ネタ が 出 つ くし た 傾向 が あり ます が , 考 

それ ば まだ まだ ある は ず で す . 私 は ヒマ が あれ ば な に か ネ 

タ が な いか 考え て いま す . 特に 学校 の 行き 帰り の 電車 の 中 , 


炎 の 選 グ ー ム 固 抽 
つま ら な い 授 業 の と き ( 何 の 授業 か は 言え を ませ ん が 察し は 
つく で しまう) (など 念 と 

みな さん も が ん ば り ま し ょ う . 


図 3 火 の 島 ゲー ム の フロ ー チ ャ ー ト 





火 の 鳥 を 格納 し 
た と き の 処 理 
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ゲー ム オ ー パ ー 
の 処理 
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火 の 鳥 ゲー ム プロ グラ ム ・ リス ト EE 





1O 1=7= ビ コー ニブ : ビ さ =4: 4 ニア ェ ビ ロニ 7 = ビ 6 ら = = ビア = ロ 

2O_ CUNSOLE 。.O。1:』 CHLUR7。 。 1 MTDTH ヨ O。 25 

3O_ DIM SU5 (3) 。 D1 ん (79) 。D2 (日 1 ) 

40 FHR T=O TO 3:READ BUX(T) : NEXT 

50 FOR T=O_ TO 79:READ D1X(T) :NEXT 

6O FUR T=O TO 1:READ D2X(T) :NEXT 

70 DA=OkPRINT CHR* ま (12) 

0 _ CULUR C さ : PUT9(40。2O) 一 (119。 さ 5) 。D2Z、PSET 

90 CULUR C2:PUTD (5 。 40) 一 (104。64) 。D1 メ 。PSET 

100 CHLOR C1:LUCATE さ 9。17:PRINT "By Y.E ロ matsuda" 

11O CHLHR CZ7:LUCATE さ O。O:PRTNT "H エ ーSCOURE " 

120 COLUR C4:LUCATE さ 9。OsFRINT USTING" 振 音 韻 音 埋 圭 "』H 

13O COLOR C6gLOCATE 27。19sPRINT リーーーー ズ " 

140 LHCATE 1 さ 。20:PRTNT "ポポ ※※ ポ 氷水 氷水 ※※ 氷 | F・1 | . ノ キー ヲ オシ テウ "サイ ポポ 水玉 涼 水 水 涼 涼 氷水 
150 EEATE、 2 アタ 133IPRTNITa モニ ーーーー* 

160 ロ =INP (9) :TF OS25 さ THEN 160 

170 DIM UZ(77。2 呈 ) 。FX (日 ) 。FY (日 ) 。F (日 ) 

1 ヨロ 0 G ビ =O: X= ニ O= Y マ = ニコ 2 ェ F ロ =O: D= 呈 : =O ェ F1=O 

19O_ COLOR 。 。O:FRINT CHR ま (12)s 

200 COL ロ R CZ7:LHCATE 10.O:PRINT "HI-SCURE SERE " 
3210 COLOR C5: LUCRTE 4 さ 3。OrPRINT UGTING "半音 提 電 提 井 " ュ 5 ビ 

220 CHLOR C4:LUCATE 19.0:zPRINT UBTNG" 六 六 韻 提 井村 韻 !*H 

230 FS=FS+2 ェ = 1F FS> THEN FS=B:M=O IF DQ=O THEN D=D+1 : DQ=1 

240 CULUR C2:FUR =O TH FB-1 

25O0 エ =INT(RND (1 ) *61 ) 二 10: ゴ =INT (RND (1 ) ※10)+ さ 3: TF UX( エ 。J) く ラテ 0 THEN 25O 
260 LOCATE !。JiPRINT "04gUX( エ 。 ゴ ) = テー1 :FX(T)=I:FY(T)= ニ JiF(T)= ニ ONEXT 
270 LOCATE 555.。OiFRINT " 本 

28O_ COLOR C6: IF D=1 THEN さ 320 

290 FOR =1 TO D-1 

さ 3 さ 0O PUT (TX10+100。O) 一 (T※10+107。 さ ) 。 SUX。 FPSET 

さ 310 NEXT 

320 T=O BHT 560 

ささ O F=INF(O) : ロ =INF (1 ) :R=INP (9) :R1= ニ INP (6) 

さ 340 IF PF=2555 AND CO< 2 ロ 4 QRND R=255 QRND R1=255 THEN 480 

さ 50 EE=O: = ニ O: し =O: 日 =O 

さ 60 TIF R1=25 さ THEN =2: BHT 38O 

さ 7O TITF R1=251 THEN =1 

3BO IF R=191 THEN 44Q0 








さ 90 ITF =254 THEN し = ニー1 sH=0s 

400 ITF PFP=191 THEN し =O:H= ニ 2 ェ E ビ = ニ 2: BUTO 490 
410 1TF P=2 ロ 1 THEN し =1 :H=O:E= さ : BHTH 490 
420 TF P=239 THEN し =0:H ロ = ニー2 ェ E=4: GHTO 490 
43O_ BUT 49O 

440 IF 0O=254 THEN し ニ ー2』H=OsE BOT 490 
45O 1TF P=191 THEN し =O:H=6:E= TO 49O 
460 IF P=251 THEN し =2:H=0:E ニ = TH 490 
470 IF PF=2 さ 9 THEN し =OsH=ー6=E GOUT0 49O 





4O ビニ 0 : =O し = 日 =O 

490 IF H=O_QND L=O THEN 660 

500 Y=Y+L = X ニ X+H: IF Y>22 HUR X:>65 UR Y<1 ロ R X く O THEN Y=YーL gz X ニ XーHs GUTH 660 
510 IF E<>2 THEN 530 

52O_ FOR 1=7 TO 日 : IF UX(X+T。Y+2) ニー2 THEN =1 ELSE _ NEXT:T=O 

5 さ O_ LUCATE XーH+ さ 。 YーLs PRINT 0 

540 LHCEATE X-H。YーL+1sPRINT " 

55O LHCATE XーH+S2。 マー し +2sPRTINT " 寺 ] 














プ マン トル 対流 エネ ルギー 計画 の 建設 労働 キャ ン 際 涙 星 と 呼ば れる レグ ルス 23 番 惑星 に た だ 一 人 世 | つ ビン チョ 星 の 宇 宙 人 . 地球 に 連れ て こら れ て ベッ 
ラ プ の 所 長 . も と も と は 医者 で あっ た が エリ ー ト 中 ゲ 捨て 人 の よう に 住ん で 宇宙 生物 た ちの 世話 や 研究 ン ト と し て 飼 わ れ て いる . 一 応 人 間 な み の 知能 を も 
ツ 心 の 社会 の あり か た に 疑問 を 持っ た た め 反 体制 派 オ を し て いる へ ん くつ な 孝 人 . サル タ の 古い 友人 で z ち , 人 間 の 行動 に つい て の 批判 力も ある. どう い 
ク と 見 られ , 労働 キャ ンプ に 所 長 と し て 送り こま れ ヤ も ある . 人 嫌い で ある が 宇宙 生物 た ち に は た より 及 -) うわ け か 地球 人 が 好き で 飼い 主 の ほん の ちょ っ と 
ジ て いる . 一 方 , キャ ンプ 内 に 診療 所 を 開き , 囚人 ジ に な る お や じ で ある . 動物 園 の ベテラン 飼育 係 の 宇 の 愛情 みた いな も の に も , も の すご て 反応 し て 宮 
以外 の 連中 の 診療 に 当っ で いる . 知 的 で 衣 腸 な 男 . 退職 後 の 疾 と いっ た と ころ . 冗 。。 ぶ . 気 の いい 犬 ころ みた いな 宇宙 人 で , や た ら に 
の 人 そ ぅ 3 じす る くせ が ある . 
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火 の 鳥 ゲー ム プロ グラ ム ・ リ スト 








560 CHLUR ビ フ 
70 LHCATE X+ さ 。 YiFRTNT 山 や 

5BO LUCATE X.。Y+1 :FRTNT == 還 sss。。 

90 LUCATE X+ つ 。Y+2:PRTNT 「' 電 還 アデ "> 

600 rF T=O THEN 660 

610 り =INT(RND(1 ) * 王 ) *100+10O 

62O0 COLUR CS:LUCRTE X+ さ 。Y+2:PRTNT ViUZ(X+ エ 。Y+ つ ) = ニ 0 ェ =0: ビーB ビ + り :F1=F 1+1 
6 さ O FUR 1T=O TU 1O0: BEEP1:FUR エ 1=O TO 王 :NEXT: BEEPO: NEXT エ 

640 CULUR C5:LHCATE 4 さ 。O:PRINT USTNG" 音 圭 電電 井土 "BCs =O 

650 1F F1=FB THEN F1=O:X=0:Y=22: BHTUD 190 ELSE 6O 

660 1TF B=O THEN 40 

670 COLOR C6 

6BO IF 8=2 THEN ロ =2:GBHT 740 ELSE ロ =5 

690 BEEP1: EL=7 晶 

フ 700 FOR 1=O T ロ FB-1:TF FY(T)<>Y THEN 720 

710 IF FX(T) ミ <X+5 UR EL<FX(T) ロ R UZ(FX(T) 、FY(T) ) =O THEN 720 ELSE EL=FX(1) :J=1 
フ 720 NEXT:G ロ TO 780 

730 IF EL=7 昌 THEN CH=O ELSE CO=UX(EL . Y) 

740 BEEF1:EL=O 

750 FOR 1T=O TO FG-1:IF FY(T)XY THEN フ 7O 

760 IF FX(T) >X+2 OR EL>FX(T) ロ R UZ(FX(T) 、FY(T) )=O THEN 7Z70 ELSE EL=FX(1) :J= エ 
770 NEXT 

7B0 LINE (EL 。Y) -(X+ ロ 。Y) 。"ー" を 
790 LINE(EL。Y) -(X+ ロ 。Y) 。" "=BEEFO 

BOO TIF EL=7 日 THEN CH=O ELSE CO=UX(EL、Y) 

B10 IF CO=O THEN 40 

B20 IF CO=-1 THEN COLOR C さ :LUCATE EL.Y:PRINT "9"』:UZ(EL。Y)=ー2: BOTU 40 
B3O IF CO=-2 THEN COLOR CS:LDCATE EL。Y:PRINT "リュ ェ U(EL。Y) = ニー1 

B40 M=M+1:TF M=FS THEN M=O 

B50O_DN INT(RND(1) *4+1) GUTO 60。B7O。BBO 。B9O 

B6O_H=0O ェ L=ー ミ : BHT 900 

B7O0 日 =6: し =0 BHTD 900 

BBO_H=O:L= さ : GDTD 900 

B90 =ー6: 上 =O 

900 COLOR C2 

910 IF FX(M)+HS1O_HR FX(M)+H>7O DR FY(M)+L< さ ロ R FY(M)+L>21 THEN 111O 
920 ITF UZ(FX(H) 。FY(M) ) =ー1THEN 940 

930 IF UZX(FX(H) 。FY (M) ) =ー2THEN F(M) =F (M)+1: BHTU 9 ヨ 0 ELSE 111O 

940 IF UZ(FX(M) +H。FY(M)+L)<>0 THEN 111O 

95O LHCATE FX(M) .FY(M) ょ PRINT " "zUZ(FX(M) 。FY (M) ) =O 

960 FX (M) =FX (M) +H:FY (M) =FY (M)+ し 

970 LUCATE FX(M) 。FY(M) :FRINT ""UZ(FX(M) 。FY(M) ) =ー1 : BHTO 100O 

90 IF F(M)=10-FS THEN F(M)=O:UX(FX(M) 。FY(M) ) =-1 ELSE 1110 

990 LUCATE FX(M) 。FY(M) :FRTINT " 錠 " 

1000 人 Q=X+6』 日 =Y+1 

1010 TF azFX(HM)+10 DR QAXFX(M) 10 THEN 1110 

1020 IF By>FY(N)+ 曲 HR B<FY(M)-55 THEN 111O 

1030 LINE(FX(M) *2。FY(M) *4) 一 (AX2。B*4) 。PSET: LHCATE FX(M) 。FY(M) :PRINT "%"s 
1040 BEEP: BEEP 

1050 LINE (FX(M) *2。FY(N) *4) (AX2。BX4) 、PRESET: LUCATE FX(M) 。FY(M) : PRINT "ZZ"s 
1060 LOCATE X+ さ 。Y:PRINT は る 

1070 LHCATE XY+1:PRTNT "ポポ ポポ ポポ ポポ ポポ ポポ ポポ リ 

1OBO LOCATE X+2,Y+T2kPRINT リボ K 光 氷水 リョ 

1090 FR 1=O TO 2O00:BEEP1 : BEEFO』 NEXT 

1100 D=D-1: ITF D=O THEN 1160 ELSE 8=O:GUTD 270・ 

1110 FR NM1=O TO FB-1:MT=UX(FX(M1 ) 。FY (M1 ) ) + る 

1120 UN MT BOTD 11 さ 3O。1140。115O 

113O COLOR C さ :LUCATE FX(M1) 。FY(M1 ) :PRINT "9"s:BOTU 115O 

1140 COLUR CS:LDCATE FX(M1) 。FY(M1 ) :PRINT ""s 

11550 NEXT:GBHTO ささ O 

1160 CHLUR C6:LUCATE 3O、12:FRINT "XX※ 水 GAME VER ポポ ※※※" 

1170 IF SC>HS THEN HB=SC 

11BO FOR 1=O TO 5000: NEX 下 

1190 ERASE UX。FX。FY。F:BUTO 7O 

1200 * ボ 水 ※ 水 水 テーク ポポ ポポ ポポ 

1210 DATA 32 。 ミ 076 。 16127 。O 

1220 DaTA 1250 、O 。O 。3552 。0 。O 。992 、o 

1230 DAT O 。-3104 。 0 。O 。 19 ヨ 84 。 さ 。O 。3264O0 

1240 DaATA O 。 0 。-256 。 2 。O 。-512 。1 。O 

125O DATA-204 日 。 479 。 O 。-4096 。 1 曲 。 O 。-B192 。 6015 

1260 DATA O 。-1634 、 127 。 O 。-163B4 。 1023 。、O 。O 

1270 DATA-17409 。 O 。 O 。 4094 。 O 。 O 。-268O 。 11 

12BO DATA O 。-16 。 6 。 14 さ 20 。- さ 2 。O 。 992 、-106 

129O DATA 119 、-17216 。-25 さ 。 さ 1 。 さ 2704 。-5512 。 255 。-786 

13OO DATA-1 。 4095 。-17 フ 。ー1 。-1 。 1919 。-2 。-1 

1310 DaT 13 さ 11 。-64 』ー1 。 102 さ 。-512 。-1 。- 昌 193 。 2 

1320 DaTA 12BO 。 O 。:O 。 96 。-2116 。 30 。 7eB 。O 

1330 DaATA 96 。-274B4 。 1 昌 。 2536B 。 O 。 4095 。- さ 172 。 日 

1 さ 40 DATA 255 さ 6B 。 O 。 3075 。 16904 。 4 。 976.。 0 。 4095 

1350 DATA 16900 。 2 。 13104 。 O 。 さ 0755 。 16956 。 3 さ O 。 4896 

136O DATA O 。 4995 。O 。O 。7e ヨ 8 。O 。3 。 1280 

1 さ 7O DAQTA O 。 768 。 O 。 163B ヨ 3 。 12BB 。 256 。 192O 。O 

13BO DATA さ 。 252 、 34 。 3264 。 1920 。 163B さ 。 66 。 192 

1 さ 9O DATA 6240 。 2 つ 112 。 122BB 。 64 。 96 。 12 さ さ 6 。 43B4 。 1404 さ 

1400 DATA-92 コ 。 4B 。 2460O 。 434 。 1404 さ 。 4 。 呈 き 6 。』-16 さ 7Z2 

1410 DATA-3O4OO 。 1 さ 165 。 24 。 2040 。-32761 。- さ 135Z 。 6436 。 日 

1420 DaTA SO4 昌 。 O 
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『 字 了 尻 戸 シ リー ス 第 3 弾 を お 届け し ます . 今 避 の 月 標 
は, 踏 作 創 を マシ ン 語 で 行なう こと , マイ コン ・ ゲ ー ム 








デュ 
に 


し 
の ⑨ ダ 
し 所 の 


プロ グラ ム は &HC100 か ら 多 HE53B の 9K バ イト 強 の 


領域 を 使用 し ます . も ちろ ん , 16K シ ステ ム で も 動き ます . 


『 全 機械 語 の アデ ゲーム は RUN さ せる の が 面倒 で 困る 』 と い 
う 方 の た め に , この ゲ ダーム は BASIC と リン ク す る こと 
も で きま す . その 場合 は リス ト 1 の 1 行 の み を キー イン し 
て か ら ロ ー ド し て くだ さい . モニ タ か ら RUN さ せる た め 


に は @E3CC [RETURN| で 走り ます . 
RUN す る と 写真 1 の よう な 画像 が 出現 し ます . キー ボ 


ー ド の 説明 の 他 , 音 を 出す か 出さ な いか を 尋ね て くる の で , 


較 キ ー ま た は 則 キ ー で 答え て くだ さい . 次 に ゲー ム の 説明 
が 必要 か 否 か を 尋ね て くる の で 同様 に 答え て くだ さい . 

ここ で , 画面 は 写真 2 の 状態 に - 転 し ます . これ は 中 間 報 
告 で , 各 面 の 終了 ご と , また は バグ (エイ リア ン ) に プレ 
イヤ ー が 喰い 殺さ れる た びに この 状態 と な り ま す . 

さき て, ゲー ム の 目的 は 迷路 内 を 走り まわ る バグ を た た き 
つぶ し , 迷路 を 脱出 する こと に あり ます . バグ は プレ イヤ 
ー を 見 つけ る と 容赦 な く 喰 い 殺 し ます . これ に 対し , プレ 
イィ ヤー は スト ッ パ ペー と ハン マー で 対抗 し ます . 

スト ッ パ ペー と は プレ イヤ ー が 自分 の 後 側 に 作る 人 工 の 壁 
で , プレ イヤ ー の 走 ろ うと し て いる 方 向 の 逆 側 に 出現 し ま 


230 


し 
pp 
も の の 6 9 の" ぺ 
@_@_@⑥ _@ 


国 1 キー ボー ド の 説明 





⑩ テ ン キ ー に よる 走行 と 向き の 制御 
回 
ロー リー 
還 


テン キー と 共に 押す こと に より 有効 と な る キー 


[se | ハン マー (テン キー に より 示す 方 向 に 振り 降ろ す ) 


居 ] スト ッ パ ー (テン キー と は 逆 の 方 向 に 作る ) 





@ ゲー ム 中 止 ,。 もしくは モニ タ ま た は BASIC に 戻る . 


STOP 





リス ト 1 








10 CLEAR0, 多 HCOFE: 
DEFUSR0=&HE390:A 
= テ USR0O (A) 








111 折 1 に 問 あ に 13 導 111111 
キー ノ や セツ メイ 
E81 
を 
FX] ユ ・・・・・ ズ トラ" ー 


く SH IF T>・・ い ハフ マー 
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オト ラ サシ マズ スズカ? (て ゅ ノロ ) 還 








ー チュ ウタ ン ネ ワウ コク 
タ * イ 94 メン 

ァ イ ロ ノル へ "56 

で チ シ * カ ン 99 


フレ ーー- ニン ズ ^ ウ の る 





SCORE 9@99999 
HIGH SCORE @ ら eoz@@ 


F_ 1】 9 HHN 1 0900008 


二 本 本 本 本 G Rn M E O 〇 V ヒ 愉 生 あま ゆま を 


ャ メ ィ 2 し と し 人 DD 上 四 り リル に と AE 
を (コレ いい イズ コア テ * ズ 。) を 





アナ タ ノ タッ シタ メン ズ スウ い 91 テ “ シ タ 。 


オツ カレ サマ テッ メシ タ 。 


lpu Y.OG 1 (1989 . 12 .23〉 
に (ココ 人 と ピア 人 ED 














す . バグ は スト ッ パ ペパー に ぶつ か る と し ば らく の 間 動 か な く 
な る の で , この と き に 襲い か か っ て ハン マー が 叩き つぶ し 
GE だ: さ ivss 

スト ッ パ ー は 一 定時 間 た つと 消え て し まい ます . バグ の 
動か な い 時 間 は その ほぼ 倍 で す . 図 1 に キー ボー ド の 説明 
を 示し ます . な お , スト ッッ パー は 迷路 中 に 同時 に 6 個 ま で 
し か 存在 で きま せん . に 

さて , 写真 2 の 状態 が 数 秒 続く と 画像 は 写真 3 の 状態 に 
転 し ます. 画面 中 央 の 人 間 が プレ イヤ ー で , この ゲー ム で 
は プレ イヤ ー は 常に 画面 中 央 に 位置 し . 周囲 の 画像 が 動く 
こと に より 移動 を 表現 し ます . 

迷路 の 構成 お よび 次 易 度 は 変化 し , 特に 構成 は 各 面 スタ 
ー ト 時 に お よそ 3 一 6 秒 か け て 作 制 する も の で , 毎回 異な 
り ま 9 

図 2 に 迷路 の 説明 を 示し ます . 迷路 の 大 き さ は 30※X30 で 


す が , 画面 に は この うち 横 11, 縦 7 の 範囲 し か 見 えま せん . 


写真 4 に 左向き に プレ イヤ ー が 走っ て いる 状態 を , 写真 
5 に バグ に 喰わ も れ た 瞬間 を , 写真 6 に ハン マー で バグ を 叩 
きつ ぶし た 瞬間 を , そし て 写真 7 に 走り 回 る バグ と スト ッ 
ッ *ー を 示し ます . 


写真 7 の 状態 で 、 ス トッ パー は 緑 の 格子 状 の も の で あり , 


バグ は 目 と 口 の つい た 赤い 球体 と し て 示さ れ て いる は ず で 
9 

バグ は 各 面 スタ ー ト 時 に 8 匹 お り , この 8 匹 す べ て を や 
っ つけ る こと に より 出口 が 開く と と も に 出口 の すぐ 前 の と 
ころ か ら 再 度 8 匹 の バグ が 出現 し ます . 

1 度 開 いた 出口 は プレ イヤ ー が 殺さ れ 新 し い プ レイ ヤー 
に 代わ っ て も 開い て いま す が , バグ は プレ イヤ ー が 交代 す 
る と 8 匹 す べ て 生き 返り ます し , 8 匹 す べ て を 殺す た びに 
バグ は 再び 出口 前 か ら ウ ジャ ウジ ャ と わい て 出 ま す . 

で すか ら プ レイ ヤー は 出口 が 開い た ら 適当 な 時 期 に バグ 
を 残し た まま 脱出 し て くだ さい . も し 意地 に な っ て バグ つ 
ぶし を 続け て いる と , や が て 時 間 が き て プレ イヤ ー は 死に 


ます . また, ハン マー の 空振り は 10 点 減点 で す . - こ の と き 。, 


得点 が 負 に な っ て も プレ イヤ ー は 死に ます . バグ を 残し た 
まま 迷路 を 脱出 する と いう の は どう も 気分 が 良く あり ませ 
ん が , ま , お 許し を . 

さて 注意 すべ き 点 と し て は ,『 後 に 何 か あ っ て は スト ッ パ 
ー は お け な い 』 の で す . し た が っ て , バグ と の 追い か けっ 
この 最 中 ,、 スト ッ パ ー で 逃げ ば よう と し て も バグ が 近 す ぎる 
と スト ッ パ ー は 出 ませ ん . また 気絶 し て いな い バ グ を 叩く 
た め に は バグ の 隣 を 叩い て くだ さい . 

他 に くど いで す が ス トッ パー は 迷路 内 に 6 個 ま で で す . 
これ を 忘れ る と , あわ て ふた めく こと に な り ま す .。 また 。 
スト ッ パ ー も ハン マー も 方 向 キー を 押し て いな いと 使え ま 
せん . 


画 画 に つい て 


画面 は ゲ プレイ ヤー の 移動 と と も に 上 下 左右 に スク ロー ル 
し , 迷路 内 の プレ イヤ ー を 中 心 と し た 11※x 7 の 領域 を 表示 
し て いま す . 

画像 転送 と アトリビュート ・ エ リア 制御 を 別々 に 行なう 
だ た だめ, 移動 時 に 一 瞬 色 ずれ が ほん の わずか 見 えま す が , こ 
の 方 法 を 取っ た 理由 は 後述 し ます . また , 移動 の 感じ が 出 


て か そっ て 良い と いう 人 も いる の で 気 に し な いで くだ さい . 


画像 の 移動 幅 は 各 方 向 変 わら ず 4 ドッ ト で , まぁ アナ ログ 


図 2 迷路 構成 と 画面 
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的 に 見 えま す . 

プレ イヤ ー も バグ も 各 方 向 2 通り の 画像 を 使用 し , プレ 
イヤ ー は 両手 両足 を 振っ て 走り , バグ は 口 を 開閉 し な が ら 
移動 し ます . プレ イヤ ー は 普通 白色 を し て いま す が . ハン 
マー を 使っ た り 喰 われ た りす る と 黄色 に な り ま す . 


バイ <・ ス コア に つい て 


写真 8 に ハイ ・ ス コア を 出し た 場合 の ゲー ム ・ オ ー バ ー 
の 様子 を 示し ます . ハイ ・ ス コア は &HC546 一 &HC548 
の 3 バイ ト に 10 進 数 で 登録 きれ て いま す . ゲー ム 開 始 時 に 
得点 は 0 点 に 更新 し ます が , ハイ ・ ス コア は むろ ん 更新 し ま 
せん . 

テー プ を ロー ド す る 除 , で きる だ け ロ ー ド 時 間 を 短縮 す 
る だ ため ワー ク ・ エ リア は セー ブ 範 囲 に 入れ な い 場 合 が あり , 
この と き ハ イ ・ ス コア 領域 に 奇妙 な 定数 が 残り 得る こと が 
考え られ ます . 

この 範囲 は 起動 時 に は &H00 が 書き 込ま れ て いる 領域 な 
の で スイ ッ チ ・ オ ン し て か ら す ぐ ロ ー ド , RUN す る 場合 
は 良い の で す が , 他 の プロ グラ ム を 扱っ た 後 で この ゲー ム 
を 行なう 場合 に は ハイ ・ ス コア の 管理 は ユー ザー の 責任 で 
実行 し て くだ さい . 


プロ グラ ム の 説明 


プロ グラ ム お よび デー タ ・ エ リア は &HC5C0 か ら 名 
HE53B の 8 人 KK 強 の 領域 を 占め ます . 前 述 し た と お り , この 
ゲ ダーム 作 制 に あたり アセ ンプ ブラ の 類 は いっ さい 使用 し て い 
ませ 2 

一 度 Z80 の 命令 を 覚え て し まえ ば , アモ ンプ ブラ な ど 使 う 
の は か えっ て 面倒 な た めも あり まし た が , 一 応 プ ログ ラミ 
ング 手法 の 実験 の つも り で し た . 徹底 的 な 細分 構造 化 を 自 
己 に 強制 する た め だ っ た の で す . 

マシ ン 語 プロ グラ ム の バグ 捜し が 大 変 な こと は 皆さん ご 
存 知 だ と 思い ます が , すべ て ハン ド ・ ア セン ブル で 行なう 








表 1 主要 サ プ ブルー チン 









SECCON | 迷路 内 座標 に より 指定 され た 
点 の デー タ を 出力 
VECTOR | 移動 に よる 新座 標 を 出力 
MAZSEC | 迷路 作 制 時 に 進行 可能 か 否 か を 判断 
wHCD1C|IGOVCHK| 戦闘 時 の 進行 許可 

を &HCD5C|IMZVSCN| 迷路 作 制 時 進行 方 向 決定 
ALSCAN | バク 進行 方 向 決定 
MAKMAZ | 迷路 作 制 (完全 迷路 ) 
MAZCTL | ルー プ 付 加 も 含め た 迷路 作 制 
最上 位 サ プ ブルー チン 

画面 移動 の うち 左 方 走行 に 対 
応 する 画像 シフ ト 


&HCEE0O |UPLOW 同上 
DOWNLW | 同 下 
&HD00C|LEFT 画面 端 処理 も 含め た 左 方 走行 


和 wHD013 | RIGHT 
移 HD01AIUP 
科 HD0211DOWN 


&HD15C|PUTWRO| 画像 位置 ・ 幅 調整 機能 付き 画 
像 処理 サブルーチン 

OGHMDA | 画面 中 央 制御 

ALMOYE | バグ 移動 制御 (画像 移動 ) 


多 HD254 |STALCN| 気絶 し た バグ の 制御 
を HD278 |DEADCN | プレ イヤ ー 死 亡 制御 



































































交 HCEACILEFELOW 





































ALSECN 
ALWRLT 
VPSLY 迷路 座標 を 画面 内 座標 に 変換 
&HD3D0 |STWLCN | スト ッ ペ パー 制御 
AMWRIT | プレ イヤ ー 消 去 ・ 表 示 
PHAPIC| 画像 移動 上 位 サ プ ブルー チン 
&HD490 |PHASE 画像 制御 上 位 サ プ ブルー チン 
STWLPT | スト ッ ペ パー 作 制 
GETHM バグ 殺害 制御 
OUTHM 
&HD5BC|HMCONT 
INPUT キー 入力 サ プ ブルー チン 
&HD64C|AMMOYVE | プレ イヤ ー 移 動 
&&HD6A0O |MAINLW | 下位 主 制御 部 
&HD82C 初期 化 サ プル ー チ ン ( そ の 1 ) 
CLCNTL | 色 の 移動 制御 
&HDBEC ILINYMEK リピ ビュ ー ト 完成 サブ ルー チン 


&HDCA0 |COLMOY | 色 制 御 最上 位 ル ー チ ン | 
交 HD9201GMVPR0O ゲー ム 初 期 化 サ プル ー チ ン ( そ の 2 ) 
旬 HDEC8 |REPSUB | 中 間 報 告 サ プ ブルー チン 
生 HE052 |RUNLOW| 最上 位 サ ブルー チ ン 

2 ら ら 2 


MAIN メイ ン ・ ル ー 
G コ マン ド 用 ポイ ンタ 


































































































&HE390 
MACHP0 
と な る と 徹底 し た 準備 が 必要 と な り , か つ 個 々 の サブ ルー 
チン は ジャ ンプ な どの 関係 か ら 短 く な り , 解析 が 楽に な っ 
て バグ が 減り 。 し か も デバ ッ グ も 楽 な の で す . 

表 1 で 主要 サブ ルー チン を , 表 2 で 主要 ワー ク ・ エ リア 
を 説明 し ます . フロ ー チ ャ ー ト は 少々 複雑 に な りす ぎる の 
で 省略 する こと を お 許し くだ さい . 

PC は 画面 制御 に アト リ ビ ュ ー ト ・ エ リア と いう 特殊 な 
手法 を 使っ て いま す . し か も その 制御 は な か な か 難し く , 処理 
時 間 も か か り ま す . で は アト リ ビ ュ ー ト ・ エ リア と いう 画 
面 制御 法 は 好ま し く な いも の な の で し ょ うか ? そん な こ 
と は あり ませ ん . 

た と えば , この ゲー ム を RGB3 枚 の V-RAM を 持つ シ 
ステ ム で 実行 する と 相当 遅く な る は ず で す . 扱う 画像 の 位 





巳 U 己 FIRE! 





表 2 主要 ワー ク ・ エ リア の 説明 


迷路 領域 . 30 メ 30 の 寸法 が と れる . 各 バ イト 
が 1 ブロック に 対応 し , 第 7 ビッ ト が 通常 壁 。 
第 6 ビット が スト ッ パ ー, 第 5 ピット が バグ 
に 対応 する . 

SECCON 和 力 迷路 座標 . SECCON 出 
力 は &HC492 一 和 &HC497 に 置か れる . 

迷路 作 制 時 穴 を 掘る た め の 座 標 . アド レス , 

迷路 情報 エリ ア . 











SRND 出 力 お よび ポイ ンタ 





画像 位置 。 消す か 書く か 。 デー タ ・ ポ イン タ 
スカ . 画像 処理 に 使用 する バッ ファ は & 是 C 
4B5 一 色 HC4C8 ま で . 

プレ イヤ ー デ アー タ . 








スト ッッ マー 設置 スイ ッ チ . 
ハン マー・ ス イッ チ 。 

入力 禁止 フラ グ (キー 入力 ) 
スト ッッ パー の 状態 表 . 














バグ の 状態 表 . 





スト ッ パ ー デ ー タ ・ エ リア ( 各 6 バイ ト X6) 





バグ デー タ ・ エ リア ( 各 8 バ イト X8) 


得点 (HIGH SCOR 巨 と 共に 10 進 数 6 
桁 ) 





HIGH SCORE. 


置 幅 が ある 程度 規則 正しい も の な ら ば アト リピ ビュ ー ト ・ 
エリ ア の 制御 は 簡単 と な り , 画 像 に よっ て は 3 組 の V-RAM 
を 使う 色 制 御手 法 な ど よ り 処 理 速度 は 大 と な る で し ょ う . 
この ゲー ム で は 扱う グラ フィ ッ ク 画 像 は すべ て 1 辺 が 12 
の 倍数 ドッ ト か ら な る 四辺 形 に な っ て お り , 色 制 御 を 必要 
と する も の に 関し て は その 位置 は 完全 に 管理 され て いま す . 
色 制 御 は 6 X 3 三 18 キ ャ ラク タ か ら な る 正方 形 を 単位 と 
し て 実行 され ます . 走り 回 る バグ は 赤色 を し て いま す が , 
実は バグ が 赤い の で は な く 道 が 赤い の で す . 画面 上 で 空虚 
な 黒 に 見 える 道 は 実は アト リ ビ ュ ー ト ・ エ リア で は 赤色 , 
(&H58) が 宣言 され て お り , そこ に 書か れる も の は その ま 
まで は すべ て 赤く な っ て し まう の で す . 
プレ イヤ ー や スト ッ パ ー は その 色 を 再 宣言 し て いる の で 
す . この ゲー ム で は 道 も ヌル ・ キ ャ ラク タ 18 個 の 集合 と し 
て 扱っ て お り , 青い 豆 と 何ら 差 は あり ませ ん . この よう に , 
迷路 側 に 色 を つけ る こと に より 色 制 御 は 迷路 構造 と 対応 し 
て 実行 可能 と な り , 動き 回 る バグ の 色 を 定め る の に いち い 
ち ア トリ ビュ ー ト ・ エ リア 内 の スキ ャ ン (ROM 内 ルー チ 
ン で は &H0622) な ど を 行なう 必要 は な く な り ま す . 
迷路 の 構成 単位 で も ある 18 キ ャ ラク タ の 集合 が 画面 内 の 
どこ に ある か は 迷路 構造 と プレ イヤ ー の 存在 位置 お よび 後 
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述 す る PHASEX, PHASEY に より 人 簡単 に 求め られ 
まず 。 

ァ 幅 は 6 キャ ラク タ と 一 定 で , 重なる こと は な く 隣 接し 
て いる これ ら の 色 を 制御 する こと は アト リ ビ ュ ー ト ・ エ リ 
ア で 人 簡単 に , し か も 早く 実行 で きる の で す . PHA SEX, 
PHASEY は 各々 左端 お よび 上 端 の プ ブロッ ク が 3 分 の い 
くつ 見 えて いる か を 示す 変数 と 考え て くだ さい . 

アナ ログ 的 に 見 せる た め , 移動 は 迷路 構成 単位 (ブロ ッ 
ク ) の 縦横 幅 の 1/3 を 単位 と し て 行なわ れ , 色 制 御 $ こ れ に 
対応 する た め に これ ら の 変数 が 必要 と な り ま す . 色 制 御 は 
どう し て も 各 プ ブロ ッ ク の 画面 内 座標 を 管理 する こと が 必要 
で 速い と いっ て も , バイ ト 数 で は むし ろ 多 い V- RAM 内 デー 
タ の プ ブロッ ク 転 送 と 比較 し うる 時 間 を 要 し ます . 

画面 内 デー タ の シフ ト と 対応 する アト リピ ビュー ト ・ エ リ 
ア 制 御 を 同時 に 実行 する こと に より 上 下 左 右 ス クロ ー ル を 
行なう と , 特に 左右 スク ロー ル で 画面 の ちら つき , 画像 の 
歪み が 生じ し 見づらく な っ て し まい ます . 

この た だ た め , 両者 を 分 離し 画像 デー タ を 転送 し て か ら 色 制 
御 に 入る た め , 前 述 の 色 ズ レ が 生 し ます. し か し , これ は 
解決 可能 で す . 

また , 各 ブ ロッ ク の 座標 管理 と いっ て も 必要 な デー タ は 
前 述 の PHASEX, PHASEY の 2 変数 値 の み で , 処 
理 の 速度 は 早く , 前 述 の 画面 の ちら つき も TV の 走査 線 と 
の 同期 が 運 の 悪い 形 に な っ た と き , と きど き 見 そえ る だ け な 
の で 余り 気 に な ら ず , むし ろ そ の 方 法 が 良かっ た か も 知れ 
ませ ん . 

な お , 上 下 左右 スク ロー ル は プ ブロッ ク 転 送 LDIR, L 
DD 民 に より 画面 内 デー タ を シフ ト し, 画面 端 に 迷路 構造 
より 判断 し た 値 を 書き 込ん で 実現 し て いま す . 

迷路 作製 アル ゴリ ズム は 単純 で , 壁 の 中 に 容 を 掘っ て い 
く 方法 を と っ て いま す . 入口 か ら 出 口 ま で 正しい 行き 方 が 
1 通り し か な い 迷 路 は お よそ 3 秒 で 完成 し ます が , これ に 
各 面 ご と に 定まっ た 数 の ルー プ を 与え る た め に 最大 3 秒 ほ 
ど よ けい に 時 間 を 要 し ます . 

計 6 秒 と いう の は マシ ン 語 ソフ ト に と っ て は 大 変 な 時 間 
で , 多少 の 短縮 は 可能 で し ょ う が , 大 幅 な 短 縮 の た め に は 
迷路 作 制 アル ゴリ ズム の 変更 が 必要 だ と 思い ます . な お , 
中 間 報 告 中 『 迷 路 の レベ ル 』 と は ルー プ 数 の こと で す . 


各 面 の 迷路 次 易 度 は を HDF78 一 HDFE87 ま で に 10 進 
数 で &HDF88 一 &HDEF97 ま で に 対応 する 16 進 数 で テ 
ー ブ ル 化 さ きれ て いま す . これ を 変更 する と 迷路 次 易 度 が 変 
化し ます . 

ただし, $01 一 $90 の 間 の 数 に し て くだ さい . また , 迷 
路 区 易 度 す な わ ち ゲー ム の 難易 度 で は な い の で ご 注意 を . 
ルー プ の 多い 迷路 と , ルー プ の 少な い 迷 路 で は 戦法 が まる 
で 異な る の で す . 


最後 に 


少な く と も , 前 2 作 『 ス ター・ フ ァ イ ア 』, 『 ス ター トレ 
ッ ク ・ フ ァ イ ア 』 よ り も 面白 いと 友人 達 か ら 好 評 の この 『 ヾ 
グ ・ フ ァ イ ア 』 で す が , 改良 すべ き 点 , 改良 可能 な 点 は 多 
いと 思い ます . 

この ゲー ム は え そら く 短 期間 に 完成 し . し か も いま の と こ 
ろ バ グ は 少な い の で (わざ と 残し た も の も あり ます . 出口 
近く で は ご 注意 /), 恐 休 の フル ハン ド ・ ア セン プル 作 制 法 
も まん ざら で は な いよ う で す . 上 下 左 右 ス クロ ー ル お よび 
その 色 制 御手 法 を 使え を ば 『 ラ リーX』, 『 ク レー ジー クラ イ 
マー』 な どの 類似 デー ム を 作る こと は 簡単 で す . 

し か し , 解像度 . バッ ク ・ カ ラー の 点 か ら 上 下 ス クロ ー 
ル だ け で クレ ー ジ ー ク ライ マー を 作る の は な か な か きつ い 
お 話 で す が , どなた か 作っ て 見 て くだ さい . 話 は 変わ り ま 
す が , I/0 "81 年 2 月 号 に 発表 され て いる 東大 T S G 会 員 の 
方 が 作っ た 『 ミ サイ ル ・ コ マン ダー』 は 見 事 で す . 

ちな み に 『 バ グ ・ フ ァ イ ア 』」 の ハイ ・ ス コア は 今 の と こ 
ろ 筆 者 の 10,257 点 , 『 ス ター トレ ッ ク ・ フ ァ イ ア 』 の ハイ ・ 
スコ ア は 88,620 点 で す . これ ら の 記録 を 破っ た 方 は な か な 
か の 根性 人 間 と 言え を まし ょ う . 私 の 場合 , 疲れ て へ た り 込 
み ま し た . 

傘 論 が 多忙 な た め , 溢 作 の 子 告 は 難し い の で す が , フラ 
イト ・ シ ミュ レー ター= テ PC か , フル マシ ン 語 高度 戦略 ウォ 
ー・ シ ミュ レー ショ ン ・ ゲ ー ム を 作っ て みた いと 考え て お 
り ます (前 者 は ほとん ど で き て いる の で す が , 後者 の 方 が 
面白 そう で すし …… ). それ で は この 辺 で . 


プロ グラ ム ・ リ スト 























Rdd 。 + +1 +2 + さ 
Cg 6 ロロ さ ロロ 
C71g 12 11 ggF 
C ァ 2 11 

7 さ 加 6 す 5 
Cr ロビ 
CS 96 
C76 ロ 1 ロ 
Cr 62 
C78 gg 
Cr9 ロ 
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当 束 訓 上 よ 串 




























ER 
CR 回 
CR 回 

RB 中 
じ RE 加 
CD 
HE 回 
ERFB 


Rdd 

CB 
CEB1 中 
CBZ さ 
CBS 四 
CB 回 
CB 
EBE 加 
CB 回 
CB 
CE 
CBRB 
CBB 加 
CEBE 
CB 
EEE 
EBFB 


Rdd 

EC 
ECE1 
EC 
CC3 
ITGI 
CCS 
EEE | 
じ Cr 回 
EEE 
CC C ビ 
CR 
CCB 
EC F 
ECD 
CCE ロ 
CCF ビ 


コト ュ 二 CO 






本 華 : ト ュ ト a Ci ME 


記し ト ュー 


Rdd 
ED ビ 
ED1 PF 
CDS 


dE GIICa CE 十 
LU LC こま < CHA 





CD 
ビ 』 
4 


5 蘭 に | 


32 9 


5 に た | 


C4 


CD 


RBD 


ロロ B9 


+ ロ 
3 
21 


還 1 
加 引 デ 


ED 


還 引 


C4 


C3 
CD 


さじ 


Cg 


CB < 


CS 


SC 
CB 
CR 
+1 
14 


CF 
CD 


C9 


に ロ 


CS 
さじ 


E 4E 


4D 
4D 
21 


4F 


F1 
CD 
F1 
FE 
ビ は 
に 


+2 
CD 
C9 
F8 
4 
32 
BR 
C4 
Hr 
gg 
32 
R3 
1 
DR 
SH 
ヒ 4 
ヒ 4 


+2 
19 
ビ は 
gg 
SD 
CR 
gg 
CDb 
CD 
DC 
FS 
1 
bt 
C6 
Ce 
CS 
22 


+ タ 


B5 に 


E1 
3 コ 
CH 


さっ 


さ ロ 
gg 


B 


CS 

CDb 
さる 
8 
C5 
C5 
| 
C5 
さじ 
避 
さじ 
BE 
DE 
De 


+ さ 
に で 
CD 
CE 
3RH 
BE 
ヒ 4 
Rr 
FR 
9 ロロ 
BE 
Dg 
FE 
C ァ 
BR 
3 
| 
+ さ 
22 
ED 
9 
Fz 
ED 


84 
8 


Mk 
が 


C9 
19 


19 


BE 
B3 


2H RB 


3 
bb 
7 
DD 


に | 


32: 9 


9 ビ じ 


CD 3 
4C C 


3E 


つつ コロ 


デー 


に 


CD 





BE 


CC 
FE 


CS F 


ロ さ 
95 


+ 中 
BG 
CE 
CD 
Bg 


C4 じ 


23 
Fa 
?B 
B6 
C4 
9 
4 さ 
pg 
C4 
4F 


BD じ 


+ す 
C2 
5B 
22 
1g 
5B 
22 
Dg 
D1 
3 


939 


Bg 
EE 


BI 


CH 


C9 
は 


に さ 
BE 


BUG FIRE ノ プロ グラ ム ・ リ スト 


+ ア +8 +9 +R TB + じ 


EE 





WU 
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NET YRTEETTTTT 
ES を SS や IS8EHH3IREI 


BUG FIRE ノ プロ グラ ム ・ リ スト 
ド 寺 SI 生 了 































D29g C4 RF 32 B2 C4 ヒ 5 DEg B ロロ 
D2RE じ 9 回 b1 DrDg Eg C5 
DB gg B CD 1 ビ 51 DEg 9 D1 : 
D2CB H ア D2 C9 g CDb D7F ロ 5 Di CE9.C9 : HH さ 





D2Dg DS C5 CD Cg D1 
DSE ロ BS DD 7E 2 91 91 Di で 
D2FB 3H CE C4 32 9R C4 CD GE 


DDb 
1D 


FRdd  + ロ 1 + ジ オミ オオ 呈す 
Ei 


DB FE gh 


8 Hi 





DS1 ロ 3 3 ロビ 
Rdd  + 四 1 +2 キオ さす 叶 コキ ヨ +H DB2 加 
DS EB1 C1 本 CR 15 DS FD 3 FD D83g 32 
DS1g 91 91 FD rr 2 Db1 1D 9 84 

















DS2G GS 』F 6 BSH 55C5 1 b85g 

DSS9 9 6E 26 CE 22 BS C4 9 ァ gg DS8gg 

DS4g C2 83 さ D3 CD 1C DS DD 5E5 EE D87g 

D35g 1 32 B2 Cd CD 5C bl Hr Db88g 

DS6g EC DB CD 6g CC DD rE Eb DS9g 

D3rg BB Cd DD 7E 3 BDD で ぶ 2 B1 DS 

D38g CD 5C D1 b1 1D F2 3B D さ CB gg DBg 

DS 7C 9 47 ア D 91 4F CE SE1 で CB 21 : DSCg 

DSR CB 2 BB C6 ロ R Er ビ B bbg 

DSB 9F F ヨ 9F F3 9F F9 2F FG DBEg 

D3CB RS 5 5 5 5 本 症 自 D8Fg 

DSpg 11 本 gm DB5 CD De pl 

ESE GE PE 2S BR は Rdd 。 + ロ +1 
D3F 5C D1 E1r 3D D3g C 引 CD 


D31 9 BE 
D32 ロ RF 3 
D9Sg F8 32 
D34 さ E FF 
D35 Cd すさ 
D96g C5 32 
D37g RF 32 操 


Rdd 。 + 四 キオ 1 + オ 2 オオ は 
Ed DE BE1 1D, FE D さ 
DDd1 ロ C5 E6 1 8 
HE に ビ 邊 CB 
DS 全 1 E 2 E 
DS1 2 Dd 














DD D38 ロ 2 2 名 

DE 回 D39 加 3E ロロ 1 F5 

Ed7g 3 DR D1 1 

dB D9BG HHF F コ 4F E 


D3Cg BC ロロ ED 
D3D 6 21 
D3Eg D1 ED BB 
D9FG gg 21 Fg 


DDd9g 
Ed さ 
EEE 1 
EC 1D 2 BB 
DD 1E, FE CB 
DE RS Ed 32 
FE 中 EE F 昌 


Rdd  + ロ +1 
DR F1 3C 
DR1 に 中 DE 
DRZ SH 





> BB Ed 
Rdd +a 







+5 + ロ 


Isixis 因 5 PRS 1 Ei ロ 
還 FD DR FE ロロ 
CD C じ DRS Cd に 5 
に 3 DREg 1F DR 
9 [1 DR 1 








Im) RG 

DS5Eg 93 DR3g 

Drg BE DRR 

DSg RF DRE 

bg CD DRCG 

DSR 27 で で DRD ビ 

DB CS 白 DREg 

DSCB DRF 

SEM に 

[5E SB Hdd  + +1 

FDSF RF DB 5 Tr 
DE1g EB 5 
DB2g 58 EE 

94 Hg DB3 ロ _ 58 58 58g 

DB4 BS BE 
DES5 FB F は 
DE FB F 
DBZ F8 Fg 
DES ロ C gC 


DE3E CD E ロ ロ 
PER 1 8 操 
DEE FE 
DBE C CD 

DEE CS RF 
DBE 32 5F 
PEFg 5C 5 





EEE DE F1 
EE に 引 朋 






















EEDB CT 
DEE CS DE CS 5 dd 。 + 昌 +1 
DeFB 7 CH FF DE 3 dC 回 ヒラ ョ DCEgg 2 
DC19g 3 に FE 
dd 。 + +1 +E に DC2g 3C FE 
Dr 回 DE 白 F 如 回 DC3 DB CD 
Dr1 ロ dE 23 14 [ DC 3D CD 
DS rE FE 回 ロロ DC5 ロ 3E ロミ 
Dr BB ロラ E FF DEE CD 折 ビ 
Dr FF FF 21 El DC SE ささ 


PCB 3 DB 
PCB DE CD 
DER さ SH ビビ 
PCBB CD 5 Ed CD 
DCE CS さ E gd 32 呈 
EED DB 1 2 DE EE BE 
DCEG SE F8 32 3E DE 3 


DS SE DF ER ED 
Dr SH FE 3 FE FF 
Dr さ EH 21. 4 中 C 
Dz8g 2B E5 CD BD 5E 
Dz9g CD Cg D8 21 


D7RB_S6 C5 C6 ロ 1 32 56 C5 
DBB_ CS Hr Cg さ E g1 32 55 





CD 






四 還 
F8 32 中 
BI 3E 
Ed CB 
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巳 り 己 FI 内! 


BUG FIRE ノ プロ グラ ム ・ リ スト 



























mm 


E13 ロ 
E15 


DCF 58 32 3D DB C9 BE BBH ED dE ER SE 













RC + ヒ E1eg 

DD E E17g 

DD1g 3 E18g 
E19g E 
E1Rg 


E1E 
E1CB 














































EDa EID 
EE 評 回 E1EB E: 
EDB E1F 品 
IRISI 叶 
EDR II Hdd 
DE FF EE 
EEiEE ココ EE1 
EDP E1 ES 
DEE < 3 = ES3gg 
PDFB 2 FE ES 
ES 
Hdd  + 昌 + ヨ ES2G 2 
DEgE は 1 ES 
EE1 引 8 ESSg 
DES CZ テ ES9 ロ 
DES 3E 5 ES ロ 
DE 18 ESE 
EE に EC 
DEE FE ES 
時 軸 EE EEE 
内 EEFB 












Pdd 。 + 回 

中 E3g EE 2 
昌 E31 ロ 1 
) E32 gB 













FT mm 









DEEG 区 E33g 9 HE 
EEFB 1 E さ 4 

Hdd E3S 

ae ニ E36 ロ 

EFg C5 さ ロ 6 

DF 回 iD っ 思 

DFI g と ュ E3 ヨ 加 
| DF さ に 2 に 2 ー 

E ER ES 

| C ESEg 











』 





后 ごい 


DFB 

DF 
EFA 

DFE 
DFCg BB 
EFEg 
EFEG 
DFFg 


(nm ビ ビ 





豆 ? 


Rdd 
EBIEH 

Eg1g 
E 連 回 
ES 
E ロ 叶 加 
ES Eg 
EE さ 昌 
EE EC さ 
.ESE に 
EE EZ 8 
ER ヨ E ロ 
EE CS 由記 
EE FR DC 
EBE 3 昌 
EE 
EgFB ED 52 





mim 









Do 
ET 





E51g 3E 1 
E5zg gd DD 
E53B De Cd < 


JILliJugio ま < 





WU LIPW 生 
ED 


ト 


+F 
2 月 
5 FF 
FF :B 
FF *: 


dd  + 昌 オ 1 
E1 人 回 は 
E11g gD gh 
E1E SE SB 
E13 3 に 旨 さ 





中 FF FF 














チェ ッ ク ・ サ ム プロ グラ ム ・ リ スト 























1g | KTHG ま CE-LENKHEX ま PF ッ う ・"g" 
旨 6 CH"+LEFT ま (5 ま 。LEH ま 3 
39 INPUTYEng SH は 2 






FR ロロ = TU E STEI : IF RIGHT ま て HE 江 まま 3 > IIU ロ E ロニ 5 THEH GUSUE3 
5 LFRINT FNHCH ま で > 日 
Eg_ FIRE 1= ロ TU 15 FEEKK 

gg LFRINT "5FHNEH ま くさ 。 LINHE 央 T 
8g EHD 

8 LPEINTELFRINT "dd "EEFOE 1= ロ TU 15iLFETNT "キリ HESS ま で T ッ E リ "siHESTELFRIHT Sum"i 
RETUFH 








iLH=SIHHTE NEST 
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この ゲー ム は , ゲー ムセン ター で 『KAMIKAZE 』」 と い 
う 名 前 が つい て いる も の と ほとん ど 同 じ で す . 大 型 UF O 
か ら 降 り て 来る エイ リア ン は , 別に ミサ イル を 発射 する こ 
と も な く , これ は 楽勝 と 思い き や , 下 に 落ち る と 衝撃 波 ( 破 
片 ? ) を 出し て , これ に 当たる と ビー ム 砲 は あっ さり と や 
られ て し まい ます . 

エイ リア ン が た くさ ん 落ち て くる よう に な る と も う 避 け 
よう が な く て お 手 上 げ で す . な か な か 難し く て , ゲー ム セ 
ンタ ー に ある も の で は , まだ 3.000 点 以 上 いっ た こと が あ 
り ま せん . 





mm ブロ グラ ム の 入力 


BASIC の プロ グラ ム の うち , 9000 一 9090 は チェ ッ ク ・ 


サム の プロ グラ ム で す . BASIC と マシ ン 語 の プロ グラ ム " 


を 入力 し て , RUN さ せる と 64 バ イト ご と の チェ ッ ク ・ サ 


ム の 値 が 次 々 と 出 て きま すか ら , 本 の 値 と 比べ て くだ さい . 


チェ ッ ク ・ サ ム が OK で し た ら , BASIC の 行 番号 10 と 9000 
ー9090 を 削除 し て くだ さい . 


用 チェ ッ ク ・ サ ム ブロ グラ ム 


8 月 号 p.151 に 戦 せ な チェ ッ ク ・ サ ム の プロ グラ ム は か な 
り 無駄 な 部 分 が あり ます (PC の HEX$ 関数 は 2 桁 ま で 
し か 使え な いと ば か り 思 っ て いた も の で すか ら /). 行 番 
な 200 一 220 は 今回 の プロ グラ ム の 9070 の よう に 1 つ に ま 
と め ら れ ま す . こう すれ ば 260 一 290 の サブルーチン も い 
ら な く な り , か な り 短 く な り ま す . 

それ か ら , 240 の LPRINT 文 は プリ ンタ 出力 を し な いと 
き は 削除 し て くだ さい . さも な いと ,。 この 行 で プロ グラ ム 
が 由 ま っ で し まい ます 。 


る 革 び 方 


ビー ム 砲 は テン キー の [4 で 左 へ , [| で 石 へ 移動 し ます . 
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ビー ム の 発射 は スペ ー ス | キー で す . 

この プロ グラ ム は カラ ー, 白黒 どちら の モニ タ で も 使え 
る よう に し て あり ます . RUN す る と , まず カラ ーTV か 
どう か を 聞い て くる の で , [Y| か 陣 の キー を 押し て くだ さ 
Po1 

画面 右側 に は SCORE と Hi-SCORE が 表示 され ます . 画 
面 中 央 の 数 字 は 局面 数 で す . 

右側 か ら 大 型 UFO が 出 て き て , 中 央 に くる と エイ リア 
ン を 降ろ し 始め ます . エイ リア ン は 溝 に 入り , ここ へ 5 欧 
目 が 入ろう と する と 1 番 下 の エイ リア ン は 押し 出さ れ て 降 
下 し て きま す . また 1 番 端 へ 行っ た エイ リア ン は すぐ に 降 
ド ト し て きま す . 

1 番 下 へ 落ち る と エイ リア ン は 衝撃 波 を 出し ます か ら , 
その 前 に 破壊 する か 逃げ る か し て くだ さい . と きど き 中 央 
か ら UFO が 降り て きま す . これ は 1 番 下 へ 着く と 全面 に 
衝撃 波 を 出す た め , 必ず や られ て し まい ます . 

UFO の 両端 に 当て て も 爆発 し ませ ん し , 時 に は ビー ム 
が すり 抜け て し まう こと も あり ます . UEFO が 出 た ら す ぐ 
に 撃ち に 行っ た 方 が いい で し ょ う . 

50 更 の エイ リア ン が 降り る と 大 型 UFO は 左 へ 移動 し て 
1 面 の 終了 で す . また 新た な 大 型 UFO が 右 か ら 出 て きま 
す . 40 面 消し 終わ る と GIVE UP に な り ま す . 


坦 得点 


港 の 中 に 待機 中 の エイ リア ン は 20 点 , 降下 し て いる エイ 
リア ン は 40 点 で す . UFO は MYSTERY で , 100, 200, 300, 
400, 500 点 の うち の どれ か 1 つ で す . 

5,000 点 を 越え を れ ば ビー ム 砲 は 1 台 追 加 さ れ ま す . 





























あ ブロ グラ ム の 解 説 


1 ) マシ ン 語 


動き を 必要 と する と ころ は すべ て マシ ン 語 で プロ グラ ム 
し て あり ます . 図 1 に メイ ン ・ プ ログ ラム , さら に 図 2 一 
図 6 に , (1) 一 (5 ) の サブ ルー チン の フロ ー チ ャ ー ト を 示 
し ます 。 

ALIEN の 動き は エー の 3 つ に 分 け , ALIEN 1 と いう 
の は 中 央 の 穴 か ら 1 行 下 が っ た と ころ まで , ALIENII は そ 





写真 1 


大 型 UFO か ら 次 々 と エイ リア ン が 降り て くる . 








SC0RE 錠 9 
Hi-SC0RE 1 


S(0KE 


出る 670ME 


ペー ンー で Pe ーー 


| 『 「 串 間 


5(0RE 錠 箇 
3 る (08E 


タイ フン アァ メ の ガン ァ ン ZZ ファ フ / ノ クイ ピン 


ーー 水平 に 右 あ る い は 左 の 動き か , 港 に 降下 し て 待 
機 に 入る まで , ALIENI は 降下 し て いる 状態 を 示し ます . 
2 き に ビー ム が 当たれ ば 40 点 が 得 ら れ ま す . 

UFO の 発生 は ビー ム の 発射 数 と 乱数 に より , ビー ム を 
6 発 以 上 撃っ た と き に 発生 し ます . 

マシ ン 語 プロ グラ ム の 内 容 に つい て は 表 1 に 示し ます . 
ワー ク ・ エ リア を 表 2 に , デー タ ・ エ リア を 表 3 に 示し ま 
す . 

局面 数 が 進む に つれ て 大 型 UFO か ら エ イリ アン の 出 て 


くる の が 速く な っ て きま す . 1, 2 面 あ た り は 遅く て 易 し 
過ぎ る 感じ も し ます が , し だ い に 速 く な り ま すか ら 安 心 し 
で SSS さ MS 








中 央 か ら UFO が 降り て きた と ころ 


ド に 電 / 月 月 2 


」 
| -560RE 8 


写真 5 UFO の だ す 衝 撃 波 に は 逃げ る こと が で き な い . 





560RE 


560KE 


ーー っ テーZ2esGC sec ニニ ーー だ 


ソフ アソ ソソ フツ ソソ アソ ソソ 了 の 生 ジア プア アプ アン ン ブフ ァ ンプ フアン ゾ ア 


5C0gE 和 側 
iC08E 9 


2 ) BASIC 

BASIC プ ログ ラム の 内 容 に つい て は 表 4 に 示し ます . 
短い の で 説明 の 必要 は な いと 思い ます . 420 の キャ ラク タ 
は キー ボー ド で は 中] キー, 440 の キャ ラク タ は 剛 キ ー に よ 
る も の で す . 


ep 変更 点 


変更 で きる 項目 に つい て 表 5 に 示し ます . 数 値 は 16 進 数 
で す . 番号 の 頭 に ま の つい だ た も の は , 0 1, 0 3, 0 7, 
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図 1 メイ ン ・ プ ログ ラム 図 3(a) ALIENII 








START 


大 型 UFO 定 位置 へ 





ALIENII 





図 3(b) ALIENII 


図 2 ALIENI 


START 


移動 の デー タ に よ 
アド レス を 決め る 





する か を 決め る 


[の ポイ ンタ を 決め る 
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4 ALIENII 


START 





図 5 UFO 降 下 


yes 


yeS 


アド レス を 
| 行 下げ る 








図 6 ビー ム 上 昇 





ワー ク を 消す 











0F, 1F、 3F…… な どの 数 値 に し て くだ さい . 

( 2 ) の ビー ム 砲 移動 速度 は 02 以 上 の 値 に し て くだ さい . 
( 5 ) の 衝撃 波 の 届く 距離 を 小さ くす れ ば ゲー ム は 楽に な り 
ます . (6) の UFO 発 生 率 は も う 少 し 小さ な 数 値 に し た 方 
が いい か も し れ ま せん . ゲー ム ・ セ モン ター の も の は , か な 
り 顔 繁 に UFO が 出 て きま す . 

(7 ) の UFO0 降 下 速度 は 少し 速 す すぎ る よう で す が , この 
位 の 方 が スリ ル が あっ て いい と 思い ます . 


プ あと が ぎ 


待望 の 夏休み . 朝 か ら 史 ま で マイ コン の 前 に 座っ て いら 
れる の で , この ゲー ム も 4, 5 日 で 完成 で きる と 思っ て い 
た の で す が , 途中 で 遊び に 行っ た り し て いた ら 調 子 が 狂っ 
て 結局 1 週間 以上 も か か っ て し まい まし た だ た. よう や く ア セ 
ンプ ブラ ROM を 手 に 入れ た だ た ので, これ か ら は 少し は 早く プ 
ログ ラム で きる よう に な る と 思う の で す が , 使い 方 を 覚え 
る : ま で 2 だ 変 そ う で す 。 

この ご ろ の ゲー ム ・ セ モン ター は 回 転 が 早く て , 面白 い ゲ 
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&O 


アド レス 
D600 一 D64C 
D64D 一 D659 
D65A 一 D6 8C 
D6 8D 一 D6AF 
D6B0 一 D6C9 
D6CA 一 D7A4 
D7A5 一 D819 
D81A 一 D83F 
D840 一 D883 
D884 一 D8A7 


D8A8 一 D8E0 
D8E1 一 D91F 
D940 一 D979 
D97A 一 D9B5 
D9B6 一 D9F8 
D9F9 一 DA5D 
DA5E セ ーDAF5 
DAF6 一 DB2C 
DB2D 一 DB6 1 
DB62 一 DBE4 
DBE5 一 DC95 
DC96 一 DCFC 
DCEFD 一 DD3 2 
DD33 一 DDAB 
DDAC 一 DE6B 
DE6C 一 DE92 
DE93 一 DEA7 
DEA8 一 DECF 
DED0 一 DF48 
DF49 一 DF99 
DF9A 一 DFCF 
DFD0 一 E04F 
E050 一 E067 
E068 一 E08D 
EO08EーE0B7 
E0B8 一 EE12C 
E12D 一 EE1BB 

E1BC 一 E1DF 








計 
間 


カプ ェ ー イ 此 

タイ マ 

10 進 出力 サブ ルーチン 
アド レス 計算 サ プ ブル ー チ ン 
乱数 サブ ルー チン 

UF0, ビー ム 砲 、 爆発 マー ク 
初期 画面 

大 型 UFO を 定位 置 へ も っ て くる . 
音 出し の サブ ルー チン 

メイ シーク ロッ ク の イン クリ メン ト 
[スペ ー ス | キー を 上 離し た か の 判定 
ビー ム 砲 の 移動 

ALIEN 1 発生 


な ど を 描く サブ ルー チン 





/ 移動 
ALIENII 発生 
/ 移動 
/ / (降下 ) 
カ / ( 諾 へ ) 
/ / ( 右 へ ) 
ALIENII 発生 
/ 降下 
ビー ム 砲 爆発 
ALIEN 衝 撃 波 
ビー ム 発 射 
一 が ト 外 


ALIEN 得 点 サ プル ー チ ン 1) 
溝 の 中 の ALIEN を 1 つ ず ら す . 
右 下 の ビー ム 砲 数 表示 
ALIEN 得 点 サ プル ー チ ン (2) 





UFO 得 点 サ プ ブルー チン 
UFO 発 生 

UFO 降 下 

UFO 爆 発音 

UFO 得 点 表 示 と 消去 
ALIEN 発 生 率 を 決め る . 
初期 設定 
メイ ン ・ ル ー チ ン 

大 型 UFO 諾 へ 移動 








9 データ ・ エ リア 





D6FA 一 D718 
D73A 一 D760 
D84EーD85C 
D920 一 D93F 


大 型 UFO の デー タ 

ピー ム 砲 堪 発 マ ー ク の デー タ 
音 出し の デー タ 

ALIEN { 移動 デー タ 





行 番号 
140 一 150 
160 一 170 
180, 190 
-200 

210 一 220 
230 一 330 
340 一 400 
410 一 530 
9000 一 9090 





表 4 BASIC プ ログ ラム 
| な | 

初期 設定 

カラ ー か 提 白 か の 選択 

初期 の 画面 を 描く 

マシ ン 語 ルー チン へ 

ハイ ・ ス コア の 確認 と 表示 

GAME OVER 処理 

GIVE UP 処理 


層 





チェ ッ ク ・ サ ム 





初期 画面 | 





ー ム が あっ て プロ グラ ム し 始め て いる と , 次 に 見 に 行っ た 
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表 2 ワー ク ・ エ リア 











アド レス | 内 容 | 初期 値 
E9FE、E9FF | 乱数 値 
E9FD [スペ ー ス | キー を 戻し た か 00 
E9FB、E9FC| ビー ム 砲 アド レス FE59H 
E9FA メイ ン ・ ク ロッ ク 
E9F9 3 進 ク ロッ ク 00 
E9F8 ALIEN 1 発生 00 
E9F7 ALIEN 数 32H 
E9F6 ALIEN1 方 向 
E9F4, E9F5 リア ドッ ンズ 
E9F2, E9F3 / ポイ ンタ 
E9AC ALIENII 出 現 か 00 
E9AD / 。 アド レス (XX%) 
E9AE / 2) 
E9AF / 方 向 
E9B0 / ー 垂直 or 水平 
E9B1 一 EE9F1 | ALIENII で 上 と 同様 (2 一 14) 
E9AA、E9AB | SCORE 0000 
E9A9 ビー ム 砲 数 04 
E9A8 局面 数 01 
E98A ALIENII 出 現 か 00 
E98B, E98C の アドル レス 
E98D-E9A7 | ALIENII で 上 と 同様 (2 一 10) 
E988、E989 | HL 一 時 スタ ッ ク 
E987 ビー ム 出 て いる か 00 
E985, E986 | ピー ム ・ ア ドレ ス 
E984 BASIC リ ター ン か 00 
E983 ビー ム 発 射 数 カウ ンタ 00 
E982 UFO 発 生き せる か 00 
E981 UFO 得 点 00 
E97F、E980 | UFO ア ドレ ス 
E97E UFO 出 現 か 00 
E97D UFO 得 点 表 示 カ ウン タ 
E97C カ 7 し て いる か 00 
E97B ビー ム 砲 追加 し た か 01 
E97A IX の 値 を 入れ る 
E979 ALIEN 発 生 率 0FH 
E978 ALIEN= 0 時 の カウ ンタ FFH 











表 5 変更 点 














変更 する 項目 番 地 | 現在 の 数 値 
(1) 全体 の スピ ー ド EN3D 04 
(2) ビー ム 砲 移動 速度 D88D 03 
* (3) ALIENII 移動 速度 D9BA 07 
* (4) ALIENI 降 下 速度 DB66 07 
(5) ALIEN 衝 撃 波 の 距離 DCA4 0C 
(6) UFO 発 生 率 DD25 11 
* (7) UFO 降 下 速度 DFDA 07 
(8) GIVE UP の 記 面 数 E19 制 | 29 











と き に は も うな く な っ た り し て いて 困っ て し まい ます . 
いつ も オリ ジ ナ ル ・ ゲ ダー ム を 作ろ うと は 思っ て いる の で 
す が , な か な か 難し く て , 結 局 ゲ ー ム ・ セ ンタ ー の コピ ー と 


いう こと に な っ て し まっ て いま す 。 


この ゲー ム で 筆者 の 最高 点 は 21 面 で , 25,760 点 で し た -. 


@ 参 考 に し た も の 


1) 阿 区 坊 舞子 : * 舞 子 の プロ グラ ム 教 室 ?。 1/O, "80 年 7 月 号 


2) ゲ ー ム 「『 平 安 京 エ イリ アン 』 
3) ゲー ム 『KAMIKAZE』 








ALIEN FALL BASIC プ ログ ラム 








チェ ッ ク ・ サ ム 一 一 























1 GOT 3gIgg 

1 な (ーー BLIEN FRLL CHECE SLIH 
119 ? | BLIEN FRLL MER 1. | も 9 

128 「 1 198g 和 3 月 1 4 日 1 | STRRT=DGgig 

IS END =E1DF 

149 CLERE さ gg。 HDFF BYTE =64 

15q CONS ロ LEg。 25。 。 1 UTDTHBg。 25 COLR,g。 1:PRIHTCHR ま 12 

16 LUCRTE5。12*PRINT "アナ 5 」 TU in FEHLOE ?( yor 9 DEg ロ ー De3F = 1E3E 
17 ロ ロロ ま =INKEY も 3 TF ロニ "ag"THEN に 1=11 ビ 2 ニ Si : す =: ビ ロ : ア = ニア ELSE IF ロ ま ="m"THE De4 一 DerF = 161E 
N C1= ア ! ビ 2 ニア 5 ビ さ ニア ョ ビニ アビ ロニ アミ 5 ニア 5 ビア ニア ELSEGCIT 1 中 De8g - DeEF = 12E1 
189 GHSUB41giDEFUSE2=EHD7Ci =USE2C): BT 2 アロ DeCg - DeFF = 11D4 
19 GOSLE41g D7gg - DySF = 197E 
2 DEFUSR1=&HE12D: =USR1C ロ ) D74g - DrF = 1R4F 
21 SC=PEEKCEHE9RB)256+PEEKCEEHE9RR) DB - DBF = 162F 
22 1F SCE>HS THEN HS=SCILICERTEGB、 1 ロロ IFETHTLIEETNG" 拓 提 失 盾 寺 ! 5 日 DC ロー DrFF = 1D3hn 
239 IF PEEKC&HE984)=5 THEN3 ロ Dagg - DB3F = 1745 
249 CHLURC5ILHERTE1,9:PRKIHT" ニーーーーー- 一 ーーーーーーーーーー デ テー リ D8d - DBrF = 1Fr5 
25 LCRTE12。1g:PRINT" 玉 日 肖 還 E UER 半 半 DB8g - DSBF = 2367 
26d4EOCNiDE12SGIPRTUNIkG ーー D8Cg ロ - DSFF = 1FSR 
279 COLORC4iLOCATE19,13:FRIRTTKEV FUNETIOHN っ キー)! D9g 一 D33F = 16RG 
28g COLORCkLOCRTE22。 15:PRINT"4 < ニーー> 5" D94 ロ ー D97F = 1C4D 
z9g LnCRTE1g。 17EPRINT"B E 用 ・・……・ 8 は FCE Egg リ D98g 一 D9BF = 1512 
s9 COLURC5ILOCRTEY。 29iPRINT"5ggg Point ラ Tu ト ヒーctO 1 が イフ Tozsl D3C9 一 DFF = 1716 
s19 COLORE7LOCRTE5。2 さ EPRINTTH 1 t RETUEN ka=g to 8 も tar キ 5 DR - DRSF = 1H8g 
329 IF INPUT ま C15 く SEHR ま て 13)THEN32 ロ ELSE ロロ Tn13g DR4g 一 DRrF = 1396 
こら END Da8 - DRBF = 225E 
49 LINEC1, さ )-C5 ロ 。95。" "」BF に 
35g COLDRC3ELOCRTE12。7: PRINT" ニーーーーーーーーーーーーーーーーー 一 "5:BEEP お に 
36 LOCRTE14。8iPRINT"K TUE UP  *PEEEEEP て PBP 
3Z9 LOCRTE14, 9:PRINT"ーーーーーーーーーーーーーーーーーー"  : BEEP BB お 
38g COLURE6ELOCRTE16, 13:PRINT"RLTEN n すり Srga" に 
399 FDR 1=1T02ggiNEXTI BOT 2 = 242 り 
49g END DC4 ロ - DCTF = 133 に 
419 COLORC4,9, 15PRINTCHR*(12) DC8g - DCBF = 1521 
429 LINEC。 さ )- て 9。 21)。『 還 "。C1:LINEC ニ 1 、 さ うー て 1 21)。『 還 "に 1 DCEB 一 DCFF = 1BS4 
439 LINECG。88-(1。95)。PSET,C1 EELINEC1 ロ 2.BB)-C19 さ 。95) 。PSET, ビ 1 日 SD は 2 
449 LINEC ロ 。2)-(24。2)。" 厨 "1ELTNEC27。 2)1 2)。『 厨 "。 じ 1 EiG 生 ER 折 1B 
459 FOR TI=44TO58STEP14:LINECT 29- て エキ 1。23)。 PSET, 6,BF iNET 5 
46g LINEC46, 28)-5。 さ 9) , PRESET。C さ 。BF or RE ぐい RG 
47@ IF C4=4 THEN DEFUSRg=&HD6gE =USRGYG) 8 だ 
48 COLORC6ELOCRTE54。 さ :PRINT" ーーーーーーーーーーーーーーーー コ " EE に = 
499 LOCRTE54。4:PRINT"| LITEN FRLL I" ビ 

Sad LUCRTE54, 5:PRINT" ピーーーーーーーーーーーーーーーー" DEE PRS 
519 COLDRC7sLnCRTE55,8iPRINT"S CEE lslslsu DF99 - DFSF = DS9 
529 LUCATE55, 19: PRINTUSTNG"Hi-S C RE 村 層 持 "は HS DF4@ - DFF = 1RE2 
539 LOCRTE5 ミ 。 24: PRINT" 4 の 3:LOCHTE25。5:PREINT "91" ERETUEH DFSg - PFBF = 1CGE 
9999 CLERR399, &HDSFF PR KR EE 
919 MIDTH49. 25: CONSOLEg 25。 9。 iPRINTCHR ま (12) E9SF = 1RZB 
9929 PRINT"RLIEN FRLL CHECK SUN" RG ロラ 
983@ PRINT"START=D6ag"i S=54784! PRINT"END =E1DF"iE=57823!:T=64:PRINT EE 0 
9949 =giR=S+TI IF R>=E THEN R=E+1 E1G - E13F = 1CSR 
9959 FOR =S TO R-1:V=PEEKCI) に まち 2505 
9969 %=X+VsNEXT 5 = 2203 
997g S$=HEX ま て ③) 8=S+TiE*=HEX を て Rー1.): X ま =HEX ま CR) E189 - E1BF = 1RCS 
9989 PRINT に eS =sE ま 5『 ニ は て E1Cg 只 E1DF BB 
9999 IF S>=E THEN END ELSE GOTO 3949 








注 ) チェ ッ ク ・ サ ム は 1I/O "80 年 8 月 号 、 9 月 号 の チェ ッ ク ・ サ ム プロ グラ ム を 利用 し て くだ さい 


ALIEN FALL マシ ン 語 プロ グラ ム ーー ニーーーーーーーーーーーーーーーー デ ーー 

















4 し エビ FH FLL PUihd ビ にし ェ エニ P73g : D1 C3 19 D7 GO ロロ ロ g ロロ BB 4 RB さ 1 68 28 5 

D74g : 5 61 41 gD 58 52 96 35 4 41 53 DG 5 52 72 1 
D75 ロ : 5 gg 99 97 EB 69 D7 2 Gg 84 Cd 8 gd B BI 
TaRT=D6gg D76g : gg 6 6 CS 1B D7 gg ロロ gg 11 3 邊 DY 2E CD 61 Dr 
END =E1DF D7zZg : D5 11 82 FF 19 b1 CD 1 7 D5 11 82 FF 19 D1 3 

D78g : 61 D7 gg ロロ gg 11 4C D7 CS 6 D7 BB ロ G PB 
689 : 11 78 9 77 19 1 FC C9 ロロ gd ロ G 3E 8 32 5 ミ F さ ||D79g : 2B CD Eg De 11 2 FF 19 CD Ed De 11 82 FF 19 CS 
619 : 3 さ 2 CB F さ SE BS 32 ED F4 32 35 F5 3E D8 32 PD F5 || DRQ : Ed D6 ga ロ ロロ 6 7 さ 5 FF 23 23 23 19F9 23 23 
629 : 32 B5 F5 3 さ E F8 さ 2 B1 F5 21 G5 F8 さ E 78 6 ロ 4 CD ||DZBg : 23 23 ロ 6 7 36 FF 23 23 23 19 F9 C9 gg GO ロ 9 
639 : dg D6 3E D8 B6 5 CD ロロ De さ E 58 6 5 CD gg D6 ||DzCg : 21 5D F5 CD 5 D? 21 D5 F5 CD 5 P7 21 4DFG CD 
649 : さ E BS 32 9 さ FE ビ 9 HO ロロ G gg 中 B 16 5 1E || bzDg : 5 D7 21 C5 Fe CD RS Dy 21 SD F7 CD 5 P7 21 EB 
659 : OBg 1B 7R B さ 2 FB 9 ロ g g ロ g 1 1 2? CD 79 De | DE : F5 g6 g6 35 11 23 1 FE 21 F8 F4 36 dB 23 36 12 
669 : 1 ES 93 CD 9 D6 1 64 Gg CD 9 D6 GE 9R CD 79 ||DZFg : 23 36 11 2 さ 3 さ 6 11 23 36 21 2 さ 36 4 21 59 FE 22 
679 : De 7D C6 さ 12 C9 Bg ロ Ba C5 37Z 3F 3E 3 ED 42 || DBam : FB E9 CD EB De 2Z1 ?9 FE ge 3 CD EB D6 23 1 Fa 
689 : さ B 93 さじ 18 F9 C1 9 12 13 じ 9 gg ロロ D5 21 || DB1G : じ 9 ロロ B ロ ロロ ロ O ロ 21 BB F3 BE 2D ES 
)699 : gg 11 8 Gg GG' ロ B CB F さ ロ 1 19 EB 29 EE 5 2 ロ || pg2 ロ : CD 25 P7 11 78 gd 19 さ 5 gg E1 2B 16 5 CD dg DB 
6 : F5 11 9 F さ 19 D1 16 g ロ 19 9 ロロ ロロ | DS : 16 3 CD 4F D6 GD 2 EZ 9 G OM ロロ PH 
)6B9 : E5 DS 2 FE E9 54 5D 19 19 7D 84 E7 11 81 B 19 || D84g : 3E 2 D3 4 CD 4F D6 PF DS 4 ビ 9 ロ dB R1 CB 
6C9 : 22 FE E9 ?ZC D1 E1 C9 GG G ロ Gd 36 ヒロ 23 さ 6 55 23 || DB5 : FF さ B 9 ロ F ロ 2F 7 BE CF 6B 5F 5 7 gg E5 5E 23 
6D9 』 36 7 2 さ 36 7Z 2 さ 36 56 2 さ 36 BC C9 ロ g IDB6 ロ : 66 6D CD GR DB8 E1 C9 gg ロロ gd SE 2 ロ ED さ 4 CD YE 
)6E9 : G6 96 さ 6 GO 23 1 FB 9 dg gO gg 35 4E 2 さ 3 FE || DBZ ロ : DS PF DS 4 CD 7B DB 25 2 ロ FC9 E5 2D 2 ロ FD E1 
)6FO : 23 36 46 23 さ さ 6 gE 9 gg ロ g G 11 さ 1 さ 2 32 3 BC || DBB ロ : C9 ロ G GO gg 21 Fa E9 3 さ H F9 E9 3C FE ロミ 29 1 
9d : 9R 9 CB 36 2 さ 23 13 11 Bq CB E4 E6 BE FF FE BF || DB : F 3 さ 2 F9 E9 さ H FD E9 FE ロ 1 Cg DB 9 FE FF Cg PF 
719 : FF EB EE 4E BC ロロ ロロ ロロ 6G GE 1 由 了 ア 2 さ 13 1 | DBR : 32 FD E9 C9 ロロ ロロ BB B ロ さ F9 E9 FE 1 C 2RFB 
729 : FR C9 Bd gg a 11 FR DE CD 19 Dz D5 11 7? FF 19 || DB : E9 DB q FE EF CR CE PB FE BF Cg ロ G MD FE 





&O 











ALIEN FALL マシ ン 語 プロ グラ ム 

D8C 1 1 CB 36 ウ 2 く 22 FE EB CS EB DE ロロ HI HDFE DES : FE BI CD 93 DE gE 本 16 中 CD 4 ES 1 ロ 8F9 本 F 3Z 
D8Dg i 41 CG 2B 22 FB E9 CD EE De 23 36 CB ロ BE 昭 DEE ロ : アビ E9 じ 9 ロロ ロロ II MEB 6 4 E5 
DBE ロ : ロロ 3H F8 E9 FE ロロ CZ2 4 D9 CD SE EB PB CE 3 IDE7 ロ : 11 BB FF 19 E FE 78 28 中 E1 36 23 35 本 9 
D8Fg : F7 E3 さ D 3 さ 2 F7 E9 CD BG DE6 EE 品 1 2 ロロ ロア さ E 中 1 21 || DEBH : ロロ GE1 36 7 2 さ 36 87Z 2E 19 1 E2 C9 ロ 
D99g :』 さ ロ D9 18 ロ 4 ロ F 21 2 DG 3 さ 2 F6 E9 22 F2 E9 21 四 | DE9G : BB ロロ F5 C6 3 7 23 2 さ F1 3D 47 CD EB DE 2 さ 
D91G 』 F4 22 F4 E9 さ 5 78 2 ささ 8G7 さ E 日 1 さ 2 F8 E9 9 gl|DER : 1 FR じ 9 ロロ ロロ ロロ ロロ ロロ さ 6 ロロ F 32 8B7 EB 16 9 
D92 『 7 B 昌 1 回 1 中 1 昌 還 で 9 加 加 還 RI 回 加 DEBR : CS 4 DB ロロ BBH CD SB DE C5 CD 1 DE FC1 CS 
D33 gi 7 9 FF FF FF FF FF FF 7 GE HH EE MI HE | DECB 』 BE BOB CD RS DE C5 CD DE DD C1 9 Ba EE 
D349 ! 3H FR E9 EE 7 CE 2 Fd EB 3 さ E ロ 2 さ 3 BI 2E E5 || DED : さ E ロ 19 3 ロ 2 さ さ 6 ロ 1 11 88 FF 19 3E ロ F CB 
D959 i 2H F2 E9 5E 23 56 23 22 F2 E9 E1 19 22 F 和 4 E9 3 || DEE :』 ロロ 23 3 1F 2 さ 3 さ 6 ロ F 23 35 1F 23 さ 6 gF 11 78 
D96B : 7B 2 さ さ 6 B7 さ H F2 E3 FE 2 2 ロロ 21 1E g 18 5 | DEF ロ : ロロ 19 3 ロ 1 2B さ 5 11 2B 3 さ 5 ロロ 1 2B さ 5 11 CB PH 
D3z i FE 3 さ H Cg 21 16 g1 F さ 2 FS E9 DD 21 PC E3 ロ 5 1 | DF :.d さ E 59 19 3E 11 23 さ 6 1 11 8 FF 19 35 3 CB 
D38g 』 DD 7E FE 9 2 13 11 王 ロ H DD 19 1 ロ 9 F2 2 F4 || DF1 ロ : ロ B ロロ 35 51 19 3 11 2 さ さ 35 1 11 88 FF 13 ミ 

D99g : E9 3 9 23 36 ロロ C9 ロロ BR DD) で 4 SDD 7 1 || DF2 ロ : ロ F C9 ロロ ロ H 3E BE 19 SE gg 2 さ 3 3E 1 11 8B8FF 
D9R i DD 3 2 4 DD 35 EE 1 D[, 35 ロロ II CG BE HIIDFS ロ : 19 3E ロ F C9 ロロ ロロ さ 6 57 19 36 11 23 3 本 1 11 
D3B ! 9 ロ BB B 3 FR EB EE ZZ EDD 21 BE EBIDF4B : 8B8 FF 19 36 gD CB ga 昭 2 放 E9 11 78 3 
DC 』 gE 9E DD 7E FE 中 1 28 EC 11 呈 DD 19 gD 2 DF5S 』 81 E9 FE 32 2 5 CD bg DE 18 1E FE E4 2 5 CD 
D3D ロ : F1 C9 gg DD 5E 1 DD 7E ロ 2 CD BD DE 35 DFGB : 1 DF 18 15 FE 35 2 本 CD 13 DF 18 EC FE CB 2 
D3E 1 2 さ 36 ロロ 2B DD 7E 4 FE ロ 2 E DD E FE 1 IDF7Z ロ : 5 CD 25 DF 18 CD 37Z DF CD E2 DE さ E 4 32 7D 
D39F : CR SE DR CS FE DR ロロ 11 8 BDD 3 2 DD IDF8H : E3 さ E ロ 1 32 rrC E9 SH 81 E9 EF 26 ga 29 4 4D CD 
DRGB 』 7E 2 FE ロ R 2 F 3 さ 6 で は 2 さ 3 B7 DD さ 6 g RC さ | DF9 : 5 E ロ C3 21 DE ロロ 3 1 E3 FE F 自 2 
DR19 : C9 D9 ロ BB 19 E FE 8 2 1C 11 8 FF 19 DD ||DFRG 』 4 さ E さ 2 18 2 C6 さ 2 32 81 E9 3 82 E9 FE 中 1 CB 
DR2 ロ 『 3 2 DD YE BZ FE EC2 6 DR 11 8 2 19 CD 2D ||DFBB : CD BB DG E6 ロア CHF 3 さ 2 3 EB さ 2 8B2 E9 SE 1 32 
DR3 ロ 』 DE C3 C9 D9 BE FE E 2 9 CD BZ DE 3 CB ヨ BIIDFCB : 7E E9 21 6 ロ FG 22 ア F E9 ミ CR DE ロ RE BBG 
DR4 ロ 』 D3 BB OB BE SS 7ZE FE E ロ 2B F1 3E Br 2E 3E 78B CE さ |DFDB : さ R 7E E9 FE 1 Cg 3 日 FE9 EE 7Z CE 2R 7F EB E5 
DR5 : Cd D9 ロロ ロロ 回  I ロ 2B DD ||DFE ロ : CD ED6 E1 11 8 19 で C FE FE 28 F 22 7TF E9 
DR : 35 91 DD 7E 1 FE 15 2 ロ E CD BH DE EE 本 CR PE ||PFFB : CD CR D6 21 59 D8 CS 5D D8 BB PF 32 古 E9 
DR7g 5 DR CS E2 DR ロ B FE 12 2 CD BE DE EE EGG : 22 88 E9 3E 69 2 さ 36 96 23 36 66 23 36 69 23 35 
DRBg Ii CH DE DR CS EZ2 DR BB BE BI FE 時 2 EE CD ER EE ||E ロ 1 ! 9E gE 16 23 TE FE 4E 2 ロ ロ R DD 21 7 E9 C3 E5 DE 
DR9g ! E6 3 ER DE DR CS EZ DR BE BI FE L 2 gE CD IE2 ロ : gg gg 36 24 E5 21 5 D8 CD 5D DS 2R SS E9 2B 
DRR 5 BB DE E6G さく CR DE DR CS EZ DR BE BB FE 9 2 ES : 22 BB E9 7E FE GE 2 4 E1 CS 19 Eg さ 6 2 E1 19 
DRBG 』 gE CD BB DG EE CR DE DR CS E2 DR BE BE FE | Ed49 : D2 2 FB E9 じ さ 19 EG ロ PH ロロ ロロ G B IM 
DRCG : g6 2 gE CD BG DE EG 1 CR DE DR に 3 EZ DR Ed5G : C5 F 32 7E E9 g6 F 16 8 CD 4 D8 16 5 CD 4F 
DRD : B FE 3 2 BD CD 2D DE C3 CB D9 ロロ BE DD 3E | E6 ロ : D6 1 ロ F4 C1 C9 ロ ロロ ロ SR 7C E9 FE 1 Cg 3 7D 
DREB : 4 1 36 7B 2 さ さ 5 B7 ヒ 3 ヒ 9 D9 HH ロロ BB IIEZg : E3 3D 32 7D E9 FE Cg 3 さ 2 7C E3 2 月 ア F E9 CD Eg 
DRF : BB CM ロ G BB 23 DD 3 1 DD 7E 1 FE 1F CR Emam 』 DE 1 1 72 ロ 19 C さ E DE ロ ER BI ロ I HH ロ H 3 8 
DEBG : 69 DR FE 22Z CR YE DR FE 25 CR BD DR FE 28 CR 9F || Egg : E9 FE さ 29 4 3E 7 18 BE FE 6 2g 4 3E S 18 
DB19 : DR FE 2B CR B1 DR FE 2E CR CS DR FE さ 1 CR D5 DR | Egag : gg FE gB 2 ロ 5 3F ロ 1 32 ?9 E9 < ?9 E9 47 CS EG 
DB29 : CS EZ DG 99 99 9 99 99 9 90 99 9 99 DD 36 99|jEoBo : De gg 99 99 9 99 99 99 AF 32 FD E9 32 F9 E9 32 
DB3G : 9 9E RFD 21 BR E9 FD YE gg FE g ロ 28 BE 11 3 | EarFa : nn E9 <2 RB E9 32 87Z E9 32 84 E9 32 81 E3 32 7 
DB4 : gg FD 19 1 ロロ F2 C9 ロロ BE FD 36 1 FD 5 1 ED : E9 さ E ロ 4 32 9 E9 さ E ロ 1 32 8 E9 さ E ロロ F さ 2 79 E9 
DBGG ! FD 74 2 36 7B 23 36 87 C9 gg GG ロ P GG PO 9 GIIEgEg : 3E g1 32 7B E9 3EFF 32 78 E9 18 99 gg gg gg 9g 
DBE6 』 GG SR FR E9 E6 ロア CR GE BR DD 21 BR E9 DD 7E ||EgFg ロロ ロロ ロロ ロロ ロロ ロ G ロ E 21 EC E9 さ G 23 23 23 2 る 
DB79 : FE 1 28 GE 11 3 DD 19 1 F2 C9 gg 本 E19 : 2 さ 1 F7 6 ロ R 21 BR E9 36 ロ 23 23 23 1 FB SE 
DES9 : DD GE ロ 1 DD 6E ロ 2Z さ 6 ロ 23 3 ロ 2B 11 7 19 E11 ロ : 32 32 F7 E9 ロロ F さ 2 F8 E9 RF 32 BS E9 32 82 E9 32 
DE39 : BE 2 7E FE 4E 2B BC FE F6 2B B FE 4E 2B 4 FE ||E12 ロ : ?E E9 じ 9 9G Pi B HP ロ G B ロ PB CD B8 E 
DER : 9E 2 9 CD E6 DB 3 5 DB ME FE E ロ 2 9 E13 ロ : CD CD7 CD 1 D8 CD 84 DE CD BE DB 1E 4 CD 4F 
DBEg : CD C4 DE CS 7 DB Hg BBD 28 4 23 C3 92 BE IE14 ロ : DE 3 F7 E3 FE ga 28 ロ B CD 328 DF CD E1 D8 18 WE 
DBEC ロ : 2B 7C FE FE 2 ロ 9 CD 36 DC CS 5 DE ロロ DD ||E15 ロ : ロロ ロロ SR 78 E9 さ D さ 2 78 EB FE 9 28 1E CD B6 
DEDG : 7 1 DD 4 BZ 36 7 23 36 87 C3 75 DB BG gg IE16g : D9 CD 62 DB CD Dg DF CD FD DC CD 3 ミ DD CD 8 E 
DEE : gG G ロロ HB 9 CG DD さ E  G 2R FE E9 E 5 ES ||E17Z ロ : マロ 4 E9 FE ロロ CC3 さ 6 E1 ロロ ロロ H SE 32 78 
DBFg : CD BS D7 21 52 D8 CD 5D DS E1 E5 CD 69 D7 21 58 IE189 : EB CD BC E1 さ RG E9 さ C さ 2 BE9 F5 EF 2E 11 
DCag is D8 CD 5D DS 21 59 D8 CD 5 D8 E1 E5 CD 9 D ア 15 |E19 ロ : ?1 F5 CD 66 DE 21 1 F5 さ 6 RF1 FE 29 2 9 GE 
DC19 :i gC CD 4F D6 E1 gD C2 EF DE 2 8B5 E9 36 ロ RF 32 IE1RG : 95 さ 2 84 E9 C9 ロロ CD gF E1 16 本 F CD 4F D6 
DC29 『 87 E9 21 51 FD CD 7 DC 21 84 FD CD 7R DC CD 88 ||E1B : C さ 3 くさ E1 ロロ ロロ PH ロロ ロロ ロロ ロ B 21 BB F3 EE 
DC3 ロ i DC 21 77 FE 3 9 E9 3D さ 2 ロ 9 E9 FE 9 2 BE 36 IE1C ロ : 12 CD 1F DB 21 1 F ミ CD DS E1 21 ?9 FS CS DS E1 
DC4G i SB 3E ロ 1 さ 2 84 E9 ビ 1 に 9 ロロ ロロ ロロ E5 21 59 FE 22 ||E1D : ロロ gg ロロ 6 F さ 6 ロロ 2 さ 1 FE C9 ロロ BB 
DCSg 』 FB E9 CD EB D6 E1 F5 C6 さ 7 2 さ 2 さ F1 3D FE gg 

DC6GB i 2 2 C1 C9 7 CD EE D6 23 1 F ロ 上 1 ビ 9 BB 眉 

DC ア 7 : ロロ ロロ ロロ ロロ ロロ ロ BE 2 36FF 11 78 

DCB : ロ 19 1 FB C9 ロロ ロロ 6 4E 21 41 FE 3E ロロ 23 

DC9 ロ 』 1 FB C9 ロロ BB CS DD 36 22 8 E9 36 69 

DCRO : 23 36 96 6 gC 2 さ 7D FE 74 2 5 2B 18 BE 7E FE 

DCBG 』 4E 29 7Z C1 CS E5 DB ロ ロロ 35 24 E5 21 5R D8 

DCCG 』 CD SD D8 2 88 E9 2B 7D FE 41 2 3 23 18 F 22 

DCDg : 8 E9 7E FE GE 2 ロ 7 E1 C1 C さ E5 DE g 36 24 

DCEG 』 E1 19g C2 16 GS5 CD 4F D6 6 さ 4 CD 8 DE 2 FE E9 

DCFG 5』 C1 C さ EE DG ロロ ロロ ロロ ロロ ロロ ロロ ロロ SH FD E ラ 

DDgg 』 FE ロ G CH さ ロ 7Z E9 FE ロロ C ロ DB 9 FE BF CR SE ロ 1 

DD19 : 32 FD E9 32 87 E9 2 FB E9 23 22 85 E9 SR 8 E9 

DD29 : 3C 32 83 E9 FE 11 Cg 3 さ E 1 さ 2 2 E9 ビ 9 ロロ 

DDS : 9 9 ロロ さ ロ 7 E9 FE 1 C ロ さ R FR E9 EE g1 Cg 2 

DD4 ロ : 85 E9 E FE E ロ 2 2 さ ロ 11 8 FF 19 7E FE 85 

DDS ロ : 28 8 FE 11 28 4 FE FF 2 8B RF 32 2GZ E9 9 

DD6g 』 g gg FE 7Z8 28 BS FE 8 29 ロ E 2E PF 32 87 E9 C さ 

DD7g 』 RC DD ロロ 9 FE Cg 28 4 FE gC 2 ロ 3 CS 5 DD 

DD8g : FE 65 28 C FE 7 ロ 28 BB FE Pr 28 dd FE 5E 2 ロロ 

DD9g : RF さ 2 8Z E9 CD 49 DF ロロ ロロ FE ロロ 2 ロ 6 22 85 

DDRB : E9 さ 6 E ロ C9 HF さ 2 87 E9 C9 ロロ ロロ さ 6 ロ 23 35 

DDBg : gg 2B 16 9 CD 4 DS DD 21 8R E9 5 DD rE ga 

DDC9 : FE 91 28 gC 11 3 ロ DD 19 1 F2 18 1B GG ロロ ロロ 

DDDg : DD ZE ロ 1 BD 2 EE DD 7E 2 BC 2 ES DD さ 6 ロロ ga 

DDE9 』 1 28 9 18 さ C 9 gd ロ EB DD 21 RC E9 6 BE DD 

DDF9 : 7ZE g9 FE 91 28 11 D5 11 5 gq DD 19 b1 1 ロ Fg CD 

DE : 6GC DE 18 1 ロ ロロ ID5 DD 5E g1 DD rrE 2 CD BD 

DE1 : DG D1 ZD BE 2 E ロ で C BBH 2 DC DD さ 5 ロロ 1 14 

DE2 ロ : ロロ 2ZR HHR EB 9 22 ロ R E3 11 EE Fr FLD 5 DE 2 

DES : Ed さ H 7B EB9 FE CB マビ FE 13 2 ロ ロア 7 7D FE BB 

DE4 ロ 』 DB 18 ロア FE 13 DB さ 邊 揚 9 EB さ さ 2 折 B E9 31 rp 
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スペ ー ス ・ イ ン ベ ペー ダー の 爆発 的 流行 以来 , TV ゲー ム 
は 隆盛 を 極め . マイ コン 用 の も の も すでに 数 多く 市 販 さ れ 
ある い は 雑誌 な ど で プ ログ ラム が 発表 され て いま す . 現在 
の と ころ , その ほとん ど は アタ マ の 体操 と いう より ユビ の 
運動 に 近い 作品 で す が , た ま に は し っ か り 頭 を 使う 遊び も 
良い の で は ? と いう わけ で , ここ に 昔 か ら 知 られ て いる 
『 カ ラー』」 と いう ゲー ム を 紹介 し ます . 
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I 久 纏 と 由来 


TK 大 学 で は 毎年 X 月 に な る と ぶ X 月 和 祭 と いう 行事 が 催さ 
れ , 各 学 部 学科 に よっ て 様々 な 企画 が 行なわ れる らし い の 
で す が , S 学 部 の I S 学科 で は その 日 だ け ミ ニコ ン 室 が ゲ 
ー ム ・ セ ンタ ー に 変容 , 各種 コン ピュ ー タ ・ ゲ ダー ム を 発表 
し て 例年 好調 な 客 入 り (? ) を 記録 する そう で す . 

さて , 昭和 55 年 度 X 月 祭 の 前 日 。 IT S 学 科 で は すでに 多 
く の ユ ニー ク な ゲー ム が 製作 され 準備 完了 し て いた の で す 
が , プロ グラ ム を 作る の が 大 好き な TI 氏 は 夜 に な っ て 『 僕 
も ゲー ム を 作ろ う 』 と 言い だ し , その 晩 徹夜 し て ある ゲー 
ム を 作り まし た . 

月 祭 が 終わ っ て か ら , の この こ 現 われ た K( 本 婦 担 当 ) 
は 勉強 も ね そっ ちの け で し ば らく この ゲー ム に 熱中 し た 後 , 
は 記事 に な る の で は 』 と 考え , や は り プ ログ ラム を 
作る の が 大 好き な A 氏 に 相談 に 行っ た の で す . 

PC-8001 寺 高 解像度 カラ ー モ ニタ を 所 有する 人 金持ち の A 
氏 (。 『 よ の LT と 一 言い つて, "C7 と いう 言語 で 書か 
れ で て いた だ オリジナ ル ・ プ ログ ラム を BASIC キ マシ ン 語 に 変 
換 し ., カ セ モット に 入れ て くれ まし た (結局 K は 何 も し て いな 
ぃ い ). そ の ゲー ム と いう の が , 実は これ か ら 紹 介する 『 カ ラ 
3 上 

『 カ ラー』 は 英語 で は KALAH と 綴り ます が , 本 来 は アフ 
リカ の 原 住民 が 行なっ て いた 石 取 り ゲ ダー ム の こと で す . 比較 
的 単純 な ルー ル の 割 に は 変化 に 語 ん で いる の で , 電子 計算 
機 が 発明 され て か ら は , 人 工 知能 ゲー ム (計算 機 と 人 間 が 
対戦 する ゲー ム ) の 例題 の 1 つと し て 良く 知ら れ て きま し 
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今回 の プロ グラ ム も , 人 間 と 計算 機 と が 対戦 する と いう 
型式 に な っ て いま す ( 人 間 同 士 の 対戦 を シミ ュ レ ー ト する 
機能 は あり ませ ん ). 百 円 TV ゲー ム の よう な 実 時 間 性 は あ 
り ま せん が , オセ モロ や チェ ス と 同様 。 じっくり 考え て か ら 
手 を 選ぶ と いう 点 で , 知 的 を な マイ コン ・ ホ ビー スト に ふさ 
わし い ゲ ー ム と 言う こと が で きる で し ょ う . 

な お , この ゲー ム 自 体 に つい て は 1/O 別 冊 ③『BASIC ゲ 
ー ム 徹底 研究 』 で も すでに 紹介 され て いる の で , お 持ち の 
方 は を ちら も あわ せ て 読ま れる の が 良い と 思い ます . 


% ルー ル と 遺 び 


ゲー ム は 図 1 の と お り , 14 個 の 箱 と その 中 に ある 合計 72 
個 の 石 か ら な り ま す . 箱 に は 2 種類 あり , 大 きい 箱 は カラ 
ー (KALAH), 小さ い 箱 は ポッ ト (POT) と 呼ば れ ま す . 
1 中 , 上 に 並ん で いる 6 個 の ポッ ト が 計算 機 の ポッ ト で , 
下 の 6 個 が 人 間 の ポッ ト で す . 

計算 機 の ポッ ト に は AA 一 F の 記号 が 割り 当て られ て お り , 
人 間 の ポッ ト に は 1 一 6 の 数 字 が 割り 当て られ て いま す . 
ポッ ト の 左右 に ある 大 きい 箱 が カラ ー で , 左 が 計算 機 の カ 
右 が 人 間 の カラ ー で す . 

これ ら の 箱 に 石 を 入れ る の で す が , 箱 の 中 に ある 数 字 で 
その 時 点 で の 箱 の 中 の 石 の 数 を 表わす こと に し ます . ゲー 
ム の 開始 時 に は 図 の よう に 各 ポ ッ ト に 6 個 ず つの 石 が 入っ 
て お り , カラ ー に は 石 が 入っ て いま せん . 
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2 ゲー ム の 進め 方 
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この 状態 か ら 人 間 と 計算 機 と いう 2 人 の プレ イヤ ー が 交 
互 に 手 を 打ち , 自分 の カラ ー に で きる だ けた くさ ん の 石 を 
入れ る よう に 努力 し ます 。 た だ し , パス は で きま せん 。 そ 
うし て 手 を 進め て いき , より 多く の 石 を 自分 の カラ ー に 入 
れ た プレ イヤ ー が 勝ち ます . 

さて , 各 プ レイ ヤー は 自分 の 手 番 の と き , 次 の こと を 行 
な いま す . まず 自分 の ポッ ト の うち 空 で な い 1 つ を 選び, 
その 中 に 入っ て いる 石 を 全部 手 に 取り ます (当然 その ポッ 
ト は 空 に 3②). 

次 に 。 今 , 選ん だ ポッ ト の すぐ 右 に ある 箱 か ら 始めて , 
諾 回 り ( 反 時 計 回 り ) に 順に 1 箱 に つき 1 個 ず つ 手 に あっ 
だ た 石 を 入れ て いき ます . その 際 , 相手 の カラ ー だ け は 石 を 
入れ ず に 飛ば し ます . 

だ た と え そば, 図 2(a) の 状態 で て 人間 の 手 番 の と き , 彼 が 3 

の ポッ ト を 選ん だ と する と , 石 を ば ら ま いた 後 は 図 2(b) 
の 状態 に な り ま す . ここ で , be 1 個 の 石 を 入れ た 箱 ( 図 
2 で は 相手 の ポッ ト C が 何で ある か に より , 次 の 3 つの 
ルー ル の うち , いずれ か 1 NE 


氏 ル ー ル 1 自分 の カラ ー の 場合 , 再び 同じ し プレイヤー の 
手 番 と な り ま す . 
人 @ ル ー ル 2 自分 の ポッ ト で 空 の も の の 場合 、 そ の ポッ ト 


の ちょ うど 真向かい に ある 相手 の ポッ ト が 空 で な けれ ば , 
その 2 つの ポッ ト に ある 石 を 全部 自分 の カラ ー に 移し , 相 
手 に 手 番 を 渡し ます . 

だ た と えば , 図 3(a) の 状態 で 計算 機 の 手 番 の と き , 彼 が 
B の ポッ ト を 選べ ば , 最後 の 石 を 入れ る の は E に な り ま す 
が 。 EE は も と も と 空 で , か つ 真 向かい に ある 人 間 の ポッ ト 
2 が 空 で は な い の で , 石 を ば ら ま いた 後 , 図 3(b) の よう 
に 2 つの ポッ ト の 石 を 移動 し , 結局 。 図 3(c) の 状態 に な 
っ て 人 間 の 手 番 に な る の で す . 


旬 ル ー ル 3 その他 の 場合 , 何 も せ ず 単 に 手 番 が 移り ます . 


ゲー ム の 進行 中 に , 一 方 の プレ イヤ ー の ポッ ト が 全部 空 
に な る こと が し ば し ば あり ます が , その 場合 は ポッ ト に 残 
っ て いる 石 を すべ て 相手 の プレ イヤ ー の カラ ー に 移し 
ー ム を 終了 し ます . また , 石 の 数 は 合計 72 個 あり , 途中 で 
増え た り 減っ た り し な い の で , どちら か の カラ ー の 石 の 数 
が 37 個 以上 に な れ ば , そちら の 勝ち と いう こと で , や は り 
の ーー 人 A 沈 湖 KJ し も. ま 3。 

以上 で ルー ル の 説明 は 終わ り で す が , 実際 に カラ ー を 行 
な う 場 合 は 次 の 各 点 に 注意 する と よい で し ょ う . 

人 序 盤 戦 で は ポッ ト の 中 に 石 が 多い の で , ルー ル 2 を うま 
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図 3 ルー ル 2 の 説明 


く 使 えば 相手 の ポッ ト の 石 を ご っ そり 取る こと が で きま 
す . 逆 に 相手 に 石 を 取ら れる こと に も な りや すい の で 注 
意 が 必要 . この 段階 で 相手 に た くさ ん の 石 を 取ら れる と 
勝つ 可能 性 は 非常 に 少な く な り ま す . 

@ 石 を ば ら ま く 操 作 は 13 回 で 1 回 り し ます . そこ で , 自分 
の ポッ ト に 石 が 13 個 た まっ た ら , その ポッ ト の 石 を ば ら 
まく よう に する と , 最後 の 石 を 入れ る 場所 が ちょ うど 元 


の ポッ ト に な り , 必ず ルー ル 2 が 適用 きれ て 相手 の ポッ 
ト の 石 を 取る こと が で きま す ( 図 4). 
@ 中 可 戦 以後 で は , で きる だ け 自 分 の 手 番 が 多く な る よう , 


最後 に カラ ー で 終わ る ば ら ま き 方 を 優先 し ます . た と を 
ば , 図 5(a) の 状態 で 人 間 の 手 番 の と き は , 4 回 連続 し 


5 連続 し て 手 が 進 め ら れる 例 
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て 手 を 進め る こと が で きま す . 
@⑨ 中 戦 か ら 終盤 戦 に か け て は , 相手 の ポッ ト に 石 を 回 き 

な いよ うに し 相手 の ポッ ト が すべ て 空 に な る の を 待つ の 

も 1 つの 手 で す . 特に 今回 の プロ グラ ム で は , 計算 機 は 

自分 の ポッ ト が 空 に な る こと を まっ た だ たく 気 に せ ず に 手 を 

打っ て くる の で , この の 戦略 は と り わ け 重 要 に な り ま 

3 お 

⑯ 一 ⑨ 以 上 の より 精密 な 戦略 は , 実 
て 身 に つけ る の が 一 番 で す . 
手順 の 説明 に 移り まし ょ う . 

計算 機 を ON に し , プロ グラ ム を ロー ド し て RUN さ せ 
る と , 初め に 『 少 し 待て 』」 と いっ て くる の で , 少し 待ち ま 
す . する と , 画面 に 箱 が 表示 され , まず レベ ル を 聞い て く 
る の で , 0 一 9 程度 の 数 を 入力 し て や り ま す ( 写 真 1). 入 
カカ の 際 は 必ず 最後 に [return] キ ー を 押し て くだ さい . この 
注意 は 以下 同様 で す . この レベ ル が 大 きい ほど 計算 機 は 強 
く な り ま す . な お , 単に [return] を 押す と , [@| が 入力 され 
た と 解釈 し ます . 

次 に , 先手 か 後手 か を 開い て きま す ( 写 真 2). 先手 で プ 
レイ し た けれ ば [を , 後手 で し た けれ ば [ 包 を 入力 し て くだ 
さい 。 後 は すぐ ゲー ム に 入り ます . 


際 に 計算 機 と 対戦 し 
と いう わけ で , 具体 的 な 操作 





計算 機 の 手 番 の と き は 計算 機 が 勝手 に 手 を 進め ます か ら , 








1 の 





初め に , 相手 の 強 さ (レベル) を 入力 する . 
KRLRH 


回国 還 生還 
に ウタ | |] 
回 回 回 回 回 可 







eve 】 〈@-⑨)? 9 較 


写真 2 次 に , 先手 か 後手 か を 入力 する と ゲー ム 開 始 . 
KRLH 
F E p て B 人 
話 図 還 閣 区] 較 区 】 間 区 】 関 攻 ]| 
本 に 2 zz4 医 :]| 
本 ] 賠 工 】 還 区 】 関 区 】 還 区 国 還 | 
4 る 3 き 人 4 に 】 る 


7 25? 
27 3 
ER 人 


WuF 本 
WM WO のり | 】 


写真 3 51 手 目 で 過半 数 の 石 を 取っ て , 挑戦 者 の 勝ち . 
KaLRH 


円 口 還 四 上品 
IE に な 2 zz4Er4 
中 口 口 邊 品 


Your 5OV@・・・? 
FAV ・・ 
0 


に 


っ ッ WO り @。。・ ア 
Next @ame ? 回 


ーッ 


PPaSve・ 。 で 
your - 量 の ソウ W。。・? S 
Your、 WO ソ @ 。。。・ ぞ そ 
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写真 5 マイ コン 側が じっくり 最善 手 を 調べ て いる と | 
KALaH 


回 加 回 固 上 
は 4E て 4 





NO び @ 。。。 
ト ん rr NOU@ 。。。 
の に m の りす < ・・ 


良 り た デモ トス 1 


「 コ 


画 四 区 | 症 区 』 症 | 





し ア 
ア ノ 
Ne@X も の あの 間 や 





表 1 BASIC プ ログ ラム の 民 略 


















































90 一 510 メイ ン ・ ル ー チ ン 

520 一 640 計算 機 の 手 

650- 690 人 間 の 手 

700 一 850 石 を 動か す 

860- 890 中 央 部 の 表示 
| 900- 950 カラ ーor ポ ッ ト の 表示 

960 一 1500 ? マ シン 語 

表 2 使用 され る 変数 と その 意味 

LV レベ ル 
S2(0) 人 間 の カラ ー 
S22(8) 一 S22(13) 人 間 の ポッ ト 
S2(7) 計算 機 の カラ ー 
S22(1) 一 822(6) 計算 機 の ポッ ト 





PL 手 番 ,( 1 一 人間, 2 王 計算 機 ) 





さ 2%(0) 一 X22(13) 


ャ ク (0) その (13) 人 告 ポ ッ ト , カラ ー の 画面 上 の 位置 





ポッ ト の 番号 (サブ ルー チン に 


To 対す る パラ メー タ と し て も 使用 ) 





ディ レイ ( 値 を 変え た い 方 は ライ 


T9 ン 80 を 変更 し て くだ さい ) 








表 3 マシ ン 語 サブ ルーチン の エン トリ ー ア ドレ ス 





























対戦 者 は た だ 見 て いる だ け で 良い の で す . この 間 画 面 の 一 部 
が チラ つく と 思い ます が , これ は 計算 機 が 何 を 考え て いる か 
を 表示 し て いる わけ な の で 別に 虫 で は あり ませ ん (写真 3 ). 

人 間 (つま り 対 戦 者 で ある あな た ) の 手 番 の と き は ,『 あ 
な た の 手 番 』 と いっ て くる の で , 石 を ば ら ま きだ たい ポッ ト 
を 決め , その 番号 [一 [| を 入力 し ます (写真 4 ). 石 を ば ら 
まい た り カ ラー に 移し た りす る 操作 は すべ て 計算 機 が 行 な 
っ て くれ ます . も ちろ ん , イン チキ は し ませ ん . 

それ で は この 計算 機 と の 知恵 比べ に 果敢 に アタ ッ ク し て 
くだ さい . 初め て の 対戦 で 計算 機 に 勝て た ら あ な た は 天才 
で す (いう まで も な くく 筆者 は 天才 で は あり ませ ん で し た )、 


ぅ 機種 と 移 柱 法 


書き 遅れ まし た が , この プロ グラ ム は PC-8001+ カ ラー 
モニ タ の 上 で 動き ます . グリ ー ン ・ モ ニタ で も 問題 な く 動 
く と 思い ます が , その 場合 は 色 の 違い が 測 湊 の 違い に 変わ 
り ま す . また だ, 8001 の RAM は フル 実装 で な く て も OK で す 

プロ グラ ム の 移植 法 に つい て は , これ と いっ た 簡単 な 方 
法 は な いよ う で , プロ グラ ム ・ リ スト (リス ト 1 ) を 見 な が 
ら 1 行 ず つう キー イン する し か あり ませ ん . 960 行 以後 の D 
ATA 文 の 入力 な ど は 非 人 間 的 と 言っ て も 過言 で は な いで 
し ょ う ( プ ログ ラム 作成 者 は それ を 行なっ て いる わけ で す ). 
し か じ し , それ で は 余り に も サー ビス が 悪 す ぎる の で 工学 
2 の に ン ま 7 に 20E り 2 に ポス 5 る 31BEKe7 の 2 の 症 G9 吉 議 和 PU 和 < 者 (は 
女 来 の カセ ッ ト ・ サ ービス 欄 を ご 覧 くだ さい . 

蛇足 の 極み で す が , カモ セット か ら プ ログ ラム を 移植 する 
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0035 1 文字 出力 ( R 0 M 内 ) 
EBO00 eval 
EO30 move (先読み で 石 を 動か す ) 
EOA0 1 文字 抹消 
0BO minimizer 
| EE1C0 maxXimizer 
EE2DO BASIC と の イン ター フェ イス (usr0) 
EE340 
) ワー キン グ ・ エ リア 
E9FE 








場合 は PC-8001 上 モニ タ TV の 他 に , カセ ッ ト 再 生 装 置 が 
必要 か と 思い ます . PC-8001 は クリ チカ ル で すか ら , 再生 
装置 に は 相性 の 良い 機種 を 選び , 再生 レベ ル も 最適 な 点 を 
捜し て くだ さい 、. 


旬 プロ グラ ム の 説明 


プロ グラ ム の 主 な 部 分 は PC- 8001 の N- BASIC で 書か れ 
て いま す . この 部 分 の 概略 と 変数 の 意味 を 表 1, 表 2 に そ 
れ ぞ れ 示 し まし た . 計算 機 が 先読み を し て 手 を 決め る 部 分 
は , 高速 性 を 要求 され る の で マシ ン 語 で 書か れ て いま す . 

マシ ン 語 と いっ て も 実は DATA 文 と し て BASIC の 中 に 埋 
め 込 まれ て いま すか ら , その 意味 で は 完全 な BASIC プ ログ 
ラム で す . マシ ン 語 の 部 分 の 主 な サブ プ ブル ー チ ン の エン トリ ー 
アド レス を 表 3 に 示し ます . プロ グラ ム 中 , BASIC で 書か 
れ た 部 分 で 何 が 行なわ れ て いる か は , リス ト 1 を 読ま れれ 
ば 充分 わか る と 思い ます . 

一 方 , マシ ン 語 で 書か れ た 部 分 は ある 意味 で は プロ グラ ム 
中 最も 肝心 な と ころ な の で す が , この 部 分 に つい て 詳し く 
書く と 長く な る の で , ここ で は 計算 機 が 行なっ て いる 先 読 
み の 戦 略 の 要点 の み を 述べ る こと に し ます . 

各局 面 が 計算 機 側 か ら 見 て どれ だ け 有 利 か を 数 値 的 に 表 
現す る ため, 局面 の 評価 値 を 計算 機 の カラ ー に 入っ て いる 
石 の 数 か ら 人 間 の カラ ー の 石 の 数 を 引い た も の と し て 定義 





6 2 手先 まで の 手 番 と 評価 値 





し ます . 一 度 カ ラー に 入っ た 石 は 減る こと が な く , し か も 
最終 的 に カラ ー の 石 の 数 に よっ て 肝 大 大 る の で すか ら , 
評価 値 の 上 の よう な 定義 が 充分 婦 当 な も の で ある こと に 半 
論 は な いで し ょ う . 

この 評価 値 を 計算 し て いる の が eval と いう サブ ルー チン 


で , 実際 の 計算 で は ポッ ト の 石 の 数 も 多少 考 應 し て いま す . 


計算 機 は この 評価 値 が 最大 に な る よう 手 を 選択 する べき な 
の で , その よう な 手 を 決定 する た め maximizer と いう サブ 
ルー チン が 用 意 き れ て いま す . 

他方 , 人 間 は 評価 値 が 最小 に な る よう 努力 する は ず で す 
か ら , その 行動 を 子 想 する た PO minimizer と いう サブ ル 
ー チ ン も あり ます . これ ら の サブ ルー チン が 再帰 的 に 他 を 
呼び 合い な が ら , レベ ル に よっ て 指定 され た 回 数 だ け 先 読 
み を 行なう の で す . 

この あたり の 動作 を 具体 例 に よっ て 考え て み ま す . 今 , 
計算 機 の 手 番 で ある と し て , そこ か ら す べ て の 可能 な 手 を 

2 手 の 深 さ で 探索 し た 結果 が 図 6 の よう だ っ た と し ます . 
図 中 , 丸 の 中 に 書い て ある 廊 字 は , どちら の 手 番 か を 表 わ 
し て いま す , ルー ル 1 が ある た め , 手 番 は 交互 に 変わ る と 
は 限り ませ ん . 

さて, 計算 機 の 手 番 A (トッ プ ・ レ ベル . この 部 分 の 処 
理 は BASIC で 書か れん て いま す ) で , B, C の 2 通り の 手 が 
選択 で きま す . B 06 人 手 を 打 て ま す . 
計算 機 は 評価 値 が 最大 に な る よう 手 を 選ぶ は ず な の で , こ 
Ng 20 9 

する と 可能 な 手 D. 忌 の うち D が 選ば れ , B の 局面 に お 

る 評価 の 逆算 値 は 結局 3 に な り ま す . 次 に C を 選ぶ と 手 
番 は 人 間 に 移 り ま す が , 人 間 は 評価 値 が 最小 に な る よう に 
手 を 選ぶ と 考え られ る の で , ここ で は minimizer が 呼ば れ 
ます . 

minimizer は 可能 な 手 F、G, H の うち 量 を 選び , 局面 
C の 逆算 され た 評価 値 は ー 2 となり ます . し た が っ て , 計 
算 機 は この 2 つの うち 評価 値 の 大 きい 方 B を 選ぶ の で す . 
この 方 法 は minimax 戦 略 と 呼ば れ , 非常 に 手堅い 手作り が 
得 ら れ ま す . 


と ころ で ,。 minimizer が 局面 C を 解析 する 場合 .F, G, 


H の 順に 探索 を 行なう と し ます と , 実は F の 評価 値 -1 が 
得 ら れ た 時 点 で , C の 逆算 値 が ー 1 以下 だ と いう こと に な 
る の で , 手 B の 方 が 必ず 良い と いう こと が わか っ て し まい 


6GG⑤ 





&0 


図 7 ロー カル 変数 と スタ ッ ク の 関係 





a) ロ ー カ ル 変 数 の 割り 当て b) ス タッ ク の 使用 法 
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ます . 

で すか ら , G, H は 探索 する 必要 が な く な り ま す . 同様 
の こと は maximizer の 中 で も 可能 で , この 考え 方 に よる 校 
刈り は alpha-beta pruning と 呼ば れ て いま す . 

この 枝 刈 り に よっ て か な り の 探索 を 省く さこ と が で きま す 
が , な る べく 良い 手 か ら 探 索 を 行なっ た 方 が より 0 
を 刈り 取れ る の で , 初め に 浅い 探索 を 行なっ て 良さ きそう 
手 の 見 当 を つけ て か ら そ の 順に 深く 探索 する と いう 撤 法 が 
し ば し ば 使わ れ ま す . 

も っ と も , カラ ー の よう に 単純 で 手 の 選択 の 少な い ゲ ー 
ム で は , そこ まで し な く と も 充分 高速 に な る の で , 今回 の 
プロ グラ ム で は 単に カラ ー か ら 遠 い ポ ボッ ト か ら 探 索 する 
ど に 2 で We ます : 

何 手 先 ま で 読む か は レベ ル に より 決定 され ます が , de 
fault 叶 の レベ ル 6 で は 最低 3 手 は 読み ます . その 他 , 自 
分 の 手 番 が 続く 場合 は , そう で な い 場 合 よ り 深 く 読む よう 
な 細工 が 施し て あり ます . 

最後 に . どう し て も マシ ン 語 の 部 分 の 解読 を な さり だ たい 
方 の た め に , minimizer お よび maximizer が 使用 する ロー 
カル 変数 の スタ ッ ク へ の 割り 当て 法 を 図 7 に あげ まし た . 


5 あと が き 


本 文 担 当 の K が この 記事 を 執筆 する に あたり , TK 大 学 
S 学部 TS 学科 の 皆様 より 数 々 の 助言 を いた だ きま し た . 

特に ,。 C の オリ ジ ナ ル ・ プ ログ ラム を 作成 し た A. 【. 
氏 。 それ を PC-8001 に 移植 し た N.A. 氏 , また だ , minimax 
戦略 の 解説 に 関し て 重要 な コメ ント を くれ た K.K. 氏 の 3 
氏 の ご 援助 は 本 質 的 で す . 誌面 を お 借り し て これ ら の 方 々 
より 氏名 は イニ シャ ル の 


に 厚く 御礼 申し 上 げ ま す (都合 に 
み に さ せ て い だ だ きま す ). 

な お , 本 記事 に 関し て , ご 意見 , ご 感想 を お 持ち の 方 は , 
1/O 編 集 部 まで どしどし お 寄せ くだ さい . 
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skFP ロ EEEF11 EEEFH 


EETLUEH 











251 








ーー*ーー*ー ャ ーーーーー ペ ーー ペー シー。ー ゃ ーー ネー ネー ペー ター ャ ー ゃ ー ャ < ゃ ーー ゃ > > 。 


お つ , お っ , 面白 い / APPLE の 麻雀 ゲー ム は す | 


ば らし い / し か が し , 私 に は APPLE を 購入 で きる ほ 
ご どの 財産 も や ない 、 打 ち ひ し が れ て い だ と き に 突如 彗星 
の 如く 現われ だ PO-8001. カラ ー プ ラフ ィ ッ ク と 24 k 
] BASIC を ひつ さげ て , し か も 超 安価 .「 こ れ だ /。 と 
思 つ て , 即 購入 し を の で す が …… ぅ > PC の 特長 を 生か 
し だ 麻雀 ゲー ハム が な い . 

そこ で , 待ち 切れ ず 奪 起 し て 作 つ た の が , この 『 プ 
ラフ ィ ッ ン 麻 雀 ゲ ー ハ ム 』 で す . ご どう や ら 苦 労 の みい あ 
つて APPLE 並み の ("も し や APPLE 以上 で は …… ょ 
と 自負 し て いる の で す が ) も の が で きだ の で 発表 し ま 
d。 

ご の ゲー ム は 160x100 ド ツ ト ・ プ ブラ フィック を フル 
に 生か し だ だ め , 家庭 用 テレ ビ を 使用 の 方 は 少々 字 が 
読み づら いか と 思い ます が , そこ は 想像 力 で 補い , 楽 
し ん で ください. 8 

な お , この プロ グラ ム は 32K RAM を ほとん ど ご 使用 
し て し まい ます . し だ が つて , 標準 R A M 実 装 の み の 
訪 は 残 意 な が ら 写 真 を 眺め て いる が ガ , R AM を 追加 す 
る ガ が の ご どちら か です. し ガ し , この ゲー ム て で 練習 すれ 
| ば , R AM 代 ぐ らい 後日 麻雀 で 稼げ る の で は ……. 


ーー*ー*ーーー*ー ゃ ー ーーーーーー<ー<ー。ーー 


ュー ュー 


ーーーーー*ーー*ーー*ー*ー ズ ネー ネー ネー ター ネー ャ ー ゃ ーー ャ ーー ュー > 。 。 。 。 











ーーーーー*ー*ーーー* ーー 





⑯ 有 牌 は 10X12 ド ッ ト の グラ フィ ッ ク で 表示 され ます . 
@ ク ラー を ふん だ ん に 使い , 配 牌 時 も あき な いよ うに デモ 
ンス トレ ーション を 表示 し ます . 
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| 
| 
| 
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| 








ロン する と 自動 的 に 役 判 定 お よび 点数 計算 を 行なっ て く 
れ ま す . 

の 持ち 点 は 27.000 点 , 東 々 回 し の 半 荘 シィ で 30,000 点 返し 
で す . 半 首 が 終了 する と 最終 合計 が 表示 され て END と 
な り ま す . 

⑥ 連 ボ 童 あ り で , リー チ す る と リー チ 代 と し て 1,.000 点 減り 
ます . な お , 連 蘭 時 の 加算 点 と 二 察 しばり は 行なっ て い 
ませ ん . 

4 人 麻雀 で ある こと や ポン , チ ィ ー が で きる こと な ど , そ 
の 他 は 1I/O'80 年 6 月 号 の PC 用 4 人 麻 省 ゲー ム と 同様 で 
す . し か し , デバ ッ グ や 改良 を 行なっ て いま す . 





避 び 方 


RUN す る と 『 フ ル グ ラ フ ィ ッ ク マー ジャ ン ゲ ー ム 』 
の タイ トル が 現われ ます (写真 1). 約 3 秘 程度 で 画面 が 
転 し て , 簡単 な ゲー ム の 説明 を 表示 し , 他 家 の 強 さ を 聞い 
て きま す ( 写 真 2 ). |, [人 [ 和 1 の いずれ か を 入力 し て くだ 
さい . 

PC が 初期 条件 を 決め , 配 牌 , 洗 牌 を 行なっ て いる 間 は 


牌 が 次 々 と 表示 され ます (写真 3). な お , この 有 は 配 牌 と 
は 何 の 関 係 ち も ありません. それ が 終わ る と サイ が 乱数 で 振 
られ あな た の 場所 が 決定 され ます (写真 4 ). 

次 に , メイ ン の 画面 が 表示 され , 東 家 か ら 順 々 に ツー モ , 
捨て 牌 を 行なっ て いき ます . そし て , あな た の ツー モ が 済 
な ど 特 で 麻 を 開い で で る の で 不要 析 の NN の コー ド AーN 
の いずれ か を 入力 し ます (写真 5). 入力 し た 幅 は 河 に 捨て 














797 9 の 
中 2 


PPFGSFhITFP PV TZT 





写真 2 ゲー ム の 説明 . ここ で 強 さ を 入 力 する . 





すま 人 よ ス ナ > 


5 カ ” アナタ ノ の スチ ャ 。 ト イア ン , シ モチ ャ ヲ の モチ 


けつ る を ン フ "トシ イ < 
人 セット 704 0 レッ 


ント ンマ ワシ ク 0 ンチ セン シメ テト 
搬 29 クダ Ok の 
壮 ゃ 
ノ ッ ヨ 9 ラ ニュ ウリ ョ ク シテ クタ * サ イ 


品 88ed @ い も に 】 


写真 3 配 牌 , 洗 腸 の と き は 次 々 と 牌 が 表示 され る . 


間 フイ ラ ナラ ステ イマ ス .| 
ロレ りう サイ ラ フリ マズ. 





写真 4 場所 の 決定 . 


レア 症 加 PF PTP 9 コ 
サイ NO。2。。。。。 4 


アナ ダナ ng 0 ミュー』 テッ ズ 。 


来 玉 テン ズ ウ ヒョウ 素 
の 14989 
27499 
28989 
438989 


フチ ャ ン オ ワ リ テー ズ 。 コ ~ ク ロウ サマ テー シダ タ 。 











し 
1 





られ , その 後 , 他 3 家 の ツ ー モ 有 牌 , 捨て 牌 。 ロ ン の チェ ッ 
ク が 自動 的 に 行なわ れ ま す . 

他 家 の 捨て 牌 が 必要 な と き は スペ ー ス | キー を 押し て 処置 
を 要求 し .『 シ ョ チ ハ ?』 に 対し て , チ ィ ー な ら [g], ポン 
な ら [ 帳 を 入力 し ます . する と , あな た の 手 牌 の 中 の 食い 牌 
を 聞い て くる の で , 『 ク イハ イ 。 ハ ?」 に 対し て 1 枚 ず つ A 
ー の 英字 で 入力 し ます . チ ィ ー, ポン は ハダカ タン キ に な 
る まで 可能 で す ( 写 真 6). ロン の と き は [を 入力 し ます . 

面前 で テン パイ し て リー チ の と き は 円 連 と 入力 し , 捨 
て 幅 を [一 国 の 英字 で 入力 し ます . その 後 の 『 マ チ ハ イ ー 
1 ?」,『 マ チ ハ イ ー 2 ? 」 に 対し て は , 五 万 な ら [ 引 還 愉 , 
東 な ら [ ト |[ 選 と いう ふう に 文字 で 入力 し ます . これ は , 待ち 
牌 を 牌 コー ド で 指定 する に は コー ド を 覚え な けれ ば な ら な 
いし , 味気 な いと 思っ た か ら で す . 

カナ 廊 字 の 入力 は 面倒 ど と いう 方 は , 行 番号 650 一 662 を 
I/0O 6 月 号 の 行 番号 650 一 660 の よう に 戻し て くだ さい . 従 
来 の 放 コ ー ド で 入力 で きま す ( 表 1). 



































































































































0 | 1 に 3 9 
ー マ ン ー ル マン | 11 一 19 
ー ソ ウー ル ソ ウ 21 一 29 
| 隔 寺 末 63233 - 31 一 34 
| 発 , 中 , 白 。 | 85,36,37 
ロン に な る と 画面 が 一 転 し て , 上 が り の 手 牌 , ドラ , 裏 


ドラ の 表示 を 行ない , 自動 的 に 役 判定 と 点数 計算 を し て 表 
示し て きま す (写真 7 ). 

場 は 常に 東 の 〇 局 で , 半 蘭 する と 最終 得点 を 表示 し て 終 
了 で す (写真 8 ). 


プロ グラ ム の 説明 


この プロ グラ ム を 解読 し , 改良 し て みよ うと いう 方 も い 
る か と 思う の で , 要点 を 説明 し ます . 

通常 。 こ の よう な 長い プロ グラ ム を 書く 場合 は , フロ ー 
チャ ー ト と 変数 一 覧 表 を 作成 の 上 で プロ グラ ミン グ を 始め 
ます . し か し , この プロ グラ ム は その 手順 を 踏ま ず に ,I/O 
6 月 号 の 峰岸 氏 の 麻雀 ゲー ム を ベー ス と し て それ に 了 肉 を つ 
け て いく 形 で 追加 、 改良 修正 を 行なっ た も の で す . 

し た が っ て , で き 上 が っ た プロ グラ ム は 非常 に わか り に 
くい スパ ゲッ ティ ・ プ ログ ラム と な っ て し まっ た こと を 最 
初 に お 詫び し て お きま す . 

プロ グラ ム は , ゲー ム 進 行 を 行なう メイ ン ・ ル ー チ ン と , 
ロン 後 の 役 判 定 , 点数 計算 サブ プ ル ー チ ン の 2 つ に 大 きく 分 
けら れ ま す . 

図 1。 2、 3 の フロ ー チ ャ ー ト (この フロ ー チ ャ ー ト は 
完成 後に 書い た も の で す ) と , 変数 一 覧 表 お よび 行 番号 マ 
ッ プ を 表 2, 表 3 に 示し ます . 


加 メイ ン ・ ル ー チ ン 

花 本 的 な ロジ ッ ク は 峰岸 氏 の TK 用 4 人 麻 種 ゲーム を P 
C 用 に 移植 し た も の (以下 ,『 移 西 ゲ ー ム 』 と 書き ます ) と 
同様 な の で , 1/0 の 779 年 12 月 号 お よび "80 年 6 月 号 の 記事 を 
参照 し て くだ さい . 以下 は 改良 点 に つい て 述べ ます . 

37 行 まで は 一 ピン か ら 折 まで の 各々 の 有 牌 デー タ が 入っ て 
お り , 40 行 , 80 行 で 必要 な 牌 の デー タ の み を 配列 A 狗 に 読 
み 出 し , 85 行 の PUT @ 文 で 表示 し て いま す . この た め , 
グラ フィ ッ ク 幅 の 配列 は 1 個 分 の A 2 (8) で 済み まし た . 


ト 
に JI 

















表 2 行 番号 マッ プ 
































1 一 37| 牌 の グラ フィ ッ ク ・ デ ー タ . 有 牌 コー ド と 行 番号 
が 対応 
40 一 85| 牌 の 表示 サブ プ ル ー チ ン . A (8) に 牌 デー タ が 
入る . 
100 一 107 | 初期 設定 
110 一 II5 | 乱数 の RANDMIZE 化 
I20 一 145 | ゲー ム の 説明 表示 お よび 強 さ の INPUT 
270 一 305| 自分 の リー チ の ロン ・ チ ェ ッ ク 
310 一 320 | マイ コン の 強 き 決定 
350s 計 370 隊 り に 28 鹿 言 の 決定 時 PIN9) 還 と 2Q 富 (計画 司 須 に 
CDNA まお: の 
400 一 460| ロン と ナガ レ の チェ ッ ク . 
470 一 550 | 捨て 牌 の 表示 と 2 秒 問 の 持ち 時 間 カ ウン ト 
560 一 575 | リー チ 時 の 捨て 牌 の 表示 
580 一 625 | 他 者 の ロン の チェ ッ ク 
650 一 665 リー チ の 待ち 牌 の INPUT と リー チ の 表示 
670- 750| 埋 幅 
810 一 950 | ロン の 表示 
970 一 1150 | 上 が り 有 の 表示 
170 一 I280 | 下 家 , 対面 。 上 家 の 各 々 の ロン ・ チ ェ ッ ク . Q 1 
デー1 な ら ロ ン 
1290 一 1490 | ツー モ 有 牌 の 表示 お よび 捨て 牌 の 処置 
1500 一 1595 | サイ の 目 と 場所 の 表示 
I600 一 1640 | ドラ , 4 人 の 河 , 自分 の 牌 な どの 表示 
1650 一 I7I0 | 順子 選定 
1720 一 1750 | 対 子 選定 
1820 一 I865 | 変数 , 配列 の クリ ア 
1870 一 2410 | 下 家 , 対面 。 上 家 の 配 牌 
2420 一 2460 | 自分 の 配 放 
2470 一 2560 | 配 牌 後 の 残 り 牌 の 読み 込み と か き 混 ぜ . 
2570 一 2600 | リー チ 宣 言 と 時 期 の 選定 
2910 一 292| | 点数 と 上 が り 点 の 表示 
2922 一 2925 | 連 荘 の 判定 
2940 一 2940 | 食い 牌 の INPUT 
3030 一 3085 | ナ キ 牌 の 理 牌 と 表示 
3090 一 3120 | スペース | キー を 押し た と き の 処 置 
3130 一 3130 | ドラ , ウラ ドラ の 表示 
3500 一 3510 | 捨て 牌 が 14 枚 以上 に な っ た と き , 左 に 1 つ 移 動 
3520 一 3530 | 配 牌 時 の デモ 用 サ プ ブル ー チ ン 
3550 一 3670 | 待ち 牌 の 入力 デー タ を 峠 コ ー ド に 変換 
3700 一 3760 | 場 を 1 つ 進 め る . 
3800 一 3860 | 自分 の 場 の イニ シャ ル ・ セ モッ ト 
4400 一 5480 | 役 判定 サブルーチン 
5500 一 6120 | 点数 計算 サ プ ル ー チ ン 
6200 一 6310 | 半 荘 終了 後 の 最 終点 数 計算 
7000 一 7200 | 他 家 の 待 ち 粗 が フリ テン に な っ て いる か 否 か の 
判定 
8500 一 8770 | 加 2 トル 表示 サブ ルー チン 
表 3 主要 変数 一 覧 表 
C(J1, II) 4 家 の 配 牌 
サ 1 ュ テニ 1 は 下 家 , 2、 3, 4 は 対面 。 上 
家 、 自分 で す . I 1 ニュ 1ー13 は 配 牌 。 14 は 
ツー モ 幅 , 15 一 16 は 待ち 牌 で す . 
P1 ツモ ロン し た 家 
P2 振り 込み の と き , 和 了 し た 家 
P3 振り 込み の と き , 振り 込ん だ 家 
P5 親 の 家 
P6 自分 の リー チ の と き , P6=-4 

















P 8⑪) リー チ 後 の 各々 の ツー モ 回 数 

L, E(84) ツー モ 回 数 お よび ツー モ 有 種 

N4 自分 の ナ キ 回 数 

G(⑪ ナ キ 腫 

RE 連 チ ャ ン 回 数 

H5 上 が っ た 家 の 風 . 1 三 東 . 2, 3, 4 は 
各々 南 , 西北 で す . 

F (④⑰ 各 家 の 点数 

FR _| 場 の リー チ 代 











以上 の P1 一 P6 お よび PS8, 


GE の 各 配 列 添字 1 は 1 = トド 





家 , 2 三 対面 。 3 


上 家 , 4 三 自分 で す . 続い て , 以下 に 役 判定 





お よび 点数 計算 サブ プル ー チ ン で 使用 し て いる 変数 を 列記 し ます . 

















KO①⑪ 手 牌 の 情報 
K (1) 最終 ツー モ 牌 
K(④⑳-ーK(7) ピジン デズ :。 マンズ ジッ ウズ , 字 短 の 各々 枚数 
K(8⑧) 頭 の ある 位置 で 、 4 一 7 の 数 字 が 入っ て お 
り , K(4 ) 一 K(7) を 示し ます . 
KK (10) 一 順子 の 先頭 の 位置 の 幅 コ ー ド が 入っ て いま 
K(13) | す . 
K(14) 一 K(17) | 刻 子 の 牌 コー ド が 入っ て いま す . 
K (18) 頭 の 牌 コー ド が 入っ て いま す . 
L (1) 一 L (37) 手 牌 の 牌 コー ド 別 の 枚数 
E (1 一 EE (14) 上 が っ た 家 の 手 牌 .C(J1, I1) を ソー 
ディ ググ 必 立 交 し 替え 
M 役 満 の 数 
N 鱗 数 
R 一 10 順子 の 数 
S 一 14 刻 子 の 数 
R1 チ ィ ー を し た 回 数 
S 1 ポン を し た 回 数 
Z 1 基礎 点 
Z3 点数 
図 3 点数 計算 フロ ー チ ャ ー ト 





RETURN 







親 な ら 点 数 を 
1.5 倍 








RETURN RETURN 
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順子 が 多い と 
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その 他 の 役 判 定 


5310 

















グラ フィック 麻雀 ゲー ム 


概略 フロ ー チ ャ ー ト 





上 が り 牌 表示 


※ 右 下 の 数 字 は 行 番号 を 示し ます . 


図 2 役 判 定 フ ロー チャ ー ト 
スタ ー ト 
es 
フリ テン か 2? AL 消 * 
4420 
yes』 七 対 子 関係 の 
芋 対 子 か ? 役 判定 
0 4480 
国士 無双 か 役 判定 B 
2 
4650 
天 和 ? 
和 了 型 ? A 5470 
4710 
yes 
RETURN 
上 が り 牌 の デー| チョ ン ボ 
タ を 理 する 
4750 
4760 
RETURN 
刻 子 の 数 
4860 
S=2 S=3 S=4 
刻 子 2 つの と き 刻 子 3 つの と き 刻 子 4 つの と き 
の 役 判 定 の 役 判定 の 役 判 定 
4970 4870 5210 
役 満 か ? 役 満 か ? ーー で 役 満 か ? 
963 yes 96S 
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下 開 開 に 











150 行 の N 8 は 強 さ を 決定 し ます . N 8 の 値 を 大 きく な 
る よう に する と , 他 者 の テン パイ する 時 期 が 遅れ ます . 
お , 移植 ゲー ム で は リー チ の 時 期 は N 8 の 値 (マイ コン の 
強 さ ) に 関係 な く 決定 され ます が , 強い と リー チ を か ける 
の も 早い だ ろう と 思い ,。 N 8 の 値 が リ ー チ の 時 期 に 関係 す 
る よう に し て いま す (2590 行 ). 

また , 移植 ゲー ム は リー チ 時 に 待ち 牌 が 出 て も ロン し な 
いこ と が あり ます が , リー チ が か か る と 必ず ロン 判定 ルー 
チン に 飛ぶ よう に 改良 し まし た (590 行 な ど ). 

3800 行 で 自分 の 場 の 決定 を し て いま す が , 2 回 目 か ら は 
この サ プ ブルー チン を と お ら ず , 東 一 北 一 西 一 南 と 回 す よ うに 
し て いま す (3700 行 )、 も ちろ ん , 親 が ロン する と , 場 は 移 
動 し ませ ん . 

また だ た, Q1 ニ 1 だ と ロン に な る の で す が , 6 月 号 の 1460 
行 だ と 上 者 か らし か ロン が で き な い よう な の で 1460 行 を 
1460 一 1475 行 の よう に 変更 し て いま す . 

麻雀 ゲー ム の フロ ー チ ャ ー ト を 追え ば わか り ま す が , 他 
者 は ある 時 期 が くる まで は 待ち 牌 が き て 人 ロ の 
ま 9。 し た が っ て ,。 フリ テン も 超 こ り 得 る この デ ロ 
グラ ム で は ロン で きる 状態 に な っ NM と き に チ 
ェ ッ ク ・ ル ー チ ン (7000 行 一 ) へ 飛び , フリ テン な ら ヌ ニテ 1 
で 戻り ます . 

その 場合 は 以後 、 ロ ン を し な くし て いま す . た だ し , 当 
然 で す が あ な た が フリ テン し た 場合 は 情け 容赦 な く 8.000 
点 を 取り 立て る の で 悪し か ら ず …… 上 

その 他 , 細か い 変 更 を か な り 行 な っ て いる の で , 6 月 号 
の プロ グラ ム は に 今月 の 追加 分 を キー イン する の で は な く ., 
最初 か ら キ ー イ ン し て いっ た 方 が 削 違 いな いと 思い ます . 


役 判 定 サ ブルー チン 


図 2 に 示す よう に , 最初 に フリ テン を チェ ッ ク し , その 


中 


後 , 七 対 子 と 国士 無双 と いう 特殊 型 に つい て チェ ッ ク し て 
いま す . 


残り の 役 は 順子 と 刻 子 と 頭 に 分 けら れる は ず で す 。 で き 

な けれ ば 4710 一 4750 行 で は ね られ て チョ ン ポ と な り ま す . 
ヒ 対 子 と 国 子 無双 以外 は , 刻 子 の 数 で 役 を 大 分 類 し て いる 
人 4 時 当 ES 先 を 変え た て いま す . 

役 は K (IT) に 入っ て いる 手 牌 の 情報 と し (I) に あぁ る 
牌 コー ド 別 の 枚数 それ に E (TI) に ぁ る 手 牌 (これ は C 
(』 1, 1 1) の 上 が り 有 牌 コー ド を ソー ティ ング し な お し 
た も の で す ) で 役 役 を 判定 し て いま す .。 E (I) の 配列 は 
メイ ン ・ ル ー チ ン と 共用 で す . 役 満 が あれ ば 変数 MV に , 役 
が あれ ば N に 課 数 を どん どん プラ ス し て いき ます . 点 数 に 
上 限 は あり ませ ん . 


e ュ 人 
同 点数 計算 サブ ルー チン 
役 判定 サブ ルー チン で 役 満 が あれ ば M> 0 で , 役 が あれ 
ば N> 0 で 戻る の で , 5527 行 で M= ニ 0 か つ Nー0 の と き は 
チョ ン ボ と みな し て ZZ 3 に 一 8000 を 代入 し ます . 満貫 以上 


で あれ ば 各々 に 応じ た 点数 を 2 3 に 代入 し , 5620 行 に 飛び 


ます . 満員 以下 で あれ ば 5534 一 5600 行 で 待 の 計算 を 行ない 
5610 一 5615 行 で 点数 を 出し ます . 以上 は , いずれ も 子 の 場 
合 の 点数 が 3 に 入っ て いま す . 

5620 行 か ら は , 親 の ツモ ロン , 子 の ッ モ ロン , 他 者 か ら 
の ロン の 3 種類 別に 行き 先 を 変え , 4 家 の 点数 を 出し て い 
まま 3 計 


256 


8 参 後 の 履 記 点 


特長 の 項 で , 『 連 荘 時 の 加算 点 と 二 詩 し ば り は な い 』 と 述 
SS ま も だ が Ss 呈 あ Y PA る と 思う の で , ぜひ 挑戦 し 
て みて くだ さい . 連 蘭 回 数 は 変数 RE に 入っ て いま す . 

その 他 に ., 生生 NBR 
と か , 他 者 に も ナ キ を 認め る な どの 改良 を すれ ば , より 実 
旧 ら に に く 2 が る SSL よう た が だ 画面 表示 位置 や ロジ ッ ク の 
変更 を 余儀 な くさ れる の で , 少々 手間 が か か る と 思い ます . 


PCO カ ラー グラ フィ ッ ク 
に つい て 


PC は ドッ ト 単 位 で 色 が 決め られ な いた め 中 , 発 , 一 ソ 
ウ な どの 廊 字 に 色 が つけ られ ませ ん で し た . また だ た, この プ 
ログ ラム で は バッ ク カ ラー を 緑 の ヌ ルド ッ ト (color 4, 
255。 1 : chr$ (12) ) で , 牌 を 10 ベ 12 ド ッ ト の リバ ー ス 
(put@…… not) で 表示 し た た め , 表示 位置 が ずれ る と そ 
の 欠点 が で て きま す . 

つま り , 表示 位置 を ずら す と 幅 が 大 きく な っ た り , 幅 の 
周辺 が 時 く な っ た り し ます . 幅 の 大 き さ も 表示 位置 も , 必 
ず キ ャ ラク タ 単 位 の 枠 に は まる よう に し な けれ ば な り ま せん . 

と は いう ものの, その 制約 も PC の R BG 入 力 の 色 の 美 
し さと 24K BASIC の 多 機能 さき が ,. これ を 補っ て 余り ある 
と 思い ます . 


あと が き ぎ 


短 か い プロ グラ ム は 除く と し て , 長い プロ グラ ム に な る 
と バグ を 完全 に な くす と いう の は 将 か し く , これ も 考え 違 
いや つけ 忘れ な どの バグ が ある か も 知れ ませ ん . 皆さん の 
デバ ッ グ や 改良 , ご 批判 を お 待ち し て いま す . 

最後 に . この 誌面 を 借り まし て , 改良 点 の 指摘 や テス ト 
・ ラ ン に 協力 し て くれ た 麻雀 屋 の 息子 の 山田 氏 に お 礼 を 申 
し 上 ば げ ます. 
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テム 








DATA 120.0。O。17422。 一 2 さ 日 2。 11914。- 日 124.0。O 

DATA 120。- 日 192。 10BB, 17429。 224。 さ 5B4 。 2054 日 。 10B9。 14 
DATA 120。14 さ さら 。- さ 260B。 さ 。ー さ 2 ロ 44 。 さ 5B6 。 76 日 。 56 さ 。 王 6 
DATA D。 2B960。 4566。0。 152 さ 2。ー1B262。 さ 。O 

DaATA 、0。 2652 日 。 1 2 さ B5 。 さら 40。 さ 076 65 さき 4。 ら 。O 

DATA 120、1228。 さ 267。0。ー1556 日 。 12。 12492。 さ 。O 

DaTA 120.6144。64 06 昌 、 122BB 、 さ 267。O 
DaTa 。 1 さ O56。 204 。 さ 264 。 1 
DATAa 、ー9802。6。O 
DaTA B 
12 DATA 120。-4096。 1 
1 さ DATA 120。-204 昌 。 
14 DATA 120。-204 昌 。 
15 DaTa 

16 DATA 120。163B4。4064。1740 日 。 520。79 さ 6。 一 16 さ 6 日 。 1 1 さ 。 
17 DATA 120。B192,4064。205O。992 。79 さ ら 6。 一 1 6 さら 日 。 1 1 互 さ 。O 

1 DATA 120.0。 さ 2O。16905。 ロ 12 。 79 さ ら 6。 一 16 さ 6 日 。 1 15 さ 、O 〇 

19 DATA 120』B192,2016。 1B450 BOO。79 さ 6』ー16 さ 6 日 115 さ 。O 
DATA 120。- さ 276 日 。 26 日 。 日 16 さ 。ー さ 12 さ 。5B94。 16446。256。O 
DATA 120。0。256。4100。64。1024。16400。255 ら 6。O 6 
DATA 120.0。256。4100。64 。4 さ 2 4164。1089。O 
DATA 120。』0。10B 日 。 17425。 272 。 4 さ 52 。4164。10B9。O 
DATA 120.0。 3 
DATA 120。0。 
DATA 120。16 
DATA 120』0。 
DATA 120。18 5 6 
DATA 120。0。 。 920 日 。 1 626 ロ 。 2 と 
DATA 120。0。- さ 2512。4159。920 日 。 11912。-599 日 。 2 ささ 日 。O 
DATA 120、0。- さ 2768。 1 ミ 、ー 昌 0 さ 2。 10B95。 22BS。 4066。O 
DATA 120.0、O、10250、 




















テコ 0 ひび や 相 ロビ 
上 





















,165519。10546。 6245。 0 
さ 6。B776。9 さ 



















1816,』2562。 
DaTA 120。O。O。1 ヨ 47B。 一 2404 日 。 25B ミ 
DaTA 120。0。256。 508 。 ヨ 776。 16265。 16400。 256。 0 
37 DaTA 120。0。0。0。0。 DEG 
3 BOTO10O 
40_ UNE (1 。11) GUTO41 。42 4 さ 。 44。 4 46。47。 4 日 。49.5O。 51 。52 4 5 さ 。 ロコ 4 55 コロ 6 57。 5B.59。60』61。 
62。 6 さ 』 6 人 4 。 6 ロ 。 らら 』 67。 6 日 。 69。 7 プ 0。 プ 1 。 プラ 。 プ さ 。 74。 75。 フ ら 6。 7 フ 
41 RESTDRE1: BOTOBO 
42 RESTDRES: BDTDBO 
さ RESTURE3: BUTUBO 
44 RESTURE4: BDTOBO 
45 RESTORE5: BOTDBO 
46 RESTURE6: BUTDBO 
47 RESTURE7: BUTDBO 
48B RESTUREB BUTDBQO 
49 RESTURE9: BOTOBO 
51 RESTORE11:GBOTDBG 
52 RESTORE1Si BUTUBO 
さ RESTURE13: BUTUBQO 
54 RESTORE14』 GOTOBO 
55 RESTORE15: BDTDBO 
56 RESTORE16:』 BOTDBO 
57 RESTORE17: BUTOBGQ 
SB RESTORE1: GUTUBO 
59 RESTURE19』 BUTUBO 
61 RESTORES1 : BUTUBO 
62 RESTURESS BUTDBO 
さ RESTORE BOTO8O 
64 RESTDRES4: BUTDBO 
65 RESTDRESS: BUTDBO 
66 RESTHRES6』 BDTDBGO 
67 RESTOURE27:』 BOTDBO 
68 RESTDRESB: BUTDBO 
69 RESTURE29』 BOTDBO 
71 RESTURE さ 1 : BUDTDBQ 
72_ RESTURE32 BODTDBO 
7 フ 73 RESTURE3 さ 』 BODTODBG 
74 RESTURE34: BOTUBO 
75 RESTURE35 紀 : BUTODBO 
76 RESTURE さ 6: GUTUBO 
77 RESTDRE3 フ 
QO FURO=OTOB: READAX(H) :NEXT 6 
BB CULUR7: FUTD(X』。Y) 一 (X+9』Y+11) 。 AX ん 。NDT : RETURN 
1Q0Q DEF INTB。D-E。BーJ。LーY: DIMA (日 ) 。B(B) 。R ま (14) 。 ビ (4。16) ,D( マ 7) 。E(B4) 。B(12) (4。E1) 。F( 
4) 。F 日 (4) 。 ロ (4) 。 ド (1 日 ) 。L( さ 7) 。F(4) : U ま = リ シモ チャ リュ ェ り = ニ リ ト ゴメ リュ 中 リ カミ チャ リュ メ 和 ま ニ リア ナー gaY ま モリ ステ イリ 
102_ BUSUBB5QOO 
104 FRINTCHR ま (1 で) : ロニ 0: RE= ニ 0= N5=Q 
105 EDNSDLE 。 』 ら 。 1: WIDTH40. 2 ら 
107 DEFFNA(Y)=INT(Y/10) : DEFFNH(Y ) = ニ Yー1Q※XTNT(Y/10) 
110 LUCATEO。9:FRTINT "2 イ ラ カキ マセ トル タメ "』gEHLURS ェ FRINT "ロー10 吾 "ssCOLOR7FRTNT リノ チ ニ リ sF 
RINT: CDLDR6:FRINT "Space Eey"i:CULUR7gFRINT" ラ 主 テ ウサ イード 
115 人 Q ま =INEEY:F フ =RND(1) 』TF ま S リ MTHEN115 に 
12Q0_ FRINTCHR ま (12) : CDLUR4:FRINT" ポポ 氷 4 ニー フ マー ミド ャ フン サド ー ム 。 ※※※ り sgFRINT 
121 COLOR2EFRTNT "EoOmDutr リュ 由 
122 CULUR7:FRINT" 力 " アナ ./ カミ チャ 。 ト ゴイ メン ョ シモ チャ ヲ ウケ モチ マス "gsFRTNT 
12 さ FRINT" リ ー チ 2 トキ ルリ "リリ igEOLURSEFRTNT "リーチ" ョ g EDLUR フ 7 フミ FRINT トーゴ フフ リト シー マチ イー Wi 
EDLUR6: FRTNT "トン" ョ ェ EDLDR フ FRTNT" マル "リョ EEDLDR6:FRTNT "ES 2" ュ ェ EDLUR プ フェ FRINT "2 ヨウ ニー ポ 
フフ タッ リト シマ ヌ 。 "saFRTNT 
1325 LUCATE10。9: CULUR4:FRTNT"※※ ルー ル 水 氷 り CHLHR フ ェ FRTNT "トラ トン マ ワ シー パフ チャ ー シメ テ "2o VsFR 
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TINT "テフラ タウ "ii EDLUR2 FRTINT "27000 テ フリ ュ ュ PDLUR フ ェ FRTNT "2 モチ テー テト 

00 テ フリ " ョ EEHLODR7 ェ PRTINT" 。 が リエ シ テマ 。"gFRTNT 

130 CULDR2:FRTINT "Eomputer"』 

131 CULUR フ FRTNT" ./ リリ ヨ サ ヨ ニュ ウリ ョ ワ シテ ワウ 9" サイ リ 

135 FRINT "9 ヨイ ー Pomputer.。。 1" 

140_ PRINT "フリ ウー COmDutF。 2" 

145 INFUT "ヨウ 7 Computer 。 。 .. さ "リョ NZ 

150_NB=10+15*% (NZー1 ) : N ウ = フミ ーN 

210 DATA a』D』C。d。。f。。h。 ミ 。。k。1。man 

220 RESTURE210:FUR1T=1TD14: READR$ ま (1 ) : NEXT 

2 さ O0_ FURI=1T ロ 4:F(1T)=27O00Os NEXT 

235 BUSUB3SBO0O 

25O_MIDTH40: CULOR4、255, 1 : PRINTCHR$(12) : CDLUR さ : PRTNT "イマ "イラ ナラ バテ イマ マ 。" 

260 BOTD1B2O 

270 ? シ "フフ / リー チ ノ ロン チェ ウッ ク 

2BO IFC(4。11 ) =C(4』 15) THENP さ =O BDTH さ O5 

290 1FC(4。11) =C(4』16) THENP さ =Os GBDTH さ 05 

さき 00_BDTD1 さ 1O 

さ 05 りさ =4: FRINTCHR$(12) :LTNE(O。 1 ) (7, 1 さ ) 。" 還 "4。BF: GBDTD94O0 

さ 10 ウリ ヨ サ 

さ 2O_a=RND(1 ) ※N9+NB RETURN 

さき 50 IFF (J1 ) =OTHENRETURN 

さ 69 IFLXG(J1) THENRETURN 

さき 70 FB (J1 ) =FB ( け 1)+1: X ニ 0: Y= ロ + (J1 一 1 ) *4sLUCATEX 。Y: CDULURS: FRTNT "ポリー チ !「 "sgFURT=1T ロ 5O: BE 

EP1: NEXT: BEEFOs RETURN 

4400 "ロン ナカ "し チェ リク 

410 C(J1、14) =E(L) :E=E(L ) : IFF (J1) =OTHEN4 さ Q 

420 ITFLG(J1) 一 1THEN44O 

430_A=RND (1 ) ※65+ 日 : IFL ミ THEN460 

440 IFC(J1。14) =C(J1。15) THENBDTDZ7SOGO 

450 IFC( け 1。14) =C(J1。16) THENBDTO7SOO 

人 466 エ 1=14 

470 ステル 9 イ テト ィ イス フ ? レイ 

480 L1=TNT((L-1 ) /4)+1:MM(J1。L1) =E:Y1=12+ (1 一 1) ※16: Y=Y1: TFL1*14THENBDSUB ミ OO BDTO4 

50 

4 X=L1※X10: GUSUB4O 

490 TIME ま ="O00OI OO OO 

SO00 ドド =INEEY ま :TFR ま = リ "THEN さ O9O 

10 IFTIME*="O0Ok OO OS "THENBDTD52OELSE5GG 

2O IFL7STHEN1 160 

530 IFJ1=1THEN1 180 

549 IFJ1=2THEN122O 

550_ BOTD126O 

560 リー チー ステ リル 9 イー テイ マフ 5 レイ 

570 C(4.14)=E(L) gL1=INT((L-1)/4)+1:Y=60: TFL1714THENBDSUE さ BOO RETURN 

575 X=L1X10 ょ BUSUB4O: RETURN 

58O "2 チャ ./ ロー チェ ッ ワ 

590_BDSUE さ 1O: IFF 日 (J さ ) *OTHEN6OO 

595 FL く YATHENRETURN 

600 IFC( け 1 。14) =C(J さ 。155) THENBDSUB7OOO: BUTD625 

610 TFC(J1、14) = ビ (J さ 。 16) THENBDSUEZOOO: BDTD625 

620 日 1=0:RETURN 

625 IFX=OTHENE1 =1 : RETURNELSEG1 =0: RETURN 

63 さ 0 ョ コーロ テリ イマ ブフ 9 ルレ y 

640 LUCATES。22: CODLDR5:FRINT "Aa H 選 D 3 記 1E】 H 1 J 4 
1 回 M N "isRETURN 

650 "リー チー // マチ 2 input トト セン ケン 

660 LUCATE1 .2 さ 』 TNFUT "マチ ーー1 " s MM : GBDSUB さ 55O: じ (4。1 王 ) = ロミ : IF ロミ =99THEN66O 

ら 662 BUSUB さ 510: LDCATE1 。 2 ミミ: CDLDR7: TNFUT リマ チーー2" ュ 人 ま BUSUE さ 550 ェ (4。 16) = ロ さ : 1F ロ ミエ =99THEN 

662 

665 BUSUBS510:LUCATEO, 17: COLDRS: PRINT "※ リ ー チ ! "=FHRT=1 TU5O: BEEF 1 : NEXT: BEEFO』 BDTD1 45 

O 

670 リー? イ 

6BO 1=1 

690 FURJ= エ +1TU14-N4*※ さ 

700 IFC(4。1) ぶ (4。J) THEN72O 

710 SMAFC(4。 1) ,。 ヒ (4。J) 

720 NEXT 

730 エ = エ +1 

740 1FT く 14-ーN4※ さ THEN690 

75O_RETURN 

760 7 タイ ニーノ ミュ リリ ョ フク 

770 J1=4: 11=1 

7BO X= ニ 11※10 一 10:Y=76: BDSUB40: 1 1=11+1 = TFT1 く NG+1THEN7BO 

790 "リモ “イラ カス 

BOO LINE(72。19) 一 ( フ 6。21 ) 。" 硬 " 4、BF RETURN 

1O FRINTCHR ま (12) :LINE (O。 1 ) 一 (7 日 。 1 さ ) " 較 " 。4。BF : DLUR フ ェ TFJ 1= ニ 1 THEN 日 本 =U も 

B2O 1TFJ1=2THENB ま = いま 

B さ OQ 1FJ1= さ THEN ま = 名 

40 LOCATE5。 OiFRTNTB ま 』" ノー リモ ロン フリ" ェ ビ 1= ゴ 1 : BUTD97O 

B5O_1TFJ1=1THENE ま =U ま 

B6QO 1FJ1=2THENH 和 = いも 

BZ7O 1FJ1= さ THENB 呈 = 

BBO IFJ1=4THENH ま =X ま 

B90 FRINTCHR ま (12) :LINE(O。 1 ) 一 (78。 1 る ) 。" 較 "4。BF: CULDR フ ェ LDCATE。O: PRTNTH ま 』" ノノ フリ コミ 

リョ = ビ さ ニー ゴ 1 : エ TF ロ さ = 1 HEN じ まま =U 計 

00 1TFJ さ =2THENC ま = いま 

910 1FJ さ = さ THENC ま = 

920 1TFJ さ =4THENC ま =X ま 


si CULDRSEFRINT "00 
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930 PRINTC ま ョ リー フー ロン リ "ミロ 1 ニーロ さ ェ ビジ マニ ロミ ミ BDTH ワ 7O 

940 IFP ミ =OTHENNS=14sP1=4: BUTU96O 

950 PF2=4: N2=1 4 

960 JJ1=4』 "アガ" リ ナカ "レシ ョ リ 

970 "アガ "リリ )" イ ノノ テニ ィ ォ ス フ ” レイ 

980 FURT=1TOU100』 BEEP 1 : NEXT: BEEFO 

990 IF(F1=4)+(F2=4) THEN1O1O 

1000_N2=1 さ 』 BHTUD102O0 

1010_N2=1 さ ーN4※ さ 

1020 FURT1=1TUNS: X=11※10: Y= 日 : BUSUB40g NEXTT1 

1030 民 (1) =E: ITFF1=4THENT 1=14ーN4※ さ : BUTD105GO 

1040 C(J1。11) =E 

105O_ X=1.40』 YEB: BUSUEB40 

1060_ BUSUB さ 1 さ Og IFFPS=QOTHEN1080 

1070 IFFS く >4THEN115O 

1080O IFN4=QTHEN1 15O 

1090 TFP1=OTHEN1110 

1100 IFP1SE4THEN1 15O 

1110 BUSUE さ QSO 

1150Q BOTO2S61O 

1160 COLURZ7:FRINTCHR ま (12) :FRTNT "すけ カ "し テ "スリ ェ フ さ =0』 BUTUS6 さ O 

1170 上 し = し +1: り 1=1:BHSUEB さ 50: BUTD400O ェ シモ チャ 

1180 J さ = BHSUB590i IFG1=1THENBSO 

1 19 〇 J さ = さ 』 BUSUB590: TFG1=1THENB5O 

1200 年 : GUSUB600』 TF ロ 1=1THENB5O 

1S10 し = し +1:J1=2: BUSUB さ 50i BUTH400g トイ ゴメ フ 

1220 J さ = ニ さ =s BDSUB590: IFQ1=1 THENB5O 
りさ 
J ゴ 








1 さき 4: BHSUE600』 IFE1=1THENB5O 





1240 J ミ =1 : BUSUB5S90: TFG1=1THEN ヨ SO 

1250 し = モレ +1 :J1= さ : BHSUE さ 50』 BUTU400: カミ チャ 

1260 J さ =4』 BUSUB600:』 TFR1=1THENB5O 

1270 1』 BUSUE5S90:』 IFE1=1 THENB50 

1280 J さ = BUSUES90: TFG1=1THENBSO 

1290 し = ヒ +1: T1=14ーN4※ さ ょ 1=4: 選 (1。1T1) =E(L) :E=E ビ (L ) :LUCATE7S 22gFRTNT 9 モ nY Ua X=144kY 

=76』 BUSUB40i『 リ 

1300 IFF6=4THENGUTOUS7O 

1310 IFF6=4THENFB(4) =F ヨ (4)+1:GUSUB56O: BUSUB790』 BOTH1 4 さ O 

BUSUB670』 BUSUB さ 1 40:N2= ニ 14ーN4※ さ : BUSUB770: IFN4S >OTHENBUSUE さ OCG 

1340 LUCATE5S』24』 CULUR フ EPRINT" リーチ <・・・ リ リーチ" ショ チ SDpace ドッ (ロン ・・"R7。 チイ = ビリ 
ホフ ・・ ド FT) "igLUCEATE1 。2 さ : INPUT リマ テバ 7 イリ ョ F ま = TFF 和 ま ="r "THENFRINTCEHR ま (12) LINE(O。1) 一 ( 

7 。 1 さ ) 。" 男 " 。4。HF : ピ さ = ニ 0 : ゴマ ニ 4 4 

1 さ 5O 1FF$= リ リー チ "THENF ら 6=4:FB(4) = 

1360 BUSUE3510: ITFF6= 昌 ENEOBATEt-226 COLUR7 INFUT "リマ テバ 7 7 リョ F 事 

BODSUB351O:FURF 1=1TU14: 1TFF ま =R$(F1) THEN1390 

NEXT 

LUEATE1 2 さき gFRTINT リマ テル 9 イー ルーN テマ "sgFURT=OTOD1000: NEXT:BHBUE3510: BHTD1 ミ 40 

1 1 =F 1 : ヒ = ニ ビ (4。T エ 1 ) = メニ F1 ※ ロ ー5: Y=1 昌 LINE(X。Y)ー(X+4。Y+ さ ) 。" 還 "4。BFL1=INT((Lー1)/4)+ 

1: NM(4, L1) =E: IFL1>14THENY=60: BUSUB さ 5OO: BDTD1 マ 97 

1 さ 95 X=L1*X10:Y=60: BDSUE40 

1 さ 97 FURJ=F1TD1 ミ : じ (4。J) = じ (4。 ロ +1) :NEXT = ドコ テリ "ゴイ ラ リッ ル 

1400 NG= ニ 1 ゴーN4※ さ 

1410 BUSUEB140 

1420_ BUSUB770: IFF6=4THEN65O 

1430 IFN 和 4 )THENBUSUES030 

145O_BOSU 0 

1460 J1=4kC(J1。14)=E ヒ 

1465 FURJ ミ =1 TO: TFFB (けさ ) 0OTHEN1470 

1467 IFLSA THEN1475 

1470 BUSUE60O』 TFEE1=1THENBSO 

1475 NEXTJ ミ 

14 ヨ 0 IFL7STHEN1160 

1490 BDTO1170 

150O0 『 

1510 “サイコ ロ フリ 

152O_ COLOR LUCATE さ 。6: FRINT" サ イー No。1。...."sH1gLOCATE き 。9:FRTNT" サ イー NO。 2。。・・・「 ョ 日 

15BO CDLDR7: LUCATE4 。 12:FRTNT "アナ 9 ニー Ta リ 「 リ VskEDLDRS:FRTNT ま :: ELUR7:FRINT リ 」 デス 

_ rsFDRI=1TO5000: NEXT 

1585 MIDTHBO。 25: CDULDR4 。 25 ロ 。 1 

1590_ FRITNTCHR ま (12) : し =O: N さ = ニ N さ +1 : IFRE >OTHENN ミ =N ミ ー1 

1592 M4=M4+1: TFRE:OTHENNM4=NM4ー1 

1595 IFN さ =5THENN ミ =1 

16OO LOCATE5。 1 : CDLUR: PRTNT "※※ 氷 オニ フ マー パャ フン ガーー ム ※※※ り LUEATE5O。 1 : CHLUR6:FRINT リト フリ 

sN さ CDLDR7:LDCATE さ 5。 0 FRINT リア ナー ニノ Ta"sLUCATE40。 1 :FRINT ま sLDEATE60。1:FRINT" ト " ラ 

リュ ミ ゴ 1=4: 11=14s 選 (1 。T1 ) =E メ (2) : X ニ 1 さ Os Y=O BUSUBEB4O 

160 ロ CDLDR7』 LUDCATEO。 さ : FRINTU ま : LUERTEO。 4:FRINTY ま =LDEATEO。7 ェ FRINTV*: LOCRTEO』B:FRIN 

TY ま :LUCATEO。11:FRTNTM ま :LUCATEO。12gFRTNTY ま :LUCATEO。 15:FRINTX 生 :LOCATEO。16:FRTNTY も 

1610 C(4。14) = 日 : BDSUE670: NG2=1 さ : BHSUBZ770』 BUSUE6 さ Os TF ま =" の 09 YU THEN1170 

1620 TF ま = リ シ ジャー" THEN1S1O 

16 さ 0 IF も = リナ フリ THEN125O 

1640 BUTOU1S9O 

1650 ロコ =INT(RND (1 ) ※ さ ) = ロニ ロ ※ 10+F : = 

166Q IFD(H+T) =4THENDNUGBUTUD1960。 2120.2190 

1670 征 =T+1 

16BO IFTSB+1THEN166Q 

1690 =Q 

17OO_D(H+V) =D (HH+V) +1 : ツモ V+1 』 TFVSB+1THEN1700 

1710 _ RETURN 

1720 H=INT(RND(1 ) ※ さ フ )+1: TFH/ 109=INT(H/109) THEN172GO 

173O IFD(H) FTHEN175O 

















0 
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1740 BUTH172O 

1750_D(H) =D (HH) + ロ RETURN 

1820 "メモ リ / ウリ ヤ 

1 コ 830 F1= ニ 0Q:FG= ニ 0:F さ = ロビ 4 オ ニー 〇 ェ ビ 6 ら = テ 0 ェ : ビブ = ニ 0:R1 =O』 1= ニ 0: N4= ニ 0 N5=O 1= ニ Os Z1=0: FDRT=1T ロ 4 
1840 FURJ=1 TU16:C(T。J) =Os NEXTJ gs NEXT エ 

1 ヨ 845 FUR エ T=1TD18:iF ド (1T)=OiNEXT 

185O FURT=1TD さ 7 D(T)=OsL(T) =OkNEXT 

1855 FOURI=1TOU4:FURJ=1THS1:M(1。J) = テモ Os NEXTJ: NEXT エ 

1860 FDRI=1TUB4:E(T)=QiNEX 生 

1865 FOR エ T=1TU4:FB(T)=QOiNEXT 

1870 PTY T 

18 ヨ 0 J1=O 

1890_ BUSUEB さ SS2Oi 1= テ 1 二 1: し INT (RND (1 ) * ら 6) : ITFL=5THEN235O 
1900 IFL=4THENA=4: BHTUD192O 

1910 人 = 

1920 HH=INT(RND( 1 ) *※ 内 1) 』 TFE=OTHENSQO5O 

1 ワ GOm22220a82 り 

1940 BUSUBSSSOE1=Q 

1950 E1=E1+1 

1960 F=INT(RND( 1 ) ネフ ) 1 :G=2 =1 

1970 BUSUE165O 

1980 C(J1。(E1-1 ) ※ さ +1 ) =H:C (1 。(E ビ 1 一 1 ) ※ さ + オ 人 2) モナ 1 選 (J1 。(E1 一 1 ) % コ オ き ) モ H+ ナ 85 TFE1SETHEN195O 















1990 IFA HENS2O10 
2OQQO_ BT さけ 
IFB= さ THEN2O70 
BOTU2O5Q 
TIFB=4THENSO7O 





2040「 ト “ウリ 

SO05O_BUSUB さ 52OiFURT=1T ロ Ri ビニ マ ェ ロ =ー さ BUSUB1720』 (1 。 (エー1 ナ 日 ) ※ マ +1 ) Hi (1 。 (エー1 BB) ※ さ きす 
3) =H: ビ (1。 (エー1+B) ※ さ +) =H: NEXT 

2060 「 アタ マ 

2070 1FL=4THENS370 

208O F= 2 BOBUB1720gC(J1.10) =HgC(J1。.11) =H 

2090 リャ フン メ ン 

2100 IFL=OTHENS12O 

2110 BOTOS170 

2120 F=INT(RND【( 1 ) ※ ら 6+2) = ニ 1 : = 

3130 BUSUB165O 

=140 C(J1。1S) =HgC( け 1 。1 さ ) = ニ H+1』C(J1。15) = ロー1 』C (1 16) = ニ H+ 人 Gi TFJ1 さ THEN1890 
2150 BOTU242O 

の AE7 チ セ ウ 

2170 1FL=1THENS190 

218O BOTO22BO 

2190 N=INT(RND( 1 ) *※G) : TFN=QTHENF= 日 : BHTU221O 

2200 F=1 

2 で 10 58=1 : = さ 

2S22O_ BUSUE165O 

C( け 1。 1 人 8) =HiC(J1。 13) =H+1』 IFF=1 THENC (J1 。 1 弓 ) =H+2: GBDTOSS5O 

2240 C(J1 。 15) =H-1 

SS2SO C(J1。16) =0g TFJ1 ぶ さき THEN189O 

2260 BUTD242O 

2270 "カフ チャ フ 

SBO_BUSUB さ 52Oi TFL=2THEN2 さ OO 

2290 BUTUS41O 

<300 F=INT(RND(1 ) * フ )+1: ロ =TNT(RND (1 ) % 計 ) :H=GBX10+F: TFD (H) =4THEN2 マ OO 

2 さ 10 IFD(H+2) =4THEN2 さ 0G 

< さ 3SO_D(H) =D(H)+1:D(H+S) =D(H+2)+1: ビ (1 、12) =HgC (1 1 る ) =H+2g ビ (1。15) =H+1: 選 (1。16) =O 
i ITFJ1< さ THEN189O 

2 ささ 0 BOTOU242O 

2 さ 40 チー トイ ゴリ 

< さ 50_ BOBUH さ 52O ェ FURM=1 TH6:F= さ : 避 = ェ BHSUB172O ェ ビ ( け 1 1+(Mー1 ) ※2) HH: 選 (1 2+(Mー1) ※ 人 2) =HiN 
EXT 

2360 "タンキ 

< さ 70 F=4: 品 =1: BUSUB1720gC (1。 1 ミ ) =H 

23BO CC( け 1 。15) =H: ビ (J1。16) =0』 TFJ1 で さ THEN190 

2390 BUTU2420 














2400 シャン ホッ フラ 

241O P ロー ュ は USUBH172O ェ (1 。 1 で ) =H: ビ (J1 。1 さ ) =H: (1 。 15) =Hg ビ (1 。16) = ビ (J1。10) 』TFJ1 ミ S 
THEN1890 

2420 " 


24 さ 0O_ BUSUB3S2O: FUR エ =1TO1 さ 

440 H=INT(RND(1 ) ※ さ フ ) 二 1 : IFH/ 1 の =INT (H/1O) THEN2440 
<45O IFD(H) =4THEN244O 

2460 (4。1) =Hi D(H) =D (HH) +1 : NEX 生 

2470 "dd( ュ 1) ラ (1 ) ニ j レ ルル 

24B0 L=Q 

<490 FURI=1T ロ ミ 7= DrT ) =4ーD(1 ) : NEXT 

25OO_ FUR エ =1T 有 ミ フ ェ TFT/10=INT(T/10) THEN25 さ O 

2510 FDRE ド =1TOD1 ) : IFD(1) =OTHEN253O 

2520 上 L=L+1:E(L) =I NEXTEK 

253 さ 0Q_NEXT ェ 

2540 "(1 ) ラキ ル 

255O_ PRINT: FRINT "コレ カラ サイ ヲ フリ ママ 。 

256O_ FOUR エ T=1 TU2OOi =INT(RND (1 ) *※4S) 1: 昌三 INT (RND(1) *※42)+4 さ : SMQAFE( 全 ) 、E(B) : NEXT 
2 るり 三 あ セミ シク ドコ テキ 

25 ヨ O_ FDR エ =1 TU さ :F( エ )= ニ INT(RND( 1 ) *※2) NEXT 

2590 FDR ユ =1TOD ミ SsG(T)=RND【( 1 ) *N9+N 日 : NEXT 

260O_ PRINTCHR ま (12) : BUTU15OO 

る 2610 BODSUB4410 
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2620 BUBUB55Q0O 

2630 FUR エ =1T0 さ : IFF 昌 (T) >OTHENFR=FR+1000 ェ F(T)=F( エ ) 一 1000 

2640_ NEXT 

2650 TFPF6>0THENFR=FR+1000:F(4) =F(4) 一 100O 

2660 IFF1 0THENF (F1 ) =F(P1)+FR: FR=O 

2670 IFP2>OTHENF (P2 ) =F(P2)+FR: FR=O 

2910 LUDCATE45。 15: CDLUR6: PRTNT "ポポ テン フ スウ ヒョウ **※"sLUCATE45。 16: CULUR7: FRINT" ( アガ リ テ フ 
"2 さ 9) 

2915 LUCATE40。 17: CDLUR4:PRTNTU ま 。: EDLUR7:FRINTF(1 ) 

2916 LHCATE40。 19: CDLUR4: PRTNTV ま 。 : EDLOR7:FRTNTF () 

2917 LUCATE40。21』 CDLUR4:PRINTM ま 。 : ELUR7: FRTNTF (③) 

291 昌 LUCATE40。2 さ LTNE2 さ 1 : CDLUR: FRINTX ま 。F(4) 

2919 IFM4>7THEN62O00』" リフ チャ フ オリ ワリ 

2920 CDLUR7』 PRTNT "マラ サイ ラ フッ テ 2 サイ 。Push any key"i 

2921 TFTINKEY=" リ "THEN2921 

2922 PRINTCHR ま も (12) 

る 925 ロ TFP ロニ F 1 DRF ロ =FSTHENRE=RE+ 1 : BHTU25OELLSERE=0i BODSUEB さ 710: BUTUSSO 

29 さ 0 の 77T 

2940 N4=N4+1:LTINE(X、Y) 一 (X+9。Y+1 1 ) 。FSET。 4。 HBF : エニ 1+(N4ー1 ) ※ 

LUCaTE1 。 INFUT "27 バ ルイ ー1 PT (人 RN) リ iF 生 G+(N4-1 ) * さ 』 BODSU 

リリ イー で で (人 aN) "「』F ま ドニ ゴ +(N4ー1 ) ※ さ BUSUE。 Os N5=N5+ 1 : GUTD1 

2950 1 ラー=F 1 

2960 じ (4』 12) =C(4。 TS す 1 ) iT モニ T エ デ +1 

2970 TFTSH14THENE960 

29BO N ロ =N5+ 1 : NG=1 さ ーN5 BHSUB さ 1 40: BUSUB770』 RETURN 

3000 LUDCATE1. 人 でき: CULOUR4: ーー 

RF 1=1TD14: 1TFF ま =R ま (F1) THENSOSO 

さき さ 9O10_ NEXT 

J1=4:T1=F1:iGB(E 

X=100ー(N4ー1)※ 

040 FURJ=1+ITUN4* マ 

30550 IFB(T)SB( け ) THENSO70 

3O6Q0 SMaAFGB(T)。B( け ) 

3070_ NEXTJiNEXTTI 

さ 3080 FURT=1TDN4* さ 1=4: T エ 1=11+ エ ー(N4ー1) *※ き : ビ ( け 1。T1) =G(T) : X ニ メ +10: Y=76: IFF1 GURFS*OTH 

ENY=24 

ェ ミ OB BUDSUB40:LUCATEX/G。Y/4+ さ : CDLOR6:FRINT" す キ "iiNEXT:RETURN 

3090O LUCATE1 .2 さ ュ INFUT "ジョ チリ "リュ ビ ま LHCRTE1。 COULDR4: FR TNT 「 画 還 還 旨 納本 "。:TF に ま ー リ DP"THENS 
1=51+1 : BUDTUS9 さ 0 

3095 TFC ま ="cC"THENR1=R1+1: TFJ1S 

ELSEBDTOUS53Q 

さ 100 TFC*="F"THENP1=0:FS=4 ェ F さ = 1 : 1=4: ココ =4:FRTNTEHR ま (12) =LINE(O。1) 一 (7 日 13) ・! 環 
> BF: BDTH970 

3105 BOTUSQ90 

3130 LUCATE2、12:PRTNT" リ トラ 07 "ET1= ニ OiC(J1。11) =E(BS) : X=2O: Y=403 BDSUH40+ LUCATE1B・ 1 

FRTNT "ウラ ト " ラリ" ェ ビ (1 。11) =E ヒ (日) : X ニ 52 ェ Y=406: BHSUB40: RETURN 

ミ 140 LINE(O。19) (77』21) 。"" 4。BF:RETURN 

ミ 18O LINE(O。2O) (77.21) 。" 画 " 4。BF:RETURN 

350Q FURT=2OTD140BTEF10: BET9(T。Y) 一 ( エ +9。Y+11) 。BX。Bs CDLUR フ 7 FUTS (エー10。Y) 一 (エー1。Y キ 11 ) 
。B.FSET: NEXTT: X=140: BUSUB40: RETURN 

3510 LUCRTE1. 2 さ : COLUR4: 1 N 1 KGFRRDPSS 誠 ht5959ES2 和 on29CEHSBBWEHD お EPRS 天 HBgT 

回 昌 EEBBNSGSERERIGEISBEEEEEEIEER5E":: い ETURN 

352O MM=INT(RND (1) * さ B) : IFINT (WM/10) =M/10THENSSEO 

52 ロ X=TNT(RND( 1 ) *※ さ 2) *G:Y=INT(RND(1 ) ※18) ※4+1 2 5 

ささ 0 NMBDTD41 。 42。 4 さ 。 44,455。 46』47。 4 日 。49。50。 ロ 1 。52 5 さ 。 王 4。5 ロ 。 6 5B, 59。 60Q・ ら 1 。 6 さ ・ 6 さ 
。 64。6 コ 。 66』 67。 6 日 69。70。71 72。 フ さ 。 74。75。 76』77 

355O ロ 4=QSC (MM 叶う 

555 IF(O4:57)+( ロ 4 ぶ 48) THEN さ 600 

560 D エ =0: 品 ま =MTD ま (M ま 。2。1) : TF( ロ =" に リ ) す (ロリ マリ ) キ (= ) HENSG7OELSEBUTH3670 

570 IFD ま も = リマ "THEN ロ =10 

さ 5BQ 1FU ま = リツ"THEND ミ =SO 

さ 590 ロロ さ = ェ ロミ + ロ 4ー4 日 : RETURN 

ミ 60OQ TIFLEFT ま (MM ま 。1) = リト "THENDS 

ミ 610 IFLEFT ま (Mb。1)= リ ナリ"THENDS 

さ 62O IFLEFT(M ま 。1)= リ "THENOS 

ミ 6 さ の IFLEFT$(M ま 。1)=" リ バリ THENDS 

さ 640 1TFM$= リ リリ リ THEN ロ さ = さ 5: RETURN 

6 コロ O IFLEFT ま (M も 。 1 ) = リ チ "THEND さ = さ 6』 RETURN 

さ 660 ITFM ま = リリ "THENO さ = さ 7 : RETURN 

さ 67O ロミ =99』 RETURN 

さ 700 "ハシ ジョ ー ラ マヌ メル 

さ ア 10 F ロ = ニ P ロ + 1 : TFF>4THENF ロ =1 

ミ 72O 1FF ロ =1THENQ 和 = リバ YTgBUTUD さ 760 

さ フ さ O 1TFF5=2THEN ま = リ シ ジャー" リュ BHTH ミ 760 

さ フ 740 1TFF ロ = さ THEN ま = リナ フリ ュ BUTD3760 

さ 750 TFP5=4THENA ま = リト っ フリ 

さ 760_RETURN 

さ B0O_H1=INT(RND(1 ) *6)+1:H2=INT(RND( 1 ) ※6) 上 1 = 日 ミ =H ロ 1+H 

さ B05 FDRI=OTD2:F ロ = ニ H さ ー1 一 TX※4: TFPFSX5THENSB10ELSENEXTT 

10 FURA=OTU2:』 TFH さ = ニコ +AX4THENA ま ="nS "=H4= ニ 4: BHTH3B60 

さ B2O 1FH さ = さ +QX4THENR 和 ま = リ シャ ー" =H ロ 4 オニ さ ミュ BUTD さ B60 

ささ O 1FH さ =4+ 人 Q※4THEN 和 = リナ ー ン リョ 4 オニ 2 ェ BUTHSB6O 

さ B40 1TFH さ =5+ 人 4THEN ま = リト フリ ュ H ロ 4=1 : BHTDSB60 

る 85O_NEXT 

さ B6O_ RETURN 

4400O ヤフー.// カゴ サン MM= ニ ヤ ワ フッ マン N= ヤ ウマ ヌ ウ 

4410 LUCATE5, 15: FRTNT"※ 氷 ヤ フ ポポ 氷 り 

4415 IFJ1X 4THENN4= ニ OS1= ニ OR1=Q 

4420 BUSUB7OO5: IFX=1 THENFRTNT "フリ テー リュ ェ BOTD475O 


B(1)=E(L) し デレ +1』: CULHR プ ェ 
5OOiLDCATE1.S さ TINFUT "2Y 
9 



















=C(J1、11) :C(J1 。11) = 日: BUSUB295O: RETURN 
FURI=1TUN4*※ ミ ー1 





THENP2=4: 1=4: メニ 1 : =O: N=O:FRINTCHR あ (132) BUTHS6SO 








1:RETURN 
RETURN 
RETURN 
4: RETURN 
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443O 
4440 
445O 
446O 
4465 
447O 
448O 
4490 


4510 
4520 
454Q 
455O 
456O 
457O 
45BO 
459Q0 
460Q 
4610 
462O 
463Q 
4640 
465O 
4660 
467O 
468O 
4690 
4700 
4710 
472O 
4730 
4740 
475O 
4760 
477O0 
4790 
4800 
481Q 
4820 
4B3O 
4840 
4850 
46Q 
4B65 
487Q 
4B75 
488G 
48 昌 1 
4BB2 
4 日 3 
48 昌 4 
4886 
4890 


492O 


4930 
494Q 
495O 
4960 
4970 
498Q 
4990 
49595 
5Q0Q0Q 
501O 
502O 
0 さ 30 
5040 
505O 
5o7O 
508O 
509O 
510O 
5105 
510 フ 
5108 
511O 
512QO 
513 
5125 
513O 
135 
紀 140 
515o 
5160 
5165 
517GQ 
3 お 75 





N=0s MM= ニ 0 Z1=0』 GU=Os X=14: GUSUB6OOO: IFN4 >OTHEN4465 

IFPB (J1) GTHENPRTNT "リー チ ・・・・・・・・ ・・・ 1 "EN=N+1 

IFFB (J1)=1THENFRTINT "fg リ ェ ュ ・ ュ ュー ュー ューー・ 1 s N=N+ 1 

IFF1OTHENFRTNT "リモ ・・・・・・・・・・・・ 1 EN=N+1 

H5= ロ ーF5+ ゴ 1 : TFH5:4THENH5=H5 ロ ー4 

FDR エ =1TD1 さ STEF2: TFE(T) く >E( エ + ォ 1 ) THEN465Q 

NEXT1I GUSUEBBO1O 

IFE(1) >3OURFNA(E(1) ) く FNA(E(14) ) THEN4551QELSEPRTNT"" イ シャ リン フェーーー・・ ・ ヤマ フリ ョ =M+ 





1: BUDTH5470 


IFE(14) >2BTHEN455O 

FUR1=1TU1 さ STEP2: ピ =FNB (E (1 ) ) : IFP=1 ロ RF=9THEN455O 
NEXTT:FRINT "ウン ポ オ ・・・・・・・・・・ー 1 : NEN+1 : BDTD4640 
IFE(1) ぶ 3OTHEN457O 

FRTNT "リウ イー リウ チー トイ リ ・・ ヤヤ ワウ マン" ェ MM=M+1 : BUTD547O0 
FORT=1T013STEF2』 TFE(T) > さ OTHEN459O 

F=FNE(E (1) ) : TFP 1RNDF9THEN460O 
NEXTT:FRINT "ホウ ロー トウ ・・・・・・・・ 2 NEN+ 人 Si BDTD4640 
F=FNA(E(1 ) ) =FDRI= さ TD1 さ STEP2 

IFE(T) 3OTHEN463O 

TIFFX >FNA(E (1 ) ) THEN4640 

NEXTTiFRTINT "ショー ミヤ ャ リフ ・・・・・・ 6 N=N+6: GBDTH545O 
FRTNT "チー トイ リャ ャ ャ ・・・・・ ・ SgZ1=100: N=N+2』 BUTD545O 
F=OiFURT=2TD14: TFE(1ー1 ) =E( 1 ) THENF=F+ 1 : ロニ ビ (1 ) 
NEXTTi IFF く >1THEN4710 

FUR エ =1TO14: IFE(T) さき OTHEN4690 
F=FNE(E(1) ) : IFF1ANDFX9THEN4710 
NEXTTI:FRTNT "コウ シム ソウ ・・・・・・・・ 邊 フッ フリ ミニ M+1: TFES KR(1) THEN547O 
FRINT "1 エメ ー マチ ・・・・・・・ー ヤ ワ ッ フリ ミ MM+1 : BUTD547O 
FUR1T=1TO14:F=4+FNA(E(T)):E(F) =E(FP)+1:NEXTT 

"=Ok OFHR エ =4TO7Zg TFE(1 エ ) / さ =TNT ( ド (T) / ミ ) THENF'=F+1 
IF (RE(T)+1) / き =INT(( ド (T)+1) / さ ) THENG ロ = ロ + 1 に (日) = エ 
NEXT Ti IFF=3NDE=1 THEN4760 
LINE18。1:LUCATES。18:FRTNT "チョ ー ホ " !! 日 OOO テ ーッ カバ フ テン フリ "= N=O =O: RETURN 
F=(R(B) 4) ※10+1 ょ ロニ ビ 日 : FE (日 ) = ア THEN= さ フ 
BOSUBBOOO FOR エ T=FTOGz TFL (T) で 2THEN4810 

L(T)=L( エ ) 2 記 (18) = GBDSUEB ウ OOO TFX=GTHEN4B20 
BUSUEBBOOO 

NEXTIi GUT ロ 475Q 

FOURJ=4TO7Z: TFJ= ド (日) THEN4 ヨ 5O 

F= (ロー4) 10 二 1 s 品 ニ 日: エ F ロ = モア THEN ロ = さ フ 

BOSUB9O00』 ITFX=1THEN475O 

NEXTJi BUSUBBO10 

BUSUB6100: DNSB-13BDTH5120。55120.4970。4870。5210 
TIFS2=1THEN4B75ELSE48BO 

ITFSSS*QOTHEN48 ヨ O 

FRTNT "サウ アン コウ ・・・・ー・ーー・ で" N= ニ N+ る 2 
FORX=1TOD4: X1= ド (1 コ +X) : TFX1 > さ OTHEN4 ヨ 82 

人 (X)=FNE(X1 ) 

NEXT 

FURX= 1TU さ :FURY=1 TH4-X』 TFA(Y)<=Q(Y+1) THEN4BB6 
SMAPA(Y) 。a(Y+1) 

NEXTYi NEXTX 

IF(R(1) =( さ ) ANDa(1) 0) DR(A(S) = 人 (4) NDA(G) *O) THENFRTNT "サー ショ ワ ト * ウ コ ウ ・・・ 2 kN=N 






+Si GBDT05310ELSE4920 


ITF (人 (1) +== 人 (さき ) ANDA (1 ) 0) DR(A(S) +2=a(4) ANDA(G) 0) THENFRTNT "サン ル ン コウ ・・・・・・・・ 19 


: N=N+Si BOTD49BO 


IFL (31)+L (32S) +L (さき 3)+L (さき 4) く *11THEN495Q 








FRTNT "ヨウ マウ シュ ・・・・・・・ ヤ ワ ウマ" ミ MM=M+1 : BUDTH5470 

TFL(35) +L ( さ 6) +L( ミ 7 ) =9THENFRTNT "の" イサ フサ トン ・・・・・・ ャ ウッ =M+1: BDTD547O 
IFSU=1 THEN503O 

IFL (35) +L ( さ 6) +L ( さ 7) =BTHENFR TNT "ジョ ウサ フカ サフ ・・・- ーー 2": NEN+2: BUTU5100 


IFFNA(E(1) ) く >FNA(E(14) ) THEN510O 

Y=6』 IFN4 >OTHENY=5 

FRTINT リ チ フ ガイ リャ ・・・・・ ュ ュー・ PE Ys N=N+Y 
FURT=3TH1 1 : FE( エ T)+1 ぶ E( エ +1 ) THEN5O さ O 

NEXTTi IFE (3)+BX SE(12) THEN5O さ O 

FRTINT "チュ ウレ ー ホ 9 ウト ウ ・・・・ の ルリ 5 MM+2』 BUTU547O 
FURT=1TD14: TFE(T ) =22DRE (1 ) =2 さ RE ( エ ) =24THEN5O7O 
IFE( 1 ) =26URE( 1 ) =2BURE ( 1 ) = ミ 5THEN5O7O 

BUTOS5OBQ 

NEXTT:FRINT "リュ ウイ ー ソ ウェ ・・・ー・・ の フト ルリ" ェ MM+2: BDTU547O 
TIFSU=1THEN5470 

BUT0D5 さ 10 

FURI=4TD6 

IFK(T)+ 民 (7) ぶ >14THEN511O0 

Y= さ 3: IFN4 >OTHENY=2 

FRTNT "ホフ イリ ェ ャ ュー ュー ューーーー "sa Ys N=N+Ys BDTU5O さ Q 
NEXTI : GDT05 さ 10 

X%1= ビ (J1。155) : X コ = ニ ビ (J1 。16) : TFX1 は さ OURX2 さき OODRFNA(X1) < >FNA(XG) DRABS (X1ーXG 





IFP1 OHRN4 >QURR-10< 4HRE (1 日 ) = さ 10RE(18) *4HRE (18) - ミ 0=H5THEN51 マ 5 
FRTNT "に リラ ウェ ェ ・ ュ ーーーー・ 1 N=N+1 

F=1: FOUR OTU1S:FURJ= テ 1 エ +1T ロ 1 さ 

IFK( エ ) ミ (J) ANDFNE ( ド E( エ ) ) =FNB (FR ( け ) ) THENF=+1 

NEXTJ。 1 Y マ = ニタ 2: TFN4 *OTHENY=1 
IFF* さ THENFRTNT "サフ シキ ・・・・・・・ 
IFEK(10)+ ミ 
IFK(10)+ 
IFK(10) + マ 














・"s YEN=N+Y: BOTD5 さ 10 
KK(11)aNDE(11)+ ミ = に (12) 丁 HEN52OO 
(11) ANDR (11)+ ミ = に ド (1 さ ) THEN520O 
・(12) ANDE(12) キミ = ド (1 さ ) THEN52OO 
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518Q 
5190 
520O 
5205 
5210 
52SO 
5230 
5240 
525O 
5270 
52BO 
5290 
5300 
5305 
530 フ 
5 さ 310 
5320 
5 ささ 0 
5 さ 40 
5350 
5 さ 555 
5360 
5 さ 65 
5370 
53BO 
5385 
5390 
540O 
5410 
542O 
5430 
5440 
5444 
5446 
5448 
545O 
5455 
5457 
54609 
5470 
548O 
550O 
550OS 
5505 
5510 
5515 
552Q 
525 
527 
55 さ 0 
5534 
55 さら 5 
5537 
5540 
555Q 
5560 
557O 
55BO 
5590 
5600 
5605 
5610 
562O 
5625 
5630 
5640 
5650 
5660 
567Q 
5675 
5680 
5690 
570Q 
5710 
5715 
5720 
5725 
5730 
5740 
5749 
575Q 
760 
577O 
578O 
790 
580O 
581O 
5B2O 
583O 


TFE(11)+ さ =RE(12)ANDE (12)+ オ コー ニ ド (1 さ ) THENSSOO 

BHTO498O 

Y=2i TFN4 >OTHENY=1 

PRINT "ゴリ キリ ウ カ フ ・・・・・・・ "YiN=N+Ys BDTU498O 

IFB2 >0THEN52 さ QOELSEPRTNT "マー アフ コウ ・・・・・・・・ ャ ワウ マー リュ =M+1 : BU=1 
IFE(1) =F(1 日 ) THENFRTNT "ルッ キ ・・・・・・・・・ ヤ ウ マ ー ン リョ MM=M+1 
TFL(1)+L し (9) し L(11)+ し (19)+L(S1)+ し (29) ミ テ >14THEN525O 
PRLNiT "サチ フロー トド ウーm sr" ャ ウッ ン "=M+1 : BDTD547Q 

TFE(14)+ ミ <SK(17) DRE(17) > さ OHRE (14) 一 1O※TINT(E(14)/10) 6THENSSBO 
PRINT! ス ヌー レン コウ ・・・・・・・ ・ ヤッ フリ ェ M=M+1 : BUTH5470 

IFE(1) 2 さき OTHENPRTNT "リウ イー ソウ ・・・・・・・・ ヤッ フリ 5 MM+1 

IFL ( さ 1) +L( ミ 2)+L (さき) +L ( さ 4) く 12THEN5 ミ Q5 

PRTNT " ワ " イ スウ シ ・・・・・・・・* 9 ルリ" ェ M=M+2 ミ BDTH5470 

IFSU く >1THENPRTNT "トイ トイ ・・・・・・*・・ 2" 』N=N+2 BHTH4 昌 65 
BOT0D493O 

F=0i =OsFURT=14T ロ 1 昌 : IFK(T) 30THENE=+ 1 : GUTU5 さ 30 

R=FNB (KR (1 ) ) : IFR=1 DRR= ウ THENP= ビ +1 
NEXTTI:FURI=10TD1 さ :R=FNB(E(T) ) 

IFR=1 DRR=7THENF=F+1 

NEXT1 : IFF=OANDG=OTHENFRTNT "ワッ ヤキ ャ ・・・・・・・・・ 1":N=N+1 : BODTU5 ミ BO 
= TFN4 GTHENY= タ 

















IFF=5THENFIRTNT "E パ ュ フ チャ フワ ェ ・・・・・ ュ YE NN+Y: GBDT0D5S さ BO 

Y=2: IFN4 >OTHENY=1 

IFF+G=5THENFR INT "チャ フワ ・ ャ ・・・・・ ・・・ "EYEN=N+Y 
IFN4QOTHEN5400 
FORI=10TU26-8: IFE(T)= ド に ( エ +1) ANDR(T) OTHENPRINT WTYn3 ゴ コウ ・ ャ ッッ ・ ・・ 1": N=N+1 
NEXT+ 

IFL (35) = さ 3THENFRTNT "ルリ リャ ュ ・・・・・・・ ・・ 1 N=N+1 

IFL (3 さ 6) = さ THENPRTNT "チュ ラフ ・・・・ ッ ここ ・ 1 』 N=N+1 

IFL ( さ 7) = さ THENFRTNT "リウ ・・・・・・・・ ・・・・ 1 7 EN=N+1 

IFL ( さ 1 ) = さ THENPRINT "トラフ ・・・・・・・・・ ・・・ 1 リ 7:N=N+1 
IFH5=1ANDL ( さ 1 ) =3THENPR INT リトラ ・・・・・・ ッッ トト ドー 1 : N=N+1 
TFH5=2ANDL (2) = さ THENFRTNT "リナ フ ・・・・・・・・・・・・ 1 NEN+1 
TIFH5= さ ANDL (ささ ) =3THENFRTNT リセ ー・・・・・ ド ドット ・ 1 7 gN=N+1 
IFH5=4ANDL (34) = さ THENFRTNT "の "ゴイ ・・・ ッ ーッ ッッ ッッ 1 リ 5 NN+1 
IFL>6BTHENFRTNT "パイ テイ ・・・・・・・・・・ー 1『 EN= ニ N+ 1 

IFL く 5THENPRTNT "テー フ ホ ウ ・・・・・・・・・ ・ 7 フト ルリ = M= ニ M+2 
IFN=OTHENRETURN 

J=E (2) 』 IFL (J) >OTHENPFRINT "トリ ラ ・・・・・・・ ッ トー "sL ( け ) : N=N+L (J) 
J=E( ミ ) : IFPB (J1) *OANDL ( け ) >QTHENFRTNT "ウラ ト " ラ ・・・・・・・・・ "上 (J) : NEN+L (けり ) 
RETURN 

* キソ テー フー ニ a 1 

1FM:OTHENA1=BOOOXIM: 2=R1% で BUTD56SO 
TIFN:12THENA1=BOOO』 2=R1※2: BUTU56SO 
IFN:10THENA1=6000: 2= 人 1XG: BUTU56SO 
IFN:7THENA1=4000: 2= 人 1※2: BUTD562O 
TIFN:5THENA1= さ 000: 2=A1% 人 2 BUTU562O 

IFN* さ THENA1= ニ 2O000: 人 21 %※2: BUTU56SO 
IFN=OANDM=QTHENBUSUB4750』 BUT057SG 
IFZ1:99THENZ 1= さ Oi BUTH5610 

279 

Z1= さ Os IFF フ =1THENZ 1 =22 "9 モ 

IFN4 SQTHENZ 1=20 " ナ キ 

FORI=14TOU17: IFK(1) =OTHENS560 

9=FNB (KR(T) ) : IFJ=10RJ=9 ロ RR (1) > さ OTHENZ 1=Z1+BELSEZ1=Z1+4 


NEXT 

IFS1 >0THENZ1=Z 1 一 5S1 

IFE(1B) = さ 10RE (1B) > さ 4DRE (1 日 ) - き 0=H5THENZ 1 =Z1+ る 
IFZ1/10=INT(Z1/10) THENBUTUS610 
Z1=INT(Z1/10) ※10+10 

2/ 二 ん 2 

7Z さ =Z 1 : 人 1 ニア さ *2(N+2) : 2= 人 1 内 1 
IFF1=QTHEN5720: "リモ ロン テ ^ ナ ケ L し バー 57SO 
BODSUES900 

IFFSS >P1THEN568O 

ァ 下 ソー リモ 

Z さ =QA2* さ sFHR エ =1TD4: TF エ =J1 THEN5670 
F(1)=F (1 ) 人 2 

NEXT:F (J1)=F (J1)+Z さ RETURN 

ツモ 

7 ミニ = 1 ※G+AG = ゴ コ =F5: FDRT=1TD4: TFT=J1THEN5710 
TFT=J2THENF (T) =F( エ ) 2 BUTD5710 

F(T) =F(1) 一 人 1 

NEXT:F (J1 ) =F (J1) +Z さ : RETURN 

フリ コミ 

1 = : ゴマ ニーP マ : 1= ニ 1 4: TF ピ ローP2THENR1= 人 1※%1.5 
BOBUB59O00 

F (J1 ) =F (J1 ) + 人 1 ょ F(J2) =F (JS) 1 : Z さ = の 1 
RETURN 

* 750-58 さ 0 リリ イカ 

TFP1 =F5DRFG=P5THEN5BOO 

Z ミ ニーヨ OOOsF ( け 1 ) =F (1 )+Z さ :F (F5) =F (F 紀 ) +4000 
FDRI=1T ロ 4: IF1=J1 ロ RI ユニ PBTHEN5750 

F( エ 1)=F(1T)+2OOO 

NEXT: RETURN 

Z コ =ー12000:F (J1 ) =F (J1 ) +Z さ 
FORI=1TD4: IF1 エ =J1THEN5B さ 0 

F(T)=F(I)+4000 

NEXT: RETURN 
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500 ” テ フ スウ ノ ギリ ア ケ ~ 
910 IFA1=INT(AT/100) THEN592OELSEA1=TNT(A1/100) *※100+100 
5920 IFA2=INT (2/100) ※100THENRETURNELSEAS=TNT (QA2/100) ※100+10O: RETURN 
60Q0O_FURT=1T ロ 16:iE(1)=C(J1 1) : NEX 征 
6010_ FUR1 エ =1T ロ DX-1 : FDRJ=1 TUX-1 
6020 IFE (J) < く =E(J+1 ) THEN60 さ OELSESMAPE (J) 、E(J+ 1 ) 
60 さ Q_NEXTJiNEXT1』 RETURN 
6100 52=Os IFF1 >OTHEN6120 
6110 IFE(1)=K(14)URRK(1)=K(15) ロ RK(1) = に (16) DRK(1 ) = に (17) THENS2=1 
6120 82=5S2+51 : RETURN 
6200_ FUR エ =1 TU1OOO:NEXT エ 
6SO5 Fa=O:FM=Os FDR エ =1TD4: TFFA く F (1 ) THENFA=F( 1 ) 
6210 _ NEXT 
D FURT=1TU4: ITFF 人 =F( T ) THENJ=1 : BDTD6240 
FM=FM+F(1) 
NEXT 
F(J) =120000 1ーFN 
62S60_ FRINTCHR ま (12) : MIDTHS6。 SOrLOEATE10。 昌 : CHLUR6g FRTNT"X※ テン マウ ヒョウ ポポ 
6E70_ LUCEATE7。 フ CULUR4:FRINTU ま 。 : CHLDR フ FRTNTF (1 ) 
62BO_ LUCATE7。9: CULUR4: FRTNTV ま 。 : CDLUR フ FRTNTF (G) 
6250_ LUCATE7。 1 1:CULUR4:FRTNTMM ま 。 : EDLUR プ 7: FRINTF ( さ ) 
300 LOCATE フ 1 さ :LTINE 1 さ 。 1 : CHLHR: FRTNTX ま 。F (4) 
6 さき 10 LUDCATE。 15: FRTNT "リリ リン チャ ニー 計 ロ リー テト マコ 。 コ " フロ ウサ マテ "シグ 。 "END 
7000 X=0s 1TFJ さ =4THENRETURN 
7005 FURT=1TDS1: X1=M(J さ 。 1) : IFX1=OTHEN7O さ GO 
7010 IFX1=C(J さ 。 155) HRX1=C(J さ 。 16) DRX1= ド (1 ) THENX=1 : RETURN 
702O_NEXT 
7030 X=Og RETURN 
72SO00 J さ =J1 : BUSUB7000: TFX=OTHENF7=1 : GUTUB10ELSEBDTD46O 
BOOO_R=10: =14:FURY=10TD17: ド (Y)=GsNEXTY 
8010 FURY=1T ロ フェ L(Y) =0g NEXTY 
BOSO_ FDRY=1TD14:L(E(Y) ) =L(E(Y) )+1: NEXTY: RETURN 
BSQO_CUNSOLE, 』 0。1 MIDTHBO。 25: EDLOR6。0。 Oi FRTINTCHR ま (12) 
B510 =4:LTINE(Q。S) 一 (6.2) 。" 攻 "。 人 LTNE (6、 さ ) 一 (6。4) 。" 菩 "。 人 R:LINE ( 呈 。 王 ) (2。 日 ) 」" 菩 "、 人 ELDCAT 
E1.: CDLURAFRTNT" 較 " 
B52O LINE (9。2) 一 (9。7) 。" 還 "人 LUCATE。 日 : CDLURA:FRTNT" 較 "LTNE(12。2) 一 (12.B) "園生 LIN 
E(13。8) 一 (14。』7) 。" 較 "人 azLHCRTE14.6: COLURA: FRTNT" 画 " 
BS30 =6gLINE(1 昌 」2) 一 (16。4) 。" 菩 "人 iLTNE(19.2) 一 (21 32)! 較 ! り aiLTNE(24、1) 一 (17, 日 ) 。" 較 "人 
iLUCRTE16。 昌 : CULURA:FRTNT"":LUCATE22。 1 :FRTNT" 園 り :LUDCATE2 ロ 2:FRTNT" 還 " 
BS40 LINE (27。2) 一 (29.2) 。" 較 "人 iLTNE(24。4) 一 (30。4) 。" 屋 "、QzLTNE( さ O。5) (27。 日 ) 、" 国 "。 
B550_ LINE (32。2) 一 (3 日 。2) "国人 ALTNE (日 。 さ ) 一 (3 日 。 4) 。" 国 " 人 LTNE (マフ 。 王 ) -( さ 4。 日 ) 、" 国 "。 人 iLUC 
TE ささ 。B: CDLURQEFRTNT " 園 " 
BS60 LINE(45, さ ) 一 (41 7) 、" 較 "LINE(4 さ 。6) 一 (4 さ 。 日 ) 。" 較 "。 
857Q LINE (49』4) 一 (49。) 。『" 面 "人 LTNE ( 昌 1 4) 一 (51 。) 、" 國 "』 QiLTNE (5 さ 。4) 一 (5 さ 。7) 。""。ArLIN 
E (51.8) (52.B) 。" 略 "。 谷 
BSBO_ LINE (5B.2) 一 (56。4) 。" 園 "人 LTNE (59、2) (62 で) 、『 画 "、 人 aiLTNE(62。 さ ) 一 ( 呈 7。 昌 ) 。" 園 "。 人 LUC 
TE56.: CULURAFRTNT" 較 " 
BS590 A=SsLTINE (日 11) 一 (14』11) 。" 園 "ELTNE(14。12) 一 (11.15) "" AzLTINE (9、155) (11。17) 。" 
男 "、 
8600 LINE(17。14) 一 (21。14) 。" 菩 "。 
8B610 LINE(24。12) 一 (26。12) 。" 較 "人 LTNE (24。14) 一 (26。14) 、" 較 "人 LTNE (24。1 フ ) 一 (コア 。17) 。" 画 " 
5 人 iLTINE(2。16) 一 (30。14) 。" 較 "。 人 RsLTNE (2G9。11) 一 ( さ O。』12) 。" 較 "人 iLTNE( ミ 1 11) 一 (さら 。12) 。""。 
B62QO_ LINE (さき,14) 一 (37。14) 。"" azLTNE ( さ 7。 15) 一 (さら 6。 16) 。" 菩 "。 人 iLTNE (ミミ 4、1 さ ) 一 ( さ 4。17) 。"" 
s 谷 
B630 LINE(40』12) 一 (42。12) 。" 較 "人 asLTNE(40。17) 一 (4 さ 。17) 。" 較 "人 LTNE(44。16) (46。14) 、" 隊 " 
siLUCATE46。 1 ミ : EDLORA: FRTNT" 較 " 
B640 =6:LINE (7。 11) 一 (56。 1 さ ) 。" 画 " ALTINE (5 日, 12) 一 (62。12) 。" 還 "人 QsLTNE(60。1 さ ) 一 (60。 16) 
・" 還 "AkLHCRTE59。17: COLURA:FRINT" 較 ":LTNE(64。11) 一 (65。 12) 。" 還 "LINE(66。11) 一 (67』 1) 
、" 還 "人 
B650 LINE (65。14) 一 (69。14) 。" 園 "。 
B660 LINE( フ 26』11) 一 (72。15) 。" 較 "。AiLTNE(72。16) 一 (76。 16) 。" 菩 "LTNE(76。 15) (7 日 、17) 、" 画 " 
仙 
す 
8670 J1=1:T1=1sC(1。1)=INT(RND (1 ) ※3 日 ) : IFC(1。1) /10=INT(C(1。1) /10) THENB670 
B6BO_ X=9: Y=52Si GBDSUE4O 
B700 DATR 1056』O。0』0。0。O。0。O0。0。15600。- さ 1 日 6。 440 日 , 1764 日 。 896 。 20092。 1 4564 。 呈 009。2079 さ 
ぅ 1768B4』ー19 さ フロ 。 207 さ 7。 17412」 4 さ 52 20 フ 77 さ 。 4 さ 72。521 1 ,。 SOB055。 17680』 4117。16425,4100。44 さ さ 。 
435 フ 7。 1 フフ 45』 507 1 。 20229。2 フ 6 。 271 。 6 日 , ささ 455 
8710 DaT 一 さ 1 昌 さき 。 2075 さ 。』 弓 1 40。 22 さ 5 さ 。 4476」 4 さら 6 日 。 19B4。 つ 4 ささ ら 。 1 6 日 1 。 4 さ 69。 16765。25B74 。 王 19 
さ ) 4 さ 5 さ 』 17409。 4 さ 55 20 フフ 3。 4 さ 72。 5201 。 291 16。 1768 呈 。 4079」 16400。41 4 日 5201 , -2B さ 59 。 1 76 日 
さ 』O 
8720_RESTUREB670:FURT=OT ロ 67』 READE (1 ) : NEX 征 
87 さ O_ CULUR7: PUT2 (20。 プ 6) 一 (151 。 昌 さ ) 。E。 PSET 
740 LINE19。1=:LTINE20。 1 
8750_ DAT 768』0』O,0』O。 の 6』0。ー さ 121 。 24 さ 77。 さ 2244。ー40B1 。- さ 2700。 1 459 呈 5201 。 一 16060。 1092。 
人 411 さ 。 69。 17665。 王 201 』16644』109 さ 。41 1 さ 。41 。17 さ アフ 。ー さ 121 。 202BO , 15429。 4079。 16」 1747 さ 。 441 
7』16704。 109 さ 。 41 1 さ 。1 フ 7。17441 、467 さ 。 16708。 1094。41 1 さ 。17。 174255。 一 さき OO7 , 243 フ 7 、 さ 1 昌 12。-40 ヨ 1 
ュー マラ 2752。 1 4 さ 55。 
8760_ FUR1I=OT ロ 49』 READE (1 ) : NEX 征 
B77O_ PUT2 (56。 BB) 一 (151 。5 紀 ) 。E。 FPSET 
78Q LINE22。 1:LTNE2 さ 
8790 FURT=1TD2OOO ェ An=RND( 1 ) : NEX 生 
BBOQ_RETURN 
000_ FURY=FT ロ GE IFL(Y) < 1THEN905O 
60610 IFL(Y) = ミ 3THEN9O40 
02SO_ TIFYSSOURY ロー2THENX=1 : RETURN 
9030 L(Y) =L(Y) 一 1 :L(Y+ キ 1) =L(Y+1) 一 1:L(Y+2) = ニ L(Y+2) 一 1:』 ド (R) =Y:R=R+1 : BUT09OOO 
9040 L(Y) =L (Y) 一 ミミ ド (S) = ニ Y: =5+ 1 : BHTU9OQOO 
9050_NEXTY 
906Q_ FURY=FTUGI: ITFL(Y)OTHENX=1 : RETURN 
9070_ NEXTY: X=Os RETURN 















































ど , す ば ら も の ひか 千 に デコ 2 の 2 1 122 に に 〈 の 0 の 
G と グラ フィ ッ ク ・ プ リン タ を 紹 み 合わ せれ ば , 漢字 シス テム が 可能 に な り ま すず す 。. 
砺 苦 は 49.800 失 と , ちょ っ と 高め ( 2 ) で す が , それ だ け の 個人 誰 は ある と 夏 い ます (宣伝 を し て し まっ た /. 
た だ . 全 属 の マニ ュ ア ル な 70 ページ の ペラ ッ と し た も の で , こ れ で は どう や っ て 使う の か , な か な か わか り ま 
ませ ん (その うち り フ ァ レ ンス ・ マ ニュ アル が 発売 され る そう で すず が 
そこ で , 鵜 7 意 で は ば いま まで PCG を 使っ て あか っ た こと に つい て , 弟 2 章 に お まけ ( 赤 題 みな ?) と し 
て ら CG を 使っ た ギャ ラク シア ン を 工 女 て お きま すず す . 





す が , どこ か 他 の 番地 へ 移し た いと き に は この パタ ー ン ・ 


第 ] 章 PCG の 使い 方 
デー タ を プロ ッ ク 転 送 し ます . これ は リス ト 2 の よう に し 


か AR デー タ / を 破壊 し ? な い 番 地 ,、 た と えば E800 あ た りか 
hn 目 デー タ 転 送 
し 1 6 

















PCGAID を 使っ て の パタ ー ン の 作り 方 は マニ ュ ア ル を 見 @② で DE レジ スタ に 新しく 移動 し た デー タ の 先頭 番地 を 入 

れ ば わか る と 思う の で , ここ で は 省略 し ます . し か し , P れ ま す . だ か ら , この [内 の 数 値 は 各自 の デー タ 先 頭 
CGCAID で デー タ ・ テ ー プ を 作っ て お く と , ゲー ム を や る と に 合わ せ て 変え ます . 
き に は , まず デー タ ・ テ ー プ を 入れ て RUN し , 次 に マシ は BC レジ スタ に デー タ 量 を 入れ ます . 1 つの パタ ー ン 
ン 語 を 入れ , さ ら 1CPASIGS 入れ る と いう よう に 3 回 も ロ は 8 バイ ト で ,。 128 キ ャ ラク タ で 1,024 バ イト と , 先頭 に 16 
ー ド し な く て は な り ま せん . そこ で , せめ て 2 回 で 済む よ バイ ト の キャ ラク タ 作 成 の フラ グ が ある の で 合計 1,.040(410 
うに マシ ン 語 で デー タ を 転送 する 方 法 を 紹介 し ます . H) バイ ト で す . 

リス ト 1 は デー タ 転 送 プ ログ ラム の アセ ンプ ブル ・ リ スト の ②⑳ は ほ は Z80 特 有 の プ ブロック 転送 命令 で す . 

で す . これ は マニ ュ ア ル の 後に 戦っ て いる も の と 同じ で す . @ で 終了 し た と き BASIC の コマ ンド 待ち に 戻り ます . も し , 
この プロ グラ ム は リロ ケー タプ ブル, つま り 絶 対 番地 を 使っ モニ タ の 状態 に 戻り た いと き は , C3665C じ と し て で て ください. 
て いな い の で , メモ リ 上 の 自分 の 好き な と ころ に 置け ます . 新しい デー タ の 番地 が パタ ー ン ・ デ ー タ の すぐ そば で , 
ギャ ラク シア ン で は D510 番 地 か ら 始 まっ て いま す . D512 前 の デー タ を 破壊 し て し まう と き は , 最終 番地 を 指定 し て 
番地 の で 囲ん だ 2 つの 数 値 が デー タ の 先頭 番地 に な り LDDR 命 令 を 使い ます . そし て , モニ タ で GE8OO |RET | 
に っ と や れ ば デー タ は プ ブロッ ク 転 送 さ きれ ます . この リス ト 2 の 

この 場合 、 デ ー タ の 先頭 は D100 番 地 か ら な の で , 反対 プロ グラ ム は 終わ っ た ら NOP (00) で も 入れ て お いた 方 が 
に し て 00D 1 と 入れ ます . た と そば , 先頭 が E241 番 地 だ MkSsGS も し よう 。 

っ た ら , 41E 2 と する わけ で す . 乙 80 で は 番地 は 逆 に 入れ 並 通 、 林 走 し て も マシ ン 語 が 壊れ る こと は 少な い の で す 
る こと に 注意 し て くだ さい . が 。 こ の プロ グラ ム が 残っ て いる と 禁 走 時 に 実行 し て 内 容 

PCGAID を 使っ て 作っ た パタ ー ン は , DBF 0 番地 か ら 入 が みん な 変わ っ て し まう こと が あり ます . 

っ て いま す . この 場所 で じゃ ま に な ら な いと き は いい の で これ で バ パターン ・ デ ー タ と その 転送 プロ グラ ム が 揃っ た 
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写真 3 時 折 く る 大 編隊 . 本 も の そっ くり 


WSIERY POINIS 
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fe Function 
4 を を 6 


用 91UE ,.., WMCE Ke 
RETUN 5 誠 し て すき tu 





の で , 転送 プロ グラ ム を コー ル す れ ば PCG に パタ ー ン の じ で 高 そ の デー タク は. に か ら 1. 条 3 . つ 1 バイ ドド に パ っ で いで 

5 合計 8 バイ ト で す . 

だ だ し じ , 注意 し て で 欲しい の は , この デー タ 転送 プ ログ ラ 1 バイ ト の デー タ で ビッ ト が 1 の 部 分 に ドッ ト が 描か れ 
ム は キャ ラ ・ ジ ェ ネ か ら の コピ ー の フラ グ は 調べ な い の で , ます . だ か ら ,、 ビッ ト を 調べ て それ を 16 進 数 に 直せ ば いい 
PCGAID に ある C コ マン ド の よう な こと は で きま せん . の で す が , 非常 に 面 便 く さい こと で すし , わか ら な い 人 も 

デー タ の 内 容 が すべ て PCGC に 入っ て し まい ます か ら , 多い と 思い ます . 
キャ ラ ・ ジ ェ ネ の ある コー ド を 使い た いと き に は その 形 を 私 は これ が - 日 で わか る よう に 表 1 の よう な 対 膨 表 を 使 
自分 で 作っ て デー タ と し て 入れ て お く 必 要 が あり ます . っ て いま す . この 中 か ら 目 的 の パタ ー ン を 探し て 上 位 , 下 


位 の 順に 数 値 を 並べ れ ば 16 進 数 が 求め られ ます . 人 
ター ン を 見 て 表 1 で 探し て いた だ けれ ば すぐ 理解 で きる 
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GA の oo 半 ES 














こ 伸 び て い ま す が , ざ : れ (は 

パパ ターン を すべ て 作っ て し まい , データ を マシ ン 語 内 に 20Ah PCGAID の と き は こ 2 で 表示 され 
組み 込ん だ 後 で も 一 部 を ちょ っ と 委 要 し た いこ と が よく ある て いま す が , 使う と き は 80 字 で すか ら 械 は 半分 に 圧縮 きれ 
5 の で す . この 場合 1 の 方 法 で PCGAID で 変更 し て 再び ブ ます . つま り .80 で は 横 は 縦 の 倍 細か く な り , 1 部 で 640 
ロッ ク 転 送 を し て も いい の で す が , これ で は あま り に も 面倒 な ドッ ト 分 ある と いう こと に な り ま す . 

の で , 次 に 一 部 の パタ ー ン の 変更 の 仕方 に つい て 述べ ます . 

まず , 変更 する パタ ー ン の 番地 を 調べ ます . 最初 の 16 バ AU 
イト は フラ グ 群 で すか ら , 一 番 最 初 の パタ ー ン (キャ ラク Au しか た 音 の 出し 方 
タ ・ コ ー ド 80H) は ,、 ギャ ラク シア ン で は D110 番 地 か ら ⑦ ーー NL4 LN 人 スベ 人 還 還 細 
8 バイ ト 分 と いう こと で , キャ ラク タ ・ コ ー ド 81H は D118 PCG の も ぅ う - つ の 特長 に 音 が 出せ る と いう こと が あり 
番地 か ら 8 バイ ト で す . 以下 、 1 つ コ ー ド が 増え る ご と に ます が 。 これ が な か な - か の くせ も の で 。 さっ ぱり 思う よう 
8 バイ ト ず つ 増 や し て いけ ば いい の で 簡単 に 計算 で きる と な 音 が 出 て くれ ませ ん . 音 の 出し 方 に は 色々 な 方 法 が ある 
思い ます . と 思い ます が , 筆者 の 音 の 出し 方 の 一 例 を リス ト 3 に 示し 

番地 は 16 進 数 で 表わす の で , 番地 の 本 尾 は 0 か 8 に な る て お きま す . 
こと に に 注 天 じ で くぎ い は 。 9 く これ は 音 の デー タ (SND1) の 先頭 番地 を HL レジ ス 
て A で すか ら …. Mu マシ ン 語 を 始め た 頃 は よく これ を タ に 入れ て , SOUND 1 を コー ル す れ ば 音 が 出 ます . 音 の 


間違え て 禁 走 させ た も の で し た . 沈 時 あみ 9 の 2 





政 デー タ と いう の は , 音 の 高き と 音 の 出 て いる 時 間 の 2 つが 

番地 が わか っ た ら 次 に その 変更 を し ます . 1 組 に な っ て いて , 0 が ある と 了 し ます . SNDON で 音 

例 と し て D118 番 地 か ら の キャ ラク タ ・ コ ー ド 81H を 示し を 出す た め の ス イッ チ を 入れ , 音階 は 4 桁 の 16 進 数 で 最初 
ま 29 1 の よう に これ は ギャ ラク シア ン の 胴体 で す 。 そ に 下位 を 次 に 上 上位 を ボー ト 0CH に 入れ ます . 
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表 1 





ドッ ト ・ バ ターン と 16 進 数 の 対照 表 
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ド 位 の 数 値 は 変え て も あま り 変 化し な い の で , 現在 32 に 
し て あり , 音 の デー タ は 上 上 位 だ け に 入れ て いま す . 音 の 出 
て いる 時 間 は D レ ジス タ に 数 値 を 入れ て TIMR 2 を コー ル 
じ に: で MSG ま 3 寺 

この 音 で す が ,。 な か な か 思う よう な 音 が 出 て くれ ず , 何 
より 周波 数 の 計算 どおり の 音 が 出 て くれ ませ ん . 低音 か ら 
曽 次 へ な め ら か に 上 が っ て いく プロ グラ ム を 作っ た ら 途 中 
に と ん で も る も ない が いろ る いろ 入っ て き て 。 ま る で で た ら め 
な 曲 を 聴い て いる みた だ たい に な り ま し た . 

九 十 九 和 電機 で 聴い た PCG の 音 は か な り ま と も だ っ た だ の 
で , お か し い の は 私 の PCG だ け か も し れ ま せん 。 音 は 日 
に よっ て も , スイ ッ チ を 入れ て か ら の 時 間 に よ っ て も か な 
り 変わ っ て きま す . 2 日 間 も つ けっ ぱな し で 酷使 し て いる 
と 、 反 スト で も 起こ す の か ノイ ズ み た いな 聴く に 耐え な い 
剖 に な っ だ た なり し ます . 

と あか が べ で 。 ご この 音 の ブログ ラム で 次 が 変 な と きい は , 1150 
行 の A レ ジス タ に 入れ る 数 値 (20H) を いろ いろ 変え て み 
て くだ さき さい. きれ いな 音 の 出る 数 値 が みつ か る と 竹 は も 





思い 





第 章 PCG 上 月 ギャ ラク シア ソ 


PCG の すばらし さ を 理 解 し て も ら う に は , や は り 実 際 
に 何 か や っ て みる こと だ と 思い ます . そこ で 今回 は 何 に し 
よう か と 迷っ た の で す が , 9 月 戦 せ な ギャ ラク シア ン 


ェ ュ リー 
ぢ 【ー 


な ら 一 度 す で に プロ グラ ム し た も の で も ある も 簡単 に で き 
る だ ろう と (これ が 大 間 達 いで あっ た が …… ドロ の スン 


し MK まし な 。 


GA し プロ グラ ム の 入力 


AIC 


いつ も どおり BASIC の 最後 に は チェ ッ ク ・ サ ム の プ ブログ 
ラム が 付属 し て いて ,。 RUN を すれ ば まず チェ ッ ク ・ サム 
の 値 が 表示 され ます . 
圏 チ ェ ッ ク ・ サ ム 
この チェ ッ ク ・ サ ム と いう も の が わか ら な い 方 も いる み 
た いな の で 説明 する と これ は マシ ン 語 の 先頭 番地 か ら 64 
個 (バイ ト ) ずつ 合計 を 求め る も の で , この 数 値 が 本 の 値 
と 違っ て いる と き は , その 64 バ イト の 範 胃 の マシ ン 語 に ど 
こ か タイ プ ・ ミ ス が ある と 思わ れる の で , そこ だ け を 調べ 
れ ば 済み ます . これ だ と 異常 動作 の あっ た と き マ シン 語 を 端 
か ら 端 まで 調べ る な ん て 非 能率 的 な こと を し な く て 済み ます . 
行 番 編 9080 の PRINT を LPRINT と すれ ば , ブリ ンタ に 
出力 で きま す . チェ ッ ク ・ サ ム が OK で し た ら , 行 番号 10 
と 9000 一 9090 を 削除 し て くだ さい . 





BASIC プ ログ ラム 中 , カナ 女 字 や グラ フィ ッ ク 女 字 が で 
た ら め に 並ん を で いる と ころ が あり ます が , この と お り に 入 
カ し て くだ さい . PCG に デー タ が 入れ ば 意味 の ある 表示 
を し あま, 
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リス ト 1 PCG データ 転送 プロ グラ ム 


リス ト 2 ブロ ッ ク 転 送 プ ログ ラム 








UEG ghi1gH 
5 本 FE PRTH TERHHSHTT SUE 


51 ED 3 
EE1 す 11 


LD 
LD 
FUSEH 
FI ロ P 
中 還 LD 
HED 
LD 
E 料 T3 ED 
HH 
LE 
HE 
TE 
EEEITI CE 
EEC 
JE 
LD 
HHD 
FLISH 
IHC 
LE 
HE 
JE 
THE 
FIF' 
JE 
Lp 
IHITEI LD 
HLT 
LE 
HE 
HLIT 
LE 
HIT 
IHC 
TH 
PTHg 






D51 邊 
51p 
D51E 





INHIT3: Lp 
IHIT4: LD 


LD 
nIT 
TNC 





TTH ピ 
TNI5s LD 

ED ロ : 日 

TE HE THIT1 

FET 





日 


END 


SHE ロ LE 


ED52 EEBIT 
551 THIT キ 


ES1F INIT1 
ESE3 THIT5 


DS3E IHITS PS543F IHIT ミ 





EE800 る 21 0 DB 


03 11 [oo0 pl LD DEE.OD100H 


06 OOGOY2 LD BO.0410H 
09 ED BO LDTR 
0B CS EE5 17 ユダ 王 5 班 


LD HL.ODBFEOH 


@@@ の ②③@@ 








リス ト 3 サウ ンド ・ サ プ ブルー チン 














FLISH 
FLL 
LD 

1HE 
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TNC 
LR 
な PE 
JE 
HE 





















わこ JIu Lei 


SMHs 







本 
IO 


TIHERE 半 CA 





TIFHR1E  LD 中 : 
IE2S ED 

LIP1* EC 
Lhh 
HE 
JR 
EET 
[iE 
FRTR 


Sir 















DE 
1 










3 SD1 


= F SHE1 
TIHR1 ) 


TIMHES 








行 番号 500 の [| は カナ シフ ト ・ モ ー ド 、, 行 番号 670 の [は カ 
た の 生 ド 0 よい の 5 で 3 


の ) 一 マシン 語 の 入力 方 法 
マシ ン 語 の 入力 は 誰 に で も で きる も の と 思っ て いた の で , 
過去 の ゲー ム に は 何 も 書 か な か っ た の で す が , マシ ン 語 は 
初め て で 入力 の 仕方 の わか ら な いと いう 方 が 、 か な り 1I/O 
編集 部 へ 電話 を し て きた と の こと で , も うわ か っ て いる と 
思い ます が 簡単 に 書い て お きま す . モニ タ の 説明 は PC の 
ユー ザー ズ ・ マ ニュ アル p.64 か ら 書 か れ て いま す が , ちょ 
っ と 説明 不足 の 感じ で 初め て の 人 に は わか り に くい と 思い 
球 9 
人 BASIC で , mon |RET | と や る と * が 表示 され て モニ 
タ ・ モ ー ド に な り ま す . 
の @ デ ゲーム の 入力 は 最初 か ら 16 進 数 の デー タ を 入力 し て いけ 
ば いい の で すか ら , まず , SD1OO [RET | と や り ま す . 
特定 の 番地 (へ へ ヘム へ ) か ら 始 め た けれ ば 5 へ へ へ ヘム へ 
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民 訂 ] と や れ ば いい の で す . 左端 に D100 と 表示 され , 
その 右 に その 番地 の 内 容 が 表示 され ます . ハイ フン に 続 
いて 値 を へ へ (16 進 数 ) と キー イン すれ ば 1 つ 右 へ ずれ , 
次 々 と 入れ て 8 つ 入 れる と 改行 され ます (40 字 で は 4 つ 
で 改行 きれ ます ). 本 の と お り に 順番 に 入れ て いっ て くだ さい . 

メモ リ の 内容 を 変更 せ ず に 次 へ 移 れ な いと き は | スペ ー 
ス | キー を 押し ます . 

5 も し 問 違 っ て 入力 し た と き は PEL | キー を 押せ ば 1 つ 前 
に 戻れ ます . 

@ 終 了 す る と き は [RET| を 押し ます . 

@⑯16 進 コー ド 以外 の 数 値 を 入れ る と , ? を 表示 し て コマ ン 
ド ・ モ ー ド に 戻っ て し まう の で , この と き は 5 [RET| と 
や る こと で て 元 の 状態 に 戻れ ます . 

すべ て 入力 し 終わ っ て 決 に 必要 な の は テー プ へ の 書き 込 
み で す . BASIC の CSAVE に 相当 する も の で 、WD10O. 
ESDF と キー イン し て テー プレ コー ダ を 録音 状態 に し て 
か ら [RET| を 押し ます . 























テー プ に ちゃ ん と 入っ た か の ベリ ファ イ は , BASIC で 
は CLOAD ? に 相当 する も ので, LV IRET | と や り ま す 
が 出 あ 人 け 本 (ば フー エラ 三次 す . 

テー ブ プ に 入れ た デー タ を PC に 読み 込む の は BASIC の 
CLOAD に 相当 する も の で , LRET | を や っ て テー プ を ス 
ター ト さ せま す . 

⑩BASIC へ 戻る に は , [CTRL | キー を 押し な が ら |B| を 押 
(50 ま 95 


























初心 者 の うち は これ だ け 知 っ て いれ ば 充分 で 
シン 語 に 慣れ て くれ ば マニ ュ ア ル を 読ん で も す 
よう に な る と 思い ます . 

それ に し て も この PC の モニ タ は ミニ ・ モ ニー ニタ と も いう 
べき も の で , 後 せ め て レジ スタ 内 容 の 表示 と ・ 
ポイ ント の 設定 くら い の 機 能 は 欲し か っ た // 


人 
本 
生 な 

S 


9 月 号 と まっ た く 同 様 で 
に 宇宙 船 (ビー ム 砲 は 宇宙 船 に 改名 きれ まし た ) が 動き , 
[| ス ペー ス | キー で ミサ イル (ビー ム は ミサ イル に 改名 され 
まし た) が 発射 され ます . ギャ ラク シア ン の 攻撃 を 避け な 
が ら 全 部 英 破 し て くだ さい . 











25 面 消し 終わ る と GIVE UP に な り ま す . 5,000 点 を 越え 
る と 宇宙 船 は 1 吾 追加 され ます . も し , |STOP| キー を 提 





し て し まっ た と き , それ まで の ハイ スコ ア を 保持 し て お き 
た か っ た ら , RUN を せ ず に , GOTO190 と し て くだ さい . 


⑳ ギ キャ ラク シア ン の 形 は 本 物 そ っ くり . 
背景 の 星 が 流れ ます . 立体 感 を つけ る た め に 星 の 速 度 を 
3 種類 に し た の で す が 効 果 の ほど は …. 

ギャ ラク シア ン の ミサ イル は 1 機 に つき 2 発 と 減ら し , 


画面 上 は 最大 で も 8 発 ま で と し て 易しく な っ た (か な ?). 


@ 前 の プロ グラ ム で は 最後 の 1 機 が 残っ て いて も 次 の 局面 
へ 行っ て し まい ます が , 今回 は 判定 の ルー チン を ちゃ ん 
と 付け た の で すべ て 眉 破 し て 次 の 局面 に 進み ます . 

局面 数 は 本 物 の よう に 旗 が 増え て いく よう に し まし た . 


⑨⑳ ギ ャ ラク シア ン の 攻撃 の と き 音 が 出る よう に し まし た が . 


先 に も 述べ た よう に 各々 の PCG に よっ て か な り 音 は 違 


うと 思う の で , 後 で 述べ る よう に 変更 し て みて くだ さい . 


筆者 の 場合 , 最初 の うち は いい 音 で す が , 酷使 を し て い 
る と 音 が 変わ っ て き て し まい ます . 母船 と 誠 衛 の 降下 時 
に は 音 は 出 ま せん . 

の @ ギ キ ギャラ クシ アン の 形 を 見 る た め , また も や ゲー ム ・ モ ン 
ター 通い を し て し まい まし た (ギャ ラク シア ン は 人 気 機 
種 な の で まだ 残っ て いた ) が , コン ボ イ の 動き は 1 列 ず 
つ 逆 に な っ て いる こと を 発見 し その よう に し まし た -. 

カラ ー, 白黒 の 選択 び で きま す . 

ギャ ラク シア ン の 動き は 前 より 大 きく な り ま し た . 

⑩ マ シン 語 ル ー チ ン の 状態 で も | スト ッ プ | キー が 効く よ 
うに we: ま 礼 2 計 5。 


宇宙 船 が 描か れる まで の 待ち 時 間 は ,. イラ イラ する と い 
う 人 も いる の で す が , 私 と し て は この くら い の 時 間 に 少 し 
首 で も 回 し た り し て 休憩 し た 方 が いい と 思う の で 変更 は し 


0 


較 2 パタ ー ン と キャ ラク タ ・ コ ー ド の 関係 
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旗 159 | 



































て いま せん . 
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PCG を 使っ な ゲー ム の 最大 の 特長 は , パタ ー ン の 変更 
が 各自 の 思い どおり に で きる と いう こと で は な いで し ょ う 
か . 内 容 は 同じ ゲーム で も パタ ー ン を 変え る と ガラ ッ と 違 
っ た ゲー ム の よう に 感じ る と 思い ます . 

た と そば ぼ ば, ギャ ラク シア ン の 形 を 変る 刀 ゴ キネ デリ アン な 
ん て の を 作っ て は いか が で すか . 2 に パタ ー ン と キャ ラ 
クタ ・ コ ー ド の 関係 を が し ます . この 数 値 は 10 進 数 で す . 
ここ に な いも の に 関し て は BASIC の リス ト を 見 て も ら え を 
ば わか る と 思い ます . 

これ で 変更 し た い キ ャ ラク タ ・ コ ー ド を 決め た ら , 第 ユ 

述べ た 方 法 で 変え た る こと が で きま す . も っ と も , すべ 
* 更 する 場合 は これ で は 大 変 な の で PCGAID を 使っ て 

"ー タ ・ テ ー プ を 作っ た 方 が いい で し ょ う . 

この と き は BASIC 行 番号 180 (ギャ ラク シア ン の デー タ 
転送 プロ グラ ム を コー ル し て いる ) を 削除 し ます . こう す 
れ ば デー タ ・ テ ー プ で 入れ た パタ ー ン は その まま 保存 され 


EN 








ゆ マシ ン 駐 

フロ ー チ ャ ー ト は 9 月 号 と ほとん ど 同 じ で すか ら 省 略し 
ます . 内 容 は 前 より か な りす っ きり し て き て いる と 思い ま 
す . 各 サ プ ブルー チン の 後に は NOP (00) を 3 つ 入 れ て あり 
ます . PCG パ ターン ・ デ ー タ 。 転送 ゲロ グラ ム ,。 星 の 移 
動 、 発生 プロ グラ ム , ギャ ラク シア ン が 0 機 の 判定 プログ 





う 6 ひ 


』O 


ラム , 音 出 し の プロ グラ ム な ど が 追加 され て いま す . マシ 
ン 語 サブルーチン の 内 容 を 表 2 に , ワー ク ・ エ リア を 表 3 
に 。、 デー クエ り 万 を 素 光 に 示し ま : 計 


の ー 巨 ABIC 





前 回 と ほとん ど 同 様 な の で わか る と 思い ます . 
AU 
GA 変更 貞 。 
いつ も の よう に 変更 点 を 表 5 に 示し ます . 番号 の 頭 に * 


の つい だ た も の は 2 の 倍数 に し て くだ さい .。 これ ら に つい て 
謗 し いこ と は 9 月 号 を 見 て くだ さい 。 今回 は 音 の 変更 に つ 
で て 詳しく ぐ 書き ます : 


《 ゆ 爆発 音 


燥 発音 の 音 出し サブ ルー チン は D607 番 地 か ら 始 まっ て 
いま す . この 音 が 変 み 音 の 場合 D61A 番 地 (現在 20H) の 
値 を いろ いろ と 変え て みて くだ さい . 音 の 変更 を する に は 
デー タ ・ エ リア を いじ り ま す . 宜 4 を 見 て も ら を そば わか る 
と 思い ます が , 爆発 音 は SNDBM 1 一 3 と SNDGB で す . 

この デー タ は 音 の デー タ と 音 の 出 て いる 時 間 の 2 つが 1 
組 に な っ て いま す . 変更 し た 場合 に は 最後 に 必ず 0 を 入れ 
て お いて くだ さい . 音 の デー タ は 数 値 の 大 きい ほど 低音 、 
小さ きい ほど 高音 が 出 ます . 

12) 飛行 音 

飛行 音 の サブ ルー チン は E154 番 地 か ら 始 まっ て いま す . 
も し ,。 こ の サブ ルー チン を いじ る と き は 中 に タイ マ る も 合 
れ て いま すか ら 注 意 し て くだ さい . タイ マ が 外れ る と 動き 
が 速 す ぎ て 手 が つ けら れ な く な り ま す . 飛行 音 の お か し い 
と き は E17E 番 地 (現在 20H) を 変更 し て みて くだ さい . 

飛行 音 の デー タ は E545 番 地 か ら 始 まっ て いる 17 個 で す . 
この 個数 は 変え な い 方 が いい で し ょ う . デー タ は 音 の 高き 
を 規定 し て いま す . 音 の 出る 時間 は タイ マ に よっ て 規定 さ 
れる の で 変更 は 困難 で す . 








op-XP 


今回 、 初め て アセ モン プラ と いう も の を 使っ て み ま し た . 
日 本 マイ コン : 学院 か ら 出 て いる ROM タ イプ の も の な の で , 
テー プ ・ ベ ー ス の も の と 違い 。 禁 走 させ た と き に も 壊れ な 
い の で 助かり ます . この アセ ンプ ブラ を 使っ た 例 は リス ト 1 
や リス ト 3 を 見 て くだ さい . 


《 ゆ アセ ンプ ラ の 利点 
NNE や 09BDO5R る の が 自由 自在 で . ハ ンド 
アセ ンプ ル の と き は 改良 の た めい た る と ころ に NOP 

を 入れ て お いた の で す が , 今回 の は 見 て わか る よう に ス 
VIN) 用 SSL 上 和 2 

ニモ ニッ ク で 入れ る の で . マシ ン 語 の 表 を いち いち 見 な 
く て 済み ます . も っ と も か な り 覚 えて し まっ て いる の で 
最初 は キモ ニッ ク を わざ わざ 打ち 込む の は , わずらわし 
く 感 じ ま し た . 

ラベ ル が 使え る の で 今 ま で の よう に ワー ク ・ エ リア の 表 
寺 涯 天 代 が ん で ご 條 ば 必 光 く て よく な り ま し た . 

④ 廊 法 上 の エラ ー が 出る . た だ し , プロ グラ ム の エラ ー は 
無理 で す が . 


アセ ン ソフ ラ に っ Lt て 
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⑤ 相 対 ジ ャ ンプ の 計算 を し な く て よい . ハン ド ・ ア セン プ 
ル の と き は この 計算 ミス に よる 禁 走 が 非常 に 多かっ た . 
⑥ ハ ー ド ・ コ ピー が すぐ に 取れ る . 


27 欠 貞 


① ソ ー ス ・ テ キス ト と オプ ジェ クト が ある の で メモ リ は か 
な り 食 いま す . 今回 の ギャ ラク シア ン 程 度 で ほぼ 1 杯 に 
な り ま す . 

⑧ こ の 位 の 長い プロ グラ ム に な る と 時 間 が ずい ぶ : ん か か 0 
ます . 私 の 測っ た と ころ で は , テー プ に ロー ド す る の に 

6 分 18 秒 . アセ モン ブル に 12 分 55 秒 。 プリ ント 出力 を し 
が ら の アモ セン ブル に は 何と 1 時 間 も か か り ま し た . 
特に バグ 取り の と き は た っ た 1 筒 所 の 変更 を し て 様子 を 
る こと が 多い の で す が , Mb) YS も か か っ 
て いる と いい 加減 イヤ に な ぎ きま す : : め ディ ジウ 
対応 に し て も ら え れ ば 少 重光 は 4 は 
⑧③BASIC の よう な 気軽 さ で プロ グラ ム で きる こと は 利点 
で も あり ます が , 欠点 で も あり ます . 今 回 は この 気軽 き 
で フロ ー チ ナッ ャ ー ド を 者 か 3 に と パ 且 錠 プ ログ ラム じ て で 人 
まっ た ら , 下 さ ん の 1 個 大 隊 が 誕生 し て し まっ た の で す . 

(《④BASIC か ら mon で アセ モン ブラ が 起動 し て し まい , モニ 
タ へ 行く に は さら に mon が 必要 で す . 帰り は も っ と 複雑 
で 非常 に めん ど ぐ きい 。 また テー プ に よら で は テー プリ 
ー ド エラ ー が 出 や すく な り ま す . ROM を 抜い た り 差 し 

だ た り ば か りや っ て いる の で そろ そろ ピン が ダメ に な る の 
で は と 心配 で 





「』 和 


何 は と も あれ , マシ ン 語 を や る 人 に は アセ ンプ ブラ は や は 
り 必 需 品 だ と 思い ます . 使い 慣れ て くる と も う 了 手 離 せま せ 
ん . この アセ ンプ ブラ は エディ タ も 同居 し て いる の で 大 変 使 
いや すい と 思い ます . も うち ょ っ と 安い と いい の で す が … 


9 月 号 の ギャ ラク シア ン の 焼き 直し の つも り だ っ た だ た ので, 
3 日 で 完成 の 巴 定 だ っ た の で す が , プロ グラ ム に か な り 手 
を 入れ た こと や アセ ンプ ラ に 不慣れ な こと も 重なり , 虫 の 
大 群 が 住 みつ いて し まい , 中 取り に 10 日 近く か か っ て し ま 
いま し た 。 

教訓 一 フロ ー チ ャ ー ト は し っ か り 書 こう まだ 中 が 
すべ て いな く な っ た か どう か は 自信 が あり ませ ん . ギャ ラ 
クシ アン が 少な く な っ て くる と , 時 と し て ギャ ラク シア ン 
が 画面 の 領域 を は み 出 し て 右側 の 枠 ま で 侵入 する こと が あ 
り ま す が , いま の と ころ また 戻っ て くる の で カン ベン し て 
くだ さき さい. も し , アト リ ビ ュ ー ト ・・ エ リア まで 侵入 し て 画 
面 が で た ら め に な る よう だ っ た ら 早 め に STOP し た 方 が い 
いと 思い ます . 茜 走 の 恐れ も あり ます . も し こう な っ た ら 
コリ メッ ォ ジブ ョ サド 

筆者 の Hi-SCORE は 15,400 点 で し た . 
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DATRS 
MAIN 
SOUND1 
TIMR1 


INITV 
RND 
STAINI 
ADRS 


0UT10 
MACL1 


GALDA 
GALMV 
STASPD 
STRMV 
STPMV 
MISHT 
MISMV 
MISRET 
COVB1 
FLYB1 
BOMPO 


SPLS 
COLR 
FLGA 
FLTGAL 


EXG1 
GDOMA 
GADWN 
GMSBTH 
POTR1 


SPBOMB 
COVRET 


SPINIT 
GAZRO 
GAINIT 
TVCLR 
GMSDWN 
TIMREFL 
MSELD1 
PRELD1 
PROLY 
MISPBTH 
MSDMA 
MSDWN 
MYPOCL 
INIT1 
INIT2 





D510 一 D56F 
D570 一 D606 
D607 一 D631 
D632 一 D63E 
D63F 一 D761 


D762 一 D7AA 

D7AB 一 D7CE 
D7CF 一 D7FB 
D7FC 一 D81D 


D81EーD84D 
D84E 一 D870 


D871 一 D8D6 
D8D7 一 D953 
D954 一 D972 
D973 一 D9C2 
D9C3 一 DA05 
DA06 一 DA2C 
DA2D 一 DB77 
DB78 一 DB88 
DB89 一 DBC8 
DBC9 一 DBF7 
DBF8 一 DC1B 


DC1C 一 DC5E 
DC5 ド ーDCD8 
DCD9 一 DCF8 
DCF9 一 DD9A 


DD9B-DDC6 
DDC7 一 DDED 
DDEEーDEBE 
DEBF 一 DEE2 
DEE3 一 DF94 
DF95 一 EE015 
E016 一 EE05C 
EO05D 一 EE077 
E078 一 EE09F 
EO0A0 一 EO0BD 
EO0BE 一 EOD6 
EO0D7 一 E153 
E154 一 EE18C 
E18D 一 EE1E9 
EE1EA 一 E242 
EE243 一 256 
E257 一 EE2A6 
E2A7 一 E2D3 
E2D4 一 EE397 
E398 一 EE3B1 
E567 一 E58D 
E58 セ ーE5DE 


















マシ ン 語 サブ ルー チン 





PCGC の デー タ 転 送 
メイ ン ・ ル ー チ ン 
音 出し の ルー チン 
2 イマ 

画面 に 各種 キャ ラク タ を 描く サ 
ルー チン 群 

初期 画面 
乱数 を 作る ルー チン 


星 を 画面 に 描く 初期 
DE A レ ジス タ 
に Y の 値 を 入れ る そこ の アド 
レス を 計算 し て HL に 入 れる 


10 進 出力 サブ ルー チン 
クロ ッ ク 類 の 更新 .| ス ペー ス | キー 
を 戻し た か の 判定 
ギャ ラク シア ン の 踊り 
ギャ ラク シア ン の 左右 移動 
星 の 移動 速度 を 決め る 
星 の 移動 
宇宙 船 の 左右 移動 
ミサ イル 発射 
ミサ イル の 上 昇 、 命中 
ミサ イル を 宇宙 船 の 先端 に 付け る 
コン ボ イ 型 の ワー を ) ア する 
攻撃 型 の ワー ク を クリ ア す る 
ギャ ラク シア MR よび ぴ , 得 
点 計 算 。 表示 
チチ 再 船 を 追加 する か 
画面 の カラ ー 化 
攻撃 する ギャ ラク シア ン 数 を 決め る . 
攻撃 する ギャ ラク シア ン を 決め て 
デー タ を 移す . 
ーー の ON ク ャ ベス ナ テグ ジ 
ギャ ラク シア ン 飛 行 の メイ ン ・ ル ー チ ン 
/ / の サブ ルー チン 
ギャ ラク シア ン の ミサ イル 発生 
飛行 の デー タ の ポイ ンタ を 変更 する . 
宇宙 船 の 爆発 
コン ボ イ 型 へ 戻る . 
字 笛 船 爆 発 後 の 初期 設定 
ギャ ラク シア ン = 0 の チェ ッ ク 
/ の と き の 初 期 設 定 
画面 の 1 部 の クリ ア 
ギャ ラク シア ン の ミサ イル 降下 
ギャ ラク シア ン 飛 行 音 
母船 攻撃 型 の デー タ 移動 
護衛 / / 
護衛 の み の 飛 行 デ ー タ 移動 
母船 と 護衛 の 飛行 する も の を 決め 
// / の 飛行 メイ ン ・ 2 
/ リー カ サブ ルー チン 
ミス テリ ー ポ イン ト を 消す . 
本 














O 



































ラベ ル | アド レス | 内 容 
SPADR E5DF,E5E0 | 宇宙 船 の アド レス 
RNDDA | E5E1,E5E2 | 乱数 値 
STRWK | E5E3 一 EE627 | 星 の ア ドレ ス (23 個 分 ) 
MACLK | E628 メイ ン ・ ク ロッ ク 他 
CLKS E629 8 進 ク ロッ ク 値 
KEYPOP | E62A | スペ ー ス | キー を 戻し た か の フラ グ 
GADIRC | E62B ギャ ラク シア ン 移 動 方 向 値 
STK1 E62C 7 / の -- 時 スタ ッ ク 
GLADR E62D-E6F8 | コン ボ イ 型 ギャ ラク シア ン で , 生 
死 ,. アド レス , Y 値 、 又 値 , タイ 
プ の 順 で , 41 機 分 . 
WMISAP F723 ミサ イル 発射 し て いる か 
WMISADR | E724.E725 ミサ イル ・ ア ドレ ス 
TICOT E726 宇宙 船 表 示 ま で の 待 期 カ ウン タ 
DEHPR | E727 護衛 を 何 公 や られ た か ? 
FLMWK | E728-E731 | 母船 攻撃 型 で 、 生 死 ., アド レス 
Y 値 。 X 値 。、 タ イプ , コン ボ イ 中 
の 位置 , 飛行 コー ス ・ ポ イン タ 
・ ア ドレ ス の 順 . 
FLGAWK | E732 一 E759 | 攻撃 型 ギ ャ ラク シア ン で , 上 と 同 
様 。 4 機 分 . 
FLPRWK | E75A-E76D | 誠 衛 攻撃 型 で 、 上 と 同様. 2 機 分 
GALCT E76E ギャ ラク シア ン 数 
SCORE E76F、E770 | スコ ア 
SPPLS E771 宇宙 船 を 追加 し た か の フラ グ 
SPCOT E772 宇宙 船 の 数 
FLGACT | E773 飛行 する ギャ ラク シア ン の 数 
BASRET | E774 BASIC リ ター ン の フラ グ 
DEHSP E775 宇宙 船 を や られ た か の フラ グ 
SCENE E776 局面 数 
SCFLG E777.E778 局面 数 を 示す 旗 の ア ドレ ス 
FLSDFG E779 飛行 音 を 出す か の フラ グ 
FLSDPT | E77A,E77B | 飛行 音 の デー タ 2 半 ンタ 
MSCRS1 E77C,E77D | 上 部 母船 飛行 コー ス ・ デ ー タ の ポイ ンタ 
MSCRS2 E77E,E77F ド 部 母船 飛行 コー ス ・ デ ー タ の ポイ ンタ 
WMIPOAP E780 ミス テリ 人 3 の フラゲ 
MPOCT E781 / / 表示 カウ ンタ 
GMISADR | E782 一 E79F | ギ キャ ラク シア ン ・ ミ サイ ル の 生死 
と アド レス . 8 個 分 . 
( 表 4 ) デー タ ・ エ リア 
ラベ ル | アド レス | 内 容 
GADAT E3B2 一 E4AA コン ポイ 型 ギャ ラク シア ン の 初期 
ー タ 
SNDBM1 | E4AB-E4B7 | 宇 笛 船 燥 発音 1 
ッ 2 | E4B8 一 E4C2 / 2 
/ 3 | E4C3E4CF / 3 
SNDGB | E4D0E4DA | ギャ ラク シア ン 井 発音 
E4DB 一 E544 | ギャ ラク シア ン 飛 行 コ ー ス の デー タ 洛 
SNDFLY | E545 一 E566 | 飛行 音 の デー タ 























ネ *(3 


テ 
そっ 


1) 全 体 の スピ ー」 ド 

*(②) 宇 宙 船 8 

) ミ サイ ル 速 

の 笠 ラ ク シ ア ン 飛 行 速度 
) 





4 ・ ミ サイ ル 速 度 
(6) 守 宙 船 の 数 





変更 点 





番 ” 地 | 現在 の 値 
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BASIC プロ グラ ム ・ リ スト 





ュー ニュ ロー ビー ビビ 
QimーJ gr( ロ た Ch) 回 中 
人 い ま き す す い 1 


ュ ト ュー ーー 


PRINT" ロ ーーー 一 


和 す 8Bg 
和 す 3g 
SE 
S1g 
32g 


に JI515 約 よさ CHEC| 





HEULUEEEILHCHTE15。 1 四 i 


ERHD 
LHCRTEET ょ 2iFRTNT" ロ ロ HH ト H 


COLURCILOCRTE1 は 。BIFRINT 


LUEHTE1E。12kFRTNT "5 ロ 1 
9 LHCHTE16, 1 は FRTHT "は に 15」 
四 LUCHTE16, 16iFRINT "3 に 35! d 
CHLURE6I LHCRTE1 ロ 。 19I FRTNT "コー" EEHLOR 


CHLHRE 和 ILHEHRTEG: 1 








ロ GRLHRIHRN UER 1.2 品 
138E 年 11RS 日 9 


CLEHE 











LOCRTE5。 12 
は ま ー TINKEY ま : TF 計 
ロ ま =" "THEN に 1 
PEFU “Hi1 品 
BUISLE は 1: GLISLIE は 回 
CDPORGSOi FFRIHTEHR ま 1 ミッ 


= FUKESHDCBF: ロ ELSE 
F,&HEB ELSE BHTU 1r 昌 








HErEF 3 

LCRTET1 ょ で 5FRTHTLUSTHN ロ " 拓 拉 拉 盾 拓 " ミ 日 
HE 3:TF F=1 THEH 1 ELSE BHTH ささ 中 

Ei LHCHTE1 コ 。 1 ロ FRIHT" FEEEFFFEFEFEFFFFFFFFEFEFEP 

LUCRTE15。11:FRIRHT ee [UEE 民 
LUCRTE15。』 12EFRTHT"- 
FIR 1=1TIH3BEEINENT 
GTH 13 品 














ON RE は FREEEKP 
『 


LCRTE155。11iFRINT" ボ ボロ 1 UE 
LQECRHTE15。12IFRTHT ラジ 
ELUEE は LHCERTE18。 15EFRIHT"T ロロ 日 訂 ェ MA 
CHLIEESILHCHRTE18』 EiFRIHT リ F LT MBKH。 人 せま N 
LCRTE16,22 CHLHRETIFRTHNT リコ エ ォ ャ ュ ヨ ウー ウェ エア イー オロ ギコ 生 コ 代 EL 告別 
IF INFLUT ま 1) く >EHR ま て 133THEHSB ロ ELSE ロ HT ロ 13g 










FRINTEHR ま で 1S)IEHLURC RIHT"P 上 EE 上 EE 上 EE 上 E 上 EEE 上 EE 上 EEE" 








INO" 


LQERTES』 さ IFRTNT "ロン ン ン ーー 
EQLUR LUERTEE1 .SiFETHTUETHNG IEE 拓 拉 盾 持 『 5 ご ビ 

LCHTEG1 riFRTNTUSTNG"H ュ ミーSEHRE 韻 拓 拉 提 #!* ミ 日 

CULURE さ LHCERTEG1.1gi FRIHT "PETERY FHIHTSY 

CHLHRC は ILHCRTEE は : 11:FRITHT リ "ーーー 本 LHCHTEE。 18iFETHT リロ ロリ iLHCEHTEG は 。 13* 








COL ロ 
EL 
C ロ LOR 
ELGE 
ELURCSILTNECGS ュ 1 うー アロ 
FRETURN 
CHLORESILHCHTE11:1:FRIHTVME REE THE GRLPSNIHHS リ 
LCRTE。 3: に EESTRHT 
EULUREYiLHCRTEB ょ IFRTHT 中 


5i LUCERTEE ヨ 18kFRTNT" 上 

LCHTEE さ , 15i FRTHT "a" 

LUCHTEG デ ょ 16 FRINT リ 「」、 の 05LHEHTEE デ 15 FTHT リ ・ ラ ァ ィ リ 
LHCHTEG デ 16 FRTNT "は " 

3 ュ リリ BEFILHCHTEE デ ュ 15FRTNT リ デリ 




















E_THELE は 
Eu JUN " * 
LCHTE16。1 ロ IFRTHT "5 ? MVSTERY 


LnCEHTE1g。12iFRTIHNT リ オト ドリ 
ELURC さ LHCRTE1』 14:FRIHT 中 1 EEHLHRE1:LHEHTE1。 15I FRTNT リ ーー" 
FRINT "Kag _ Function" 

CHLURC5I LHCEHTE15。 EPRTHT リト オニ ミネ に 9 アニーー 還 :L 

LCRTE16, SEPRTNT "NISSILE ...。 SFRCE Keg" 

LUCRTE」 和 EEHLHRCTI FRTNT リコ ェ ォ オセ ュ ヨ ョ ー ロ ェ ザ 二手 ココ TIE 和 上 エ リ ョ 

IF INFUT ま K1 XSEHR ま で 13)THEHGS ELSE FRETUEHN 

UN 炎 












31 CELERER1 ロ OB HDFF MTDTH 昌 。 ロ iCHHNSHLE ロ で 昌 。 FETHTCHR ま て 1 ミ ) 

BZ PRINT "FE HLHRIHHN CHECK SU" 

3 FRINT "STHRT=D1gg" IS=&HED1 ロ EE FRTNT"EHD= ESDF "IE=SHE5DF 本 = FETHT 
3 加太 =S+Ti IF >=E THEN F=E+1 

BE FHR 1=S TH R-1:"= ニ PEEKT ラ 


ES に IS) 
3 G ま =HEN ま (うさ ニ + 5 EE ま =HE 江 まで ドー1 5 1 ま STRTH ロ まで は ーLENTHE 


RWENEST 





うっ > リロ" 3+HES 





398g PRIHT S ま 5 リー EE まり モヨ ま 
23 ITF S>=E THEN END ELSE GHTU 3 は 

















[4 は SF 
[HrF 
EdEF 
EdFF 
Is 


EEiFF 
EE3F 
EErF 
EEEF 
EEFF 
EF3F 
FrF 
EFEF 
[FFF 
ESF 
EgrF 
EgEF 
EgFF 
E1SF 
世 ま に 
E1EF 
E1FF 














ll II HH HI II IIIHI IIIH 
ll II IIIHIIHIIHIHIIHIIHIIHIHIUIHI HH 
l 昌 昌 昌 目 目 目 目 昌 昌 昌 昌 ll 





ロロ 


BEEF 

















BU IkBLk 








E5 5DF 








Il HH HHH HHHHIHIHH 
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マシ ン 語 プロ グラ ム ・ リ スト 















































































+ GE GE BE BH HE HH HH RG BG BB BB HBEBEBBB||Pelgi 9D511 85FF19CDH2EG 3E BB 19 =S GE 1 

: B PB 3 ロ SF BB BF E 78 CS 65 FF 93FFFF SCgB| | Dy2e iC9 21E2F836EZ2336EB2S1814 21 E2 F8 36 

: 8B BB BC FC OFGrE 1E ESg1FEgSF 1FgBBljDzSgi ES 5 2 さ 18 99 21 EZ F は 36 E3 23 3 ER 2 き 

: 66 FF 98FFFF 3 BB BC BB BE| | Py4g : 36 5 2 さ 36 EB 2 さ さ 6 EC SE 1 32 8 E ァ 

TB E BF BBH SF CS | | bzsg : SE Sg 32 81 EZ CB 21 E2 FS CD ロ 2 D6 CS ロ Z De BB 

: EE Fg BB FE ?E | | Dyeg : gg gg CD CF Dr 21 2 FS CD 3E Pr 21 EN F4 CD 2E 

1 42 24FF 8 FF 1E | | byzg : Dr 21 72 F4 CD 9E Dr 21 FEFS BE 7 CD SR De 23 

: BB 18 BF Ei gd | | DyBg : 2 さく 19 F9 21 BaF さ 6 BS CD 5 De 23 23 19F3 21 

: g 18 F g FE Bd | | bz9g : 16 F さ CD 9g De 21 1E F さ CD 9 De CS 56 Dr 6 99 

3 ロ 』 B 18 FF FF 38 ga | | Dr i CD C9 gg gg gg E5 DS5 2 E1 ES 
D1RG : 1 BB SSF B1 gg | | DBEg : 5 Br 11 1 BE 19 22 E1 ES rC D1 
D1B : FC gg | | DzCg : E1 C9 CD RB D7FE 3@ DS DE Sg 18F9 9 B9 BO 96 
D1Cg * EE | | pzpm : 1 gE g1 PD 21 ES ES CD CZ DY C6 4 5F 7B CDFC 
biDg : 5 81 | | DzEg : Dr DD 5 gg DD 2S DD 4 gg DD 23 CD 54 DB PD 7 
DiEg * E gg | | DzFg : gg DD 23 36 9E gC 1 DF C9 gg BB gg CS DS 21 99 
PF : 18 E gg | | Dagg : gg 11 78 gg 96 gB CE F Sgg1 19 EB 22 EB BS 20 
: Bg Cg | | D81g : F5 11 gg F3 19 D1 16 Bd 19 C1 C9 gg 9 9 1 19 

: EE 時 | | bazm : 2? CD SH DB 1 ES @S CD SR DB 1 64 gd CD SR DS 

5 8 DS : gE ロ R CD 3a DB 7D Ce SB 12 CB CS 37 SF SE 39 EDP 

: 81 D84q : 42 38 BS 3C 18 F9 C1 G9 12 1 さ C9 BB BB BB 1 28 

gg DB5g : E6 さ 4 3 29 E6 さ C FE GBS 2g 1 PF 32 29 E6 SR ZH 

Cg DSGg : E6 FE 1 Cg DB 9 FE FF CB PF 32 2 E6 C9 BOB9 

3 DSyg : gg さ R 28 E6 E6 gF Cg DD 21 2D E6 86 2Z PD rE B9 

B DB8g : FE ロ 1 28 9E 11 ge ggPD 19 1F2C3EDD GeE Bg1 PD 

9 D89g : GE gz E5CD 2D5E1 DDrEgSCB 67 2g 1BFE B1 

『 5 DSRG : 2 5 CD 48 D6 18 BCFEG2 2a BS CD GSEe 18 BS 

: Cg DSBg : CD ZEDeDPCBBg5E6e18CBFE11 29GSCDSF E6 

SB * 5 gC gF | | pacg : 18 gCFE 12 2 g5CD SAD6 1893 CDrS Pe DD CB 
DCg : Fg 3 ロ | | DaDg : 95 6 18 Bg gg gB gdSR 2BE6 E6 1F CB PD =1 2D 
DzDg : 回 DSEg : E6 ロ 6 29 DD EE g1 DD 66 g2 SR 2B E6 FE gg 2 2B 
00 で 8 DSFg : 2 さ DD 75 1 DD 74 g2 DD 34 4 DD E BBFE 1 29 
Ph 9 D9gg : 42 DD 7E gd FE SB 2 B5 SE 1 32 2C E6 BE BS = さ 
DS : D31g : 2 さ 2B 7E 23 7 2B D 2BF8 18 26 2B ED 75 g1 PD 
DS19 : 99 F9 B9 99 D929 : 7d 2 DD 35 ED TE BBFE 91 2 17 DD E 4 FE 
DS2g : dg BG BB 1E D93 ロ : 4 29 ロ 4 RF 32 2C E6 GE BS 2S 7E 2B rr 23 BDP 29 
DS3g : 3 FF Cg BF 94q : FE 36 Bq 11 g6 gg DD 19 19 88 Sn 2C E6 32 2B EG 
DS4g : BS FF CS SF 5F 33 Dg5g : C9 gg gg BCD PBDYFEE33BBEg4 PE 3 18FSFE 
DS5g : C 7F GS EE FF ES GE 1 D9Gg : ロ 1 2 93 3E SF C9 FE B2 29 GS SE 1F C9 SE BF 93 
DS36g : BE BB Br 1F FrB 39 97 : gg ロロ 3R 2B E6 E6 BZ Cg DD 21 E さ ES B6 17 ED 
D3Yg ig BEgFSFE BE 1 1 D98g : dE ロ 2 3H 28 E6 1 28 BS 11 93 BB DD 19 19FB C3 
D3Bg : FF 81 1 81 81 1 81 81 1 1 FF | | bg9g : DD 6E gd DP 6 g1 7E FE SE 29 2 36 B9g 11 『8 9 
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グー ム の 時 錠 


この ゲー ム は 天変 有名 (と 筆者 は 信じ し ます) な ゲー ム で 
すか ら , 知っ て いる 人 も 多い と 思い ます が , 本 物 と 人 達 う 点 
も ある の で 少し 説明 し ます . 

写真 1 を 見 て くだ さい . 左端 , 中 央 , 右端 に ある 丘 が ミ 
サイ ル 基 地 で , 手持 ちの ミサ イル は すべ て ここ に 表示 され 
て お り , 左 か ら 順 に 11 基 , 9 基 , 10 基 と , 全部 で 30 基 の ミ 
サイ ル が あり ます . そし て , 基地 の 間 に あ る 水色 の と ころ 
が 都市 で ここ を 守る わけ で す . 

まず , 敵 ミ サイ ル (『ATTACK MISSILE』 と 呼ぶ ) が 飛 
跡 を 残し な が ら , 地上 の 都市 や 基地 目 掛け て 降下 し て くる 
の で (ライ ング の 先端 に ミサ イル が ある と 思っ て くだ さい ), 
カー ソル (照準 ) を その 飛来 先 に 移動 し , 発射 キー を 押し 
て 基地 か ら ミ サイ ル を 打ち 上 げ ま す . 発射 基地 は キー に よ 
っ て 選択 する こと が で き , 1 度 に 10 発 まで 発射 可能 で す . 

ミサ イル が 発 射 され る と , カー ソル の あっ た 位置 に クロ 
スマ ー ク が 表示 され , ミサ イル は この マー ク 目 指し て 敵 ミ 
サイ ル と 同じ よう に , 青色 の 飛 跡 を 残し な が ら 進 み ま す 

(写真 2). 

ミサ イル が マー ク に 到達 する と , そこ で 爆発 し て 爆 室 を 
生じ , この と き , 敵 ミ サイ ル が うま く こ の 料 守 に 包ま れれ 





ば 敵 ミ サイ ル も 爆発 。 消 減 し 。 空 か ら の 攻撃 を 防ぐ こと 
が で きま す ( 写 真 3). 

敵 ミ サイ ル は いろ いろ な と ころ か らい ろ い ろ な 方 向 へ 飛 
来 し 。 さら に , 分 像 する こと も ある の で , カー ソル を す ば 
や く 縦横 に 動か し て 迎撃 用 ミサ イル を 湊 々 に 打ち 上 げ な い 
と , 敵 ミサ イル は 地上 に 達し , ミサ イル 基地 や 都市 を 破壊 
( 半 Cel5 に ESUNI ま 9 

ここ で ポイ ント に な る の は , 発射 され た 迎撃 ミサ イル が 
燥 室 を 広げ る まで の 時 間 と , 敵 ミ サイ ル が そこ に 到達 する 
時 間 を 見 計ら っ て カー ソル を セッ ト す る こと で , また 場面 
が 進む に つれ て 敵 ミ サイ ル の 降下 速度 が 増す の で , それ も 
計算 に 入れ な けれ ば な り ま せん . 

破壊 きれ た 都市 は 画面 上 か ら 消 た え , ミサ イル 共 地 も ミサ 
ィ ル が すべ て な く な っ て : 機能 が 停 止 し て し まい ます ( 写 
真 4). ミサ イル が 全部 な く な る と 手 も 足 も 出 な く な る の 
で , 都市 を 守る こと だ け で な く , 基地 を 守る こと に も 気 を 
配ら な けれ ば な り ま せん . 


また , 戦闘 中 に 破壊 衛星 が 出現 し ., ミサ イル を 和沙 と し た 





り し ます が , これ も 吉宏 に 包ま れれ ば 爆 発し ます (写真 5 ) 


破壊 衛星 の 投下 する ミサ イル は , 低い 位置 で 分 像 する の で 
防ぐ の が 難し く , 衛星 が 現れ た ら す ぐ 消 し て し まう こと で 
す . も し それ が 間に合わ な く て ミサ イル が 投下 され た だ たら , 
分 裂 し て 増え る 前 に 消し た 方 が いい で し ょ う - 

敵 ミ サイ ル が すべ て 消 減 す る と , その 場面 は 終了 で , 次 
に 得点 の 計算 に 入り ます . この と き , 残っ た 都市 が 1 つも 


wl 
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写真 1 ゲー ム ・ ス ター ト ( 中 央 の 十字 が カー ソル ) 





写真 2 カー ソル で セッ ト し た 位置 に 迎撃 ミサ イル が 飛ん で いく 





写真 3 迎撃 ミサ イル に よっ て 爆 雲 発生 





写真 4 ミサ イル が 基地 や 都市 へ 次 々 と 襲い か か る 





写真 5 右 中 央 に ある の が 破壊 衛星 


写真 6 スコ ア , 得点 , ゲー ム の 説明 


玉 ※ 素 門 15 ら ILE COMHHNDEE \**) 
1 つら CORE 。: (ロワ ら CORE 。、 ES 





RODSeis 
GE STHRT・・ く 『> 


写真 7 早め に 手 を 打つ の が , この ゲー ム の コツ 


写真 8 各 面 に 移る ご と に , 得点 が 表示 され る 


OURE 5COEE 
H エー5CORE 


| 
DC 


[KC 間 昌 Ii 


HERT PRTTEERH 
1 KR DOTRTS 








な いと ゲー ム ・ オ ー バ ー で , フィ ナー レ を 通し て 再 ゲ ー ム 
入力 待ち と な り ま す . 





フン の グラ の 例 が 


まず , プロ グラ ム を RUN さ せる と , 写真 6 の よう に タ 
ィ イト ル ,。 HI- SCORE, SCORE, 説明 文 な を ど が 表示 され ま 
ず 。 
ここ で [Y] キー を 押す と ゲー ム が 開始 され , 画面 が 切り 変わ っ 
て , 現在 の SCORE, 次 の 場面 の 得点 の 倍率 な ど を 表示 し 
た 後 , けた た だ たま しい 効果 音 (? ) とともに, 都市 .。 ミサ イル 
基地 . カー ソル が 現れ ます . 

音 が 出 て いる と き は , まだ 敵 ミ サイ ル は 発生 し ませ ん が , 
カー ソル は 動か すこ と が で き , 迎撃 し や すい 位置 に 移動 き 
せ 待 機 し ます . 

キー 操作 は , ゲー ム ・ ス ター ト 入 力 時 の 説明 娘 に も 表示 
され ます が , カー ソル の 移動 は 良く 使わ れる テン キー の 図 
(}), [4] (ぐつ), [@] ご) [8] (1) で , ミサ イル の 発射 が 
右側 の シフ ト ・ キ ー の 左 3 つ の キー で す . それ ぞ れ , 左端 。 
中 央 , 右端 の 基地 に 対応 し て いま す . 

この キー に し た 理由 は , 3 つ 同 し ポー ト か ら 読 み 出 すこ 
と が で きる の で , キー が 押さ きれ て いる 間 , ミサ イル が 連続 
発射 し て し まう の を 防ぐ の に 便利 だ っ た か ら で す . また , 
カー ソル は 終 方向 。 横 方 向 の キー を 同時 に 押す こと に より , 
斜め に 進め る こと も で きま す . 

遊び 方 は 先ほど の 『 ゲ ダー ム の 説明 』 で だ いた いわ か る と 
思い ます が , ゲー ム を や っ て いて 少し 変 に 思わ れる か も し 
れ な い 点 が いく つか ある の で , それ を つけ 加え て お きま す 
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人 都市 が 全部 消滅 し て し まっ た の に , 後 か ら 後 か ら 敵 ミ 

サイ ル が 発生 し て 米 て 終わ ら な い . 

@ 画 面 上 の 敵 ミ サイ ル を 全部 消し て も 場面 が 終わ ら な い - 
と いう こと で す が , これ は 1 場面 に 発生 する 敵 ミ サイ ル の 
数 が 決ま っ て いて , それ が 0 に な ら な いう ち は 終 了 で き な 
いと に より 上 ます 。 

つま り , 場面 が 進む に つれ て , 後 か ら 発生 する ミサ イル 
の 数 が 多く な る の で す が , その と き , 早い 内 に や られ て し 
まう と , 敵 ミサ イル が 全部 出 て し まう まで 待っ て いな けれ ば 
な ら な いこ と に な り ま す . さら に , 発生 する 間隔 も 一 度 に 
た くさ ん 現われ な いよ うに 少し 広く と っ て ある の で , し ば 
らく 発生 し て こない こと も 起こ る わけ で す . 

それ か ら , 画面 上 に 爆 宴 が 多く な る と カー ソル の 移動 束 
度 が 遅く な り ま す . 私 の プロ グラ ム の せい か も し れ ま せん 
が , 爆 守 を 明 減 きせ る の は さす が の マシ ン 語 で も 難儀 の よ 

















3 で す . 








尊 成 


SNINSRNM 
点 で , これ に 場面 が 進む に つれ て 倍率 が 掛け られ ます -. 初 め 
は 1 倍 で す が , 2 面 消 すご と に 2 倍 , 3 倍 と 増え て いき , 
最高 6 倍 に まで な り ま す . 6 倍 の 場面 は 1 回 で これ を 終え 
る と 最初 に 戻り , 再び 1 倍 か ら 始 め ま す . 

結局 , 11 面 終 を て 1 回 り と いう こと で す が , 場面 が 進ん 
で いく と 敵 の 攻撃 が 強く な る の で , 1 回 りす る の は 至難 の 
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表 1 BASIC プ ログ ラム の 説明 


変数 の イニ シャ ライ ズ 

ゲー ム 説 明文 へ 

1 ゲー ム ご と の イニ シャ ライ ズ ダ 
行 中 の スコ ア 表 示 





マシ ン 語 プロ グラ ム ワ ー ク ・ エ リア へ の デー タ 革 き 込み 
マシ ン 語 ブ プログ ラム へ 

ポー ナス 点 の 計算 ・ 表 示 

次 の 場面 へ の 準備 

都市 の 追加 

残っ な た ミサ イル の 数 調べ 

ゲー ム の 説明 表示 

場面 誠 定 川 デ ー タ 

フィ ナー レ の 表示 





ーー bc ob ーー テーー テ ーー 


の の 





画面 上 に ドッ ト を セ モット する . 

座標 値 X、Y を アド レス に 変換 する . 

画面 上 上 の ドッ ト を 消す . 

ドッ ト が モッ ト さ れ て いる か どう か を 与え る . 

ドッ ト で 絵 を 表示 する . 

カー ソル の 移動 、 表示 (前 部 に PLO 耳 用 の デー タ 
が 入っ て いる ) 

瑞 ミ サイ ル の クリ ア 

WAIT サブ ルー チン 

乱数 発生 サ プ ル ー チ ン 

都市 表示 サブ ルー チン 

ミサ イル 共 地 表 が サブ ルー チン 

迎 由 ミ サイ ル 移 動 、 表示 

迎 臣 ミサ イル 発 徒 

迎 黄 ミサ イル の 新しい 位 首 を 

敵 ミ サイ ル の 新しい 位 i 
スタ ー ト , エン ド 座 栖 か ら , 


を サ そ る : 


ot mi 
ぃ w 過 いい ょ の 








除算 サブ ルー チン 

英 ミ サイ ル 移 動 、 表示 

再 天 の 表示 (パタ ー ン ・ カ ウン タ を あげ ば ない) 
堪 の 表示 (パタ ー ン ・ カ ヴ ツン タ を イン クリ メン ト ) 
DB 2: 画面 。 ワ ー ク ・ エ リア の 初期 設定 

DBB 1 敵 ミ サイ ル 発 生 

DC 壮 出 し 、 カー ソル の 移動 

D@ 必 で メイ ン ・ ル ー プ の スタ ー ト 

DC 92 敵 ミ サイ ル の バッ ファ を モッ ト 

DD 孝 市 消滅 の 判定 

DD66 ミサ イル 基地 消滅 の 判定 

DE1: 衛 時 の 表示 移動 

DEFB ミサ イル の 投下 

DF92 音 剖 を 出す サブ ルーチン 

DFA 堪 発 の 着 出 し 





技 だ と 思い ます . また , 倍率 が 変わ る の に 応じ て 敵 ミ サイ 
ル の 色 や 基地 の 色 も 変化 し ます 

と ころ で 得点 の 他 に , この ゲー ム で は 1 面 ご と に ボー ナ 
ス 点 が 与 を られ ます . 残っ た 手持 ちの ミサ イル 1 つ に 付き 
5 点 , 防衛 され 残っ た 都市 1 つ に 付き 100 点 で . や は りこ 
れ に も 倍率 が 掛け られ ます . 

また , スコ ア が 1 万 点 増 すご と に 都市 が 1 つ 与 えら れ ま 
す (た だ し , 6 つ あ る と き は それ 以上 増え ませ ん ). 


sElko の 
の う T WE す 
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図 1 フロ ー チ ャ ー ト 





(a) ジェ ネ ラ ル ・ フ ロー チャ ー ト  (b) 迎撃 ミサ イル の 発生 ・ 移 動 (c) 敵 ミ サイ ル の 移動 









BASIC ス タッ ク ・ ボ 
イン タ の 退避 


画面 モー ド 設定 


ワーク ・ エ リア 初期 設定 















START 
HL- バ ッ フ ァ ・ ト ッ プ アド レス 
ーー 





敵 ミ サイ ル の 発生 
音 出し ・ カ ー ソ ル 移 動 










2o 発射 キー が 


押さ れ た か ? 


空い て いる バッ ファ を サー チ 
音 出 し スイ ッ チ ・ セ ッ ト 
| EXPBF-OIH | 


カー ソル の 位置 を 目 
裸 点 と し て ミサ イル 
・ バ パッ ファ を セッ ト 























表示 され て いる ミサ 
イル を 1 つ 消 す 


RETURN 












瑞 ミ サイ ル 命 中 判定 
BASIC リ ター ン か ? 







迎撃 ミサ イル の 発射 音 





ミサ イル が 目 探 に 
到 直 し た か 2? 


EXPBUF~-02H 








ポイ ンタ を 次 の バッ ファ へ 

















空い て いる 
ミサ イル ・ バ ッ フ ァ が 
ある か 7? 


yes 


席 ミ サイ ル を 新た に セッ ト 









工 ミサ イル ・ ク リア 


EXPBUFー02H 






























| 
き ジ 。 フワ ロク ラム た つの て 

| 

タイ トル の 表示 , 得点 の 計算 表示 な ど 画 面 40 字 モー ド の 
と ころ は すべ て BASIC が 行なっ て お り , その 内 容 を 表 1 に 
示し ます . 乱数 の 初期 値 は 毎回 同 し に な ら な いよ うに , 内 
蔵 ク ロッ ク の 秒 を 取り 出し て 使用 し て いま す . 

マシ ン 語 の 部 分 は アモ ンプ ブラ を 使っ て 作っ た の で 案外 小 
さく まとまり , それ で も 約 2.8K くら い の 大 きき さ で す . 
図 1 は マシ ン 語 プ ログ ラム の フロ ー チ ャ ー ト で す が , 詳 
し く 書 く と 大 変 な 量 に な る の で , 主 な も の の 概略 だ け に し て 
あり ます . サブ ルー チン の 中 で PLOT と いう の は , BC 
レジ スタ に 中 心 位置 X、Y を 入れ , HL ペア ・ レ ジス タ に 
プロ ッ ト す る 絵 の デ ー タ の 格納 先頭 番地 を 入れ て CALL 
する と , その 位置 を 中 心 に ドッ ト 単 位 で 絵 を 描く サブ ルー 
チン で , カー ソル の 表示 に 使っ て いま す -. 


図 1 の 中 の EX.JP サ ブル ー チ ン は 爆 室 を 表示 する も の で 


EXPBUF は その バッ ファ の こと で す . パタ ー ン ・ カ ウン 
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タ の 意味 は O1H で クロ ス ・ マ ー ク の 表示 , 02H 一 0DH と 
イン クリ メン ト さ れる に つれ て 対応 する 大 き さ の 爆 法 が 表 
示さ れる よう に な っ て いま す . 

また , EXP で は ポイ ンタ が バッ ファ の 最後 か ら 前 の 方 
へ スキ ャ ン し て きま す が , これ は 爆 雲 を 描く と き , その 周 
囲 を 少し クリ ア し て お き , 後 か ら 生 し た 爆 雲 が 前 か ら あ る 
爆 守 に 重なっ て も , 境界 が わか る よう に する た めで す . 

この ゲー ム の 中 で 最も 重要 な ライ ン の プロ ッ ト に つい て 
は , 図 2 を 見 て くだ さい . N- BASIC の LINE 文 は どの よ 
うな 処理 を や っ て いる の か 知り ませ ん が , 図 の 方 法 で も 正 
確 に , し か も 高速 で 表示 で きま す . 

マシ ン 語 サブ ルーチン は D500H か ら 入 っ て いま す が , そ 
の 詳し い 説 明 を 青 2 に あげ て お きま す . また , ワー ク ・ エ 
リア に つい て は 表 3 を , デー タ ・ エ リア に つい て は 表 4 を 
見 て くだ さい . 

と ころ で ミサ イル 爆発 の 判定 に つい て で す が , 敵 ミ サイ 
ル や 破壊 衛星 が 爆 辻 に 触れ て も 爆発 し な いこ と が あり ます . 
これ は , 命中 の 判定 が 位置 の 比較 で な く , 画面 上 で POINT 
する こと に よっ て 行なわ れ , し か も 1 箇所 の POINT で は , 
ライ ン が 交差 し た と き や カ み カー ソル に 当たっ た だ け で 爆発 し 
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(d) 爆 雲 表示 サ プ ブルー チン (e) ミサ イル 基地 ・ 都 市 命中 ・BASIC リターン 
イン クリ メン トス ター ト 












パタ ー ン カウ ンタ イン クリ メン ト 
部 分 に 書き 込む 











HL 一 EXPBUF TOP 


フリ ッ ク ・ カ ウン タ は 
クリ ア 要 求 か ? 

















77 の 


HL-EXPBUF END 


パタ ー ン ・ カ ウン タ 
00H or 01H か 2 





すべ て の バッ ファ 
を 調べ た か ? 


RETURN 





ドッ ト 位 置 を 
V- RAM ア ドレ ス 


変換 され た アド レス 
を 中 心 に クリ ア 


























莉 ミ サイ ル が 
すべ て 消滅 し た か ? 





yes 





| + ャ マーク PLoT | 








7 の 


カウ ンタ ・ イ ンク リ メ ン ト 


DE 表示 中 心 ア ドレ ス 







HL 表示 用 デー タ の 
格納 先頭 アド レス 





6@S 
BASIC ス タッ ク ・ ボ ポイ ンタ 回 衝 
RETURN RETURN 


爆 鶴 の 表示 




















て し まう た め 。, 同時 に 数 箇所 POINT し て いる の で , 少し く と いう こと が ある か も し れ な い の で , 変更 点 を あげ て お き 
らい 触れ た だ け で は 命中 と 見 な され な いか ら で す . で すか ます . 変更 と 言っ て も マシ ン 語 プロ グラ ム で な く BASIC の 
ら , 完全 に 爆 寺 に 包ん で し まえ ば 必ず 爆 発し ます . DATA 文 に 手 を 加え る だ け で 済み ます . 

また , ゲー ム を 中 断 し た いと き に は [STOPI キ ー を 押し デー タ の 内 容 は 表 5 に 示し ます . MO を 除い て 各々 6 つ 
ます . これ は マシ ン 語 で 走っ て いる と き で も BASIC と 同 デー タ が 並ん で いる の は , 2 面 ご と に 新しい デー タ を 使う 
様 に .。 メイ ン ・ ル ー プ で [STOPI キ ー の スキ ャ ン を し て い か ら で , 先頭 が 第 1 , 2 面 の デー タ で す ・ 
る の で , 即 BASIC ヘ へ リターン し , BASIC 上 で BREAK が か 色 の 変更 は 表 6 を 参照 し て 自由 に 変え て 構い ませ ん が , 
か っ て くれ ます . 他 の 変更 は 少し 注意 が 必要 で す . 

その 後 , も し CONTINUE す る と , いま 中 断 し た 場面 の ス まず , OC は 都市 を 狙う 敵 ミ サイ ル 数 で 1 以上 に し て く 
コア 計算 か ら 始ま っ て し まい ます . また , 画面 の リバ ー ス だ さい . また , これ と は 別に ミサ イル 甘 地 を 狙う も の が 必 
は , WIpTH, [CR| で 元 に 戻り ます . ず 3 基 出 現し ます が , この 数 を 変え た る こと は で きま せん . 


反対 に OC の 数 を 9 以上 に し て も , それ 以上 は 発生 し て 
きま せん (つま り 12 本 以上 は 現われ な い ) . A0 は あま り 大 き 
な 数 に する と , AR を 大 きく し た 場合 と 同じ よう に , 場面 


フワ グラ ムク の 人 完 が な か な か 終わ ら な く な り ま す . 


MO は 値 が 小さ い ほ ど ミ サイ ル の 速度 が 速く な り 各 場面 








ゲー ム の レベ ル は 標準 と 思わ れる 程度 に 調整 し て あり , ご と に 変 そ られ ます が , 4 くら い が カ ー ソ ル の スピ ー ド の 
な る べく 変更 し な いで 欲し い の で す が , プレ イヤ ー に よっ 関係 か ら 限 界 だ と 思い ます . 
て は 上 将 し 過ぎ る と か , 何 回 か や っ て 簡単 に な っ て し まっ た SA の 値 は 小さ くす る と 衛星 が 出現 し や すく な り , RA 
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2 ライ ン の 表示 法 





敵 ミ サイ ル の バッ ファ 構成 
JV に R を 代入 し , 基準 方 向 に 1 つ 進 め る た びに , JV=JV+R 
移動 カウ ンタ 1… 共 準 方 向 : 正 を 行ない 、CY ニ 1 の と き , 基準 訪 各 と 直角 に , 栓 で は 了 方 向 、 の 














分 裂 カ ウン タ bz で は * 方向 に 1 つ 進め ます . も ちろ ん , 正 、 作 方 向 に よっ て , さ 
に 移動 方 向 フ ラグ し 0 基準 廊 向 : ら に 区 別 さ きれ, 了 方 向 は 正 が 迎 帽 ミサ イル , 負 が 敵 ミ サイ ル と 決 
ー 1… 共 準 方向 : Y 電 まっ て いる の で , サブルーチン で 区 別して いま す . 
ER b B 例 ) A=40H  B=10H 
JY ー 0… 基 準 亡 向 : さ 畔 0 
F 40H 


基準 方 向 : ライ ン を 進め る と き , 必ず 


| 現在 位置 移動 きせ る 方向 


*。 了 共に 正方 向 、 基準 方 向 は * 








? (⑳) WE NM、、 JY 
な 上 
| 発生 位置 () | クリ アァ する と き 、 現在 人 商 を 出発 点 本 


COH 十 40H=00H CY=1 
00H + 40H=40H 


ヶ (XX) | に 大 す た 


同人 る の が 40H + 40Hー80H 
で 遇 1 
AB…A=A-1 に し て 2) 8 
と する . 中 語 の と ーー が ド 『/ ト |* は ど 包 に な と 
⑩ の 場合 出発 点 の と ころ で 少し ずれ が 生じ し ます が , ほとん ど 気 に な ら な い 


程度 な の で 補正 は 省略 し まし た . 























回 + [00| 一 回 0 
ーーー = 還 
IAl 

メ  @ の 場合 

IA+ [OO 一 [AlOO 
ーーー = 国 
IBI 

表 3 ワー ク ・ エ リア 表 4 デー タ ・ エ リア 


尋 雲 パター ン の デー タ . まず OR て で 画面 に 壮 き 込 
まれ る デー タ 、。 相 考 位 置 が 繰り 返し 入っ て いて , 00 
の デー タ に 米 る と , 次 か ら は 00 が 来る まで AND で 
剖 き 込ま れる デー タ が 入っ て いる . 
クロ ス ・ マ ー ク の PLOT デ テー タ 


スコ ア (1 で 25 点 ) 

乱数 値 

共 他 の カラ ー コ ー ド 

カー ソル の Y 値 

カー ソル の X 値 

敵 ミ サイ ル の カラ ー コ ー ド 

発 半 誠 発 生 ス イッ チ 

敵 ミ サイ ル の 速度 データ 

都市 日 標 の 逆 ミ サイ ル 数 

堪 室 萌 減 カウ ンタ 

BASIC ス タッ ク ・ ポ イン タ (下位 ) 
ヶ (上 位 ) 

発 半 キー・ ス キャ ン ・ デ ー タ 

分 像 発生 素 

衛星 の 待機 カウ ンタ 表 5 配列 変数 と デー タ の 内 容 

衛 是 の 存在 指示 配列 名 | 行 

衛星 の 位置 

敵 ミ サイ ル 2 次 発生 数 
2 次 発生 待機 カウ ンタ 
発生 サブ プ ル ー チ ン の カウ ンタ 


堪 宝 パタ ー ン ・ デ ー タ の 格納 先頭 番地 
ミサ イル 甘 地 の 各 ミ サイ ル の 位置 ( 各 場 耐 ご と E 8 
C 0 一 E920 へ 転送 され る ) 
者 市 の 位置 (1 ゲーム ご と EE920 一 へ 転送 され る ) 
4 地面 表示 デー タ 
5 3 カー ソル PLO 工 用 デー タ 
DDFEF< 衛星 表示 用 デー タ 








瑞 ミ サイ ル の 人 色 コ ー ド 
甘 地 の 色 コ ー ド 

第 1 次 ミサ イル 発生 数 
第 2 次 

第 2 次 ミサ イル 発生 間隔 
敵 ミ サイ ル 速 度 

破壊 衛 時 発生 間隔 

敵 ミ サイ ル 分 肌 率 


瑞 ミ サイ ル の バッ ファ 

爆 室 の バッ ファ 

迎 胃 ミ サイ ル の バッ ファ テ 

ミサ イル 共 地 の 各 ミ サイ ル の 位 汗 





素 6 カラ ー グ ラフ ィ 
ッ ク と 16 進 コー ド 


都市 の 位置 











ji 時 着 
え 4Py ト を 
あ zZ ほ 〔 い 
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の 値 を 大 きく する と 敵 ミ サイ ル が 分 像 し や すく な り ま す . 
ディ スプ レイ に カラ ー テ レビ や グリ ー ン ・ モ ニタ を 使用 
し て いる 方 で , 青色 の ライ ン が 見 に くい 場合 は D70AH の 
38H( 青 ) を 別 の 色 コ ー ド に , また リバ ー ス 画面 の 嫌い な 方 
は ( 胃 に 良く な いか も ), BASIC プ ログ ラム 中 の OUT&H 
51, 科 H33 を 削っ て くだ さい . 





中 た し 




















28 ひ 0 
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それ か ら 余 談 に な り ま す が , BASIC と マシ ン 語 に 分 れ て 
いる プロ グラ ム を ロー ド す る と き , BASIC の プロ グラ ム が 
入り 終わ る の を 待っ て か ら モ ニタ で ロー ド す る わけ で す が , 








さん / 7 デビ BASIC が 長い 場合 に は 大 変 し れ っ た いも の で す . 
| そこ で , 百 動 的 に モニ タ に 入っ て マシ ン 語 プロ グラ ム を 
ミサ イル ・ コ マン ダー を PC で 走ら せよ うと 思い 立っ て ロー ド し, し か も その まま 実行 に 入る よう な カン タン (?) 
ゲー ム の 構想 を 考え を て か ら , 時 間 の 合間 を 見 な が ら コ ツ コ な 方 法 を 考え て み ま し た . 
ッ と 作っ た の で , 完 動 する まで に 随分 時 間 が か か り ま し た . 方 法 と 言っ て も 大 し た こと で な く , ロー ド す る 前 に モニ 
プロ グラ ム 自 体 は あま り 上 手 な も の と は 言え ませ ん が , ミ タ の S コ マン ド で EA7CH か ら 0D, 4D, 4F,。 4E, 0D, 4C, 
サイ ル の 動き な ど 思 っ た より リア ル な の で , 我 な が ら 感 心 0D.02.52,55.4E,0D(LCR |] AON [CR | LCR RUN 
し て いま す . LCR ] ) を 書き 込み cloqd “ファ イル 名 "で LRETURN | 
私 の ハイ ・ ス コア は 24,395 点 で す が , ボー ナス 点 な どの を 押す か わり に [Ef-T] を 押し ます . 後 は ゲー ム が スタ ー ト 
配点 が 大 きい の で , 初心 者 で も 何 回 か プレ イ す れ ば 1 万 点 する まで , コー ヒー で も 1 枕 . 


は 超 せ る と 思い ます . 


還 還 昌 還 間 昌 昌 昌 ミサ イル ・ コ マン ダー BASIC プ ログ ラム ・ リ スト 回 還 還 還 還 間 昌 間 間 昌 間 間 間 間 昌 " 


ーー ィ 





1 CLERS。&HD さ FF MIDTHH ロ Ei ECUNS ロ LE 。 ロ > 1: ロ UTEH51 .&H さ さき 
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中 SR 回 3 IEHHSHLE 
MIBTHH は gz HLTSH51 
GSHIEO5| 
HDE=HEBC HEILEE3 眉 
HDPD=HESEI BISLEG3 品 
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rg LOCRTEB,5iFRINT "HIT-SEEE.・ "3HTi 
8 LINE さ 。 マ 3ー バ さら 。 "。 で 、 昌 F 
9 LHCRTE』 riFFTNT FFPOINTS E 
EgE LUCHRTEY。11:FRTNT " 玉 EHHLS キリ 
1 LHCRTE5。 9: FETHT "KILLER 
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EE 
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185H IFSC>HITHENHT=SC 
1g6 ロ B ロ TU 15g 
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っ rrie 宇宙 力 黄 ゲー ム 


遠い むか し , は る か 数 万 光 年 か な た の 銀河 系 で , と て つ 
も な い 大 冒険 が 繰り 広げ られ た …… こさ 

そし て 物語 も 後半 , 帝国 軍 の 巨大 要塞 惑星 デス ・ ス ター 
を 破壊 する た め , 惑星 ヤ ヴ ィ ン の 第 4 衛星 に ある 共和 国軍 
の 秘密 基地 か ら , 次 々 と X 型 宇宙 艇 が 飛び た っ た . 目標 は 
デス ・ ス ター の 弱点 , それ は 巨大 な 溝 の 底 に ある , 要 寒 惑 
星 全 体 に 電力 を 供給 し て いる 発電 所 の 主 反応 炉 へ 直通 する 
放熱 口 だ ノ (STAR WARS より ) 





* こ の 部 分 は 喘 画 “STAR WARS" の 日 本 版 ボ スタ ーー 第 1 号 か ら 引 用 
し た も の で す が , た と えば 我 が 銀 河 系 の 直径 が 10 万 光 年 (円 板 部 の 有 
効 直径 ) で , アン ドロ メダ 銀河 まで は 220 万 光 年 な の で , この 『 は る か 
数 万 光 年 か な た の …』 は お か し いと 思う の で す が …. 


や 一 和 ぶ い 
障 ゲー ム の 説明 

RUN さ せる と , タイ トル が 表示 され (写真 1 ), 中 央 か 
ら 周 囲 へ 広がる 四角 形 に より この タイ トル が 消さ れ て いき 
ます (写真 2 ). 











写真 1 タイ トル が 表示 され … 


ロ FHLE 








そし て 再び タイ トル と 目盛 , 照準 , ス コア な ど が 表示 さ 


れ (写真 3 )。 いよ いよ ゲー ム ・ ス ター ト で す . 


写真 4 の よう に 溝 と H 型 宇宙 艇 が 表示 され る の で , テン 
・ キ ー に より 陸 準 を 上 下 左右 に 動か し て H 型 字 宙 艇 に 合わ 


せま す ( 図 1 ). そして, スペ ー ス ・ キ ー を 押す と レー ザー 
が 発射 され ま す . 溝 の パ ター ン は 写真 4, 5, 6 と 3 種類 


あり , これ が この 順序 で 順番 に 繰り 返し 表示 され る の で , 


写真 2 次 に タイ トル が 序々 に 消さ れ て いき ます ., 
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1 キー 入力 と 照準 の 移動 方 向 


AN 





写真 4 溝 の 様子 (その 1) 


に (91 コ 
HIT-SCORE 


写真 5 溝 の 様子 (その 2) 
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自分 が 前 方 に 進ん で いる よう に 感じ られ ます . H 型 宇宙 散 
選 は 庄 の の 2 さ の 他 に , 写真 7, 8 と 合計 3 種類 が 
あり ます ( 図 2). 写真 9 は レー ザー が 命中 し て 爆発 し た と 
ころ , また 写真 10 は 外れ た と ころ で す . 

また , 時 々 放熱 口 が 接近 し て きま す (写真 11--15). この 
写 真 で は H 型 宇宙 艇 が 映っ て いま せん が , 実際 に は 常 ? 0 
示さ れ て いま す . 写真 16 は これ を 攻撃 し て 爆発 し た と こ 
で です 、 

写真 17 は GAME OVER で す . ゲー ム ・ オ ー バ ー と な れ 
ば 再び 写真 1 の 状態 に 戻り ます . また , ゲー ム 中 な ど に 
SHIFT| キー を 押す と , その 時 点 で 同じ く 写 真 1 の 状態 に 
戻り ます . し た が っ て , プロ グラ ム を RUN さ せ て も すぐ 
に ゲー ム を 始め な く て よく , 和 宇宙 艇 が 飛び 放熱 口 が 現われ 
る の を 見 な が ら , お も むろ に |SHIFT| キー を 押せ ば ゲー ム 
・ ス ター ト と な る わけ で す . 

図 3 が 得点 と ルー ル に 関す る アル ゴリ ズム で す . H 型 宇 

















図 2 H 型 宇宙 艇 
NG) 
XXG 69。 交 る 委 り 
XX: 外れ と へ 3 
2 時 内 は 
X ⑨* ぐ @? XX @ 
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写真 7 日 型 宇宙 艇 (2) 





写真 9 宇宙 艇 に 命中 ./ 


ae 
に ) の 9. に コ に [et]、1 コ 
HI-SCORE HI-SCORE 


写真 10 ハズ レノ 


に 9 り 、】 コ 
ー ロ 8989 一 


5 いい り 、 コ 
ー9999 一 


写真 11 放熱 口 接近 (その 1 ) 写真 15 放熱 口 接近 (その 5) 


に に 9 ( コ 
19) 
ーー ジー 


EYeF コ ScORE 
HI-SCORE 6 


写真 12 放熱 口 接近 (その 2 ) 
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写真 17 ゲー ム ・ オ ー バ ー 宙 艇 に 命中 すれ ば 10 点 、 放熱 口 に 命中 すれ ば 50 点 が それ ぞ 
れ 得 られ ます . そし て 一 定時 間 内 に 爆破 し な けれ ば な ら な 
い 宇 宙 艇 数 , すなわち 必要 爆破 宇宙 艇 数 が あら か じ め 決 ま 
っ て いま す . 最初 は 10 機 で す . 
そし て , 10 機 全部 を 破壊 する と 時 間 が 満 タ ン / に な り , 

必要 爆破 宇宙 艇 数 が 1 機 増 えま す . 一 定時 間 内 に 実際 に 爆 
破 し た 宇宙 艇 数 , すなわち 実 爆破 宇宙 艇 数 が 必要 爆破 宇 軍 
艇 数 に 到達 し な い 場合 に は ゲー ム ・ オ ー バ ー と な り ま す . 画 
面 右側 の スコ アー の “H-SHIP" の 欄 の ( ) 内 が 必要 爆 
破 宇宙 艇 数 で , その 下 が 実 爆破 宇宙 艇 数 で す . 


プロ グラ ム の 説明 


本 プロ グラ ム は , PC-8001 と これ に 適合 する カラ ー モ 
ニタ 用 の N-BASIC で 作ら れ て いま す . も ちろ ん , グリ ー 
ン ・ モ ニタ で も その まま 使用 で きま す が , 色 の 違い が 濃淡 

















IB : 必要 爆破 宇宙 艇 数 差 と な り ま す . 色 や 濃淡 を 変え る 場合 に は 表 1 . 2 を 参考 
IC : 実 爆破 宇宙 租 数 に し て くだ さい . 写真 は すべ て グリ ー ン ・ モ ニタ で 同じ 濃 


さ で 撮 映 し た も の で す . 

図 4 が プロ グラ ム ・ モ ジュ ー ル の 構造 を 示す も の で , 各 
モジ ュー ル 名 は リス ト 1 の プロ グラ ム と 同じ も の で す . プ 
リン タ の 都合 上 , 行 番号 250, 260 行 お よび 1570 一 2190 行 に 
関し て は 写真 18 一 21 を 見 て くだ さい . また , 図 5 が 画面 レ 
イア ウト で , 表 3 が 主 な 変数 の 一 覧 表 で す . 

で は , 以下 に 行 番号 に 従っ て プロ グラ ム を 簡単 に 説明 し 
て いき ます . 


IB=10, |IC= 0, 得点 =0 


放熱 口 に 命中 ? 


得点 一 得点 十 50 


H 型 宇宙 穫 に 命中 7 






120 一 170 INITIALIZE 


COLOR, CONSOLE, WIDT 芋 , それ に 型 宣言 と 配列 宣 
言 な ど で す . まな 最高 得点 を 0 点 に 初期 設定 し , ユー ザー 












IB 一 I 上 B 十 1 


表 1 “COLOR” ファ ンク ショ ン ・ コ ー ド と 色 , 濃淡 の 関係 


シル ルル ルル ンク 
hm に 






得点 一 得点 10 
ICーIC 1 








2 クレ 9】 軸 9】 に ダル 2 
部 。 分 | ュー ド | 行 番号 2 


0 の IRO 

SPACE CHASE'| 
タイ トル を 消し 
て 行く 四角 形 


上 
目盛 6 
最 準 。 | 6 | 1260.1300.1340.1370 
3 
66 


ス ョ アー 350。640。 670、740 
潮 | 610. 620, 630、 1120 
| 960 


_4 
H 型 宇宙 解 ! 
放熱 6 |820 
レー 系 | 3 |1070 
坦 贅 ター ン | 3 7 | 1140, 1160, 1200 1220 
FeAMEOVEW| 6 |680 。 





ーー 
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1』0 


図 4 プロ グラ ム ・ モ ジュ ー ル の 構造 





サブ ルー チン 胃 


INITIALIZE 
(120 一 170) 

















(の 
GAME KEY INPUT & H DISPLAY RIGHT ROUTINE 


ROUTINE (00-1240) (1330 一 1350) 


(590 一 650) 





SCORE ROUTINE 
(730 一 790) 


DATA READ UP _ROUTINE 
| (180 一 260) (1250 一 1280) 
KP ⑨ 
GAME START TITLE DISPLAY ROUTINE DOWN ROUTINE | 
(270580) (1390 一 1550) (1290 一 1320) | 
| 
⑦ 提 
GAME OVER LEFT ROUTINE 
(660 一 720) (13601380) 





( ) 内 は プロ グラ ム の 行 番 号 





写真 18 250,260 行 の リス ト 


DO 


0 の 10( 


1 





写真 19 1570 一 1770 行 の リス ト 


7 本 
172 1 
人 7 
MM 
Mi 


175 


RS 


還 呈 に 
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図 5 画面 レイ アウ ト 


名 | 人 較 falslalslel7lsl9 ol 明 % 
0 識 一 O H 型 宇宙 解 を 表示 する と き の 背 景 の スト ア 用 エリ ア 
| NO(252) OIOQ 〇 )| 港 の PUT@ 用 デー タ 
NII の) OoIlO O 同 上 
JN2(252) . QOIO ) 思考 
P② ) O H 型 字 宙 艇 表示 用 デー タ 
9() 〇 “TIME” の バー グラ ブフ 表示 用 デー タ 
IX 12 <IXs う う |O 時 準 の X 位置 (キャ ラク タ 単 位 ) 
_Y 13 siYs22 | OIG|c | 悪 準 の Y 位 置 ( 同 上 ) 
間 に 坦 間 邊 に | 4=jxs う 上 H 型 宇宙 艇 の X 位 置 ( 同 上 ) 
上 b 億 邊 に | 3<jYs O 〇 H 型 字 宙 艇 の Y 位 置 ( 同 上 ) 
時 準 の X 位 置 ( グ ラフ ィ ッ ク 単 位 ) 
O 時 準 の Y 位 置 ( 同 上 ) 
OsIE 5 |O 8 放熱 日 の 位置 に 関す る パラ メー タ 
13, 14, 16, 18, 21 | て ( 〇 放熱 口 の Y 位置 (キャ ラク タ 単 位 ) 
JX 十 jJ/2-1 | 〇 @⑤ 爆発 パタ ー ン の X 位 置 ( キ ャ ラク タ 単 位 ) 
10 sIB O 必要 爆破 宇宙 艇 数 
| osicsrB IO| |G O _| 突 束 破 宇宙 艇 数 
0sIS S 較 隊 S1O 得点 


osH |O| [| O 最高 得点 


SlSt395 当 の う 9 時 間 に 関 する パラ メー タ 
0sTss |O o| IO 同 上 
中 軒 蘭 2 着 戦 型 宇宙 艇 の 大 き さ を 示す パラ メー タ 


96.10.50 |O| | O | 0 : 2L 10 : 更 宇 宙 艇 に 命中 , 50 : 放熱 日 に 命中 
0 半 山 〇 〇 〇 O 0I 多 三 べ いい オー バー 店 1 ダニ ム 続 行 









































































































































使用 場所 の 番号 は 、 図 1 の 番号 や プロ グラ ム の 説明 の 行 番号 の 頭 の 番号 と 同じ で す . 





関数 FNZ を 定義 し て いま す . この 関数 FNZ(1, J) は 整 変数 
I の 頭 に 0 を 付け 加 を て J 桁 の 数 字 と する も の で す .。 た と えい ば, 
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と すれ ば , FNZ(L J) は , 





| 0047 





3 り 9 計 
@180 一 260 DATA READ 


配列 N 0, N1, N2 へ の DATA 文 (1560 一 2190 行 ) 
より の READ と , 配列 P。 Q へ の 代入 で す . た だ し , N 0, 
N 1 N 2 へ は その まま 代入 する の で は な く , DATA 文 の 
文字 列 を 2 字 ず つ に 区 切り ASCII 符 号 に 変換 し て 代入 し ま 
9 

これ は N0, N1, N2 が PUT@ で モニ タ へ 表示 させ 
る た め の デ ー タ だ か ら で す (250, 260 行 に 関し て は 写真 18 
を 上 KWZSeCMVaD: 


270--580 GAME START 


各種 パラ メー タ の 初期 設定 . タイ トル の 表示 , そし て 目 


盛 , 照準 と スコ ア の 表示 を 行ない ます . タイ トル の 表示 は , 


実際 に は 了 で 行ない ます . 
⑳590 一 650 GAME 


潜 の 表示 と "TIME" の バー グラ フ の 表示 を 行ない , , 


へ GOSUB し ます . 
660 一 720 GAME OVER 


ゲー ム 終 了 時 の 処理 で , "GAME OVER" の 表示 と 最高 
得点 の 表示 を 行ない ます . そし て 一 定時 間 後 に @ へ ジャ ン 
ン の 5 ま 9 記 


730 一 790 SCORE ROUTINE 


H 型 宇宙 和 ィ ま た は 放熱 口 に 命中 し た と き の 得 点 の 加算 , 
表示 , それ に 必要 爆破 宇宙 散 数 と 実 燥 破 宇宙 艇 数 と の 比較 
を 行ない , その 結果 に より ゲー ム ・ オ ー バ ー と な っ だ た り 必 
要 爆 破 宇 宙 艇 数 が イン クリ メン ト さ れ た り し ます . 
@800 一 1240 KEY INPUT & 日 DISPLAY ROUTINE 

@810 一 880 

放熱 口 の 表示 を する か どう か の 判断 と , 実際 の 表示 を し 

9 時 

gs890 一 960 


H 型 宇宙 艇 の 移動 と 大 き さ の 変更 を 行ない , 表示 し ます . 


@970 一 1060 

キー 入力 の 受け 付け を 行ない , その 内 容 に より 分 岐 し ま 
す . オ ー ト ・ リ ピー ト と する た め , INP 命令 に より キー 入 
力 の 受け 付け を 行なっ て いま す . 本 プロ グラ ム で 使用 し て 


表 4 キー 入力 と ポー ト の 変化 
ー | ポー ト 番 号 | 変化 内 容 (FF っ ) 











NMl ひ = の | 一 





"|O|IO 
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いる キー が 押さ れ た 場合 の ポー ト の 変化 を 表 4 に 示し ます . 
急 1070 一 1120 

レー ザー の 発射 と 命中 か どう か の 判断 で す . 

旬 1130 一 1180 

H 型 字 宙 艇 に レー ザー が 命中 し た 場合 の 爆発 パタ ー ン の 

表示 と 爆発 音 の 出力 で す . 

1190 一 1240 

放熱 口 に レー ザー が 命中 し た 場合 の 爆発 パタ ー ン の 表示 

と 爆発 音 の 出力 で す . 


1250 一 1280 UP ROUTINE 

照準 の 上 方 へ の 移動 の 表示 で す . 
1290 一 1320 DOWN ROUTINE 

照準 の 下方 へ の 移動 の 表示 で す . 
⑩1330 一 1350 RIGHT ROUTINE 

照準 の 右 方 へ の 移動 の 表示 で す . 
⑩1360 一 1380 LEFT ROUTINE 

照準 の 左 方 へ の 移動 の 表示 で す . 
1390 一 1550 TITLE DISPLAY ROUTINE 

タイ トル "SPACE CHASE" の 表示 で す . 
⑯1560 一 2190 DATA DEFINITION 


N0, N1, N 2 用 の デー タ で す (この 部 分 に 関し て は 
写真 19 一 21 を 見 て くだ さい ). 





お わり に 


高 得点 を 上 げ る コツ を あな た だ け に そっ と お 教え し ます . 
まず , (必要 爆破 宇宙 艇 数 一 1) 機 を 破壊 し ます . この と 
き に は た と る 放熱 日 が 接近 し て き て も 無視 し ます . 

上 記 の 数 だ け 破 壊す れ ば , 今度 は 放熱 日 を 破壊 する た め に 





に な れ ば 残り の 1 機 を 破壊 し ます . また , 妥 準 の 移動 は レ 
ー ザ ー 発 射 よ り も 優先 され る の で , HH 型 宇宙 艇 を 破壊 する 
と き に は スペ ー ス ・ キ ー は 左手 で 押し た まま に し て お き , 
右手 で テン ・ キ ー を あや つり , 妥 準 を H 型 宇宙 艇 に 合わ せ 
ます . 

そし て , 合え ば 右手 を テン ・ キ ー か ら 離 し ます . する と , 
間髪 を 入れ ず , レー ザー が 発射 さき れる わけ で す . また , 紺 
め 方 向 に 移動 する と き に は , 還 , 國 , 憎 , 因 | の キー を 使い 
ます . [ 軸 と 了 還 , 8] で 移動 する より も 早く 移動 で きま 
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スペ ー ス ・ チ ェ イ ス プロ グラ ム ・ リ スト 





TETH 









te2NHIESSSHI 


トキ トー ト ユ トー トコ ュー 





押 に 人 





ュー で ら 
ュー ト 






3 
iTHT 
HHT 
0 間 還 
CRTE 
RIHT ! 
RIHT " 
THT 










は HHE 























山 


ここ EE 
"IE nMER IP 
す 時 Fw 





292 


10 


スペ ー ス ・ チ ェ イ ス プロ グラ ム ・ リ スト 
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スペ ー ス ・ チ ェ イ ス プロ グラ ム ・ リ スト 





画 ス ター ウオ ー ー ズ 『 帝 国 の 逆 胃 


装甲 歩行 機 ) 





ム の 説明 





画面 の 右側 か ら 8 機 の スノー・ ウ ォ ー カ ー が , レー ザ 
を 発射 し な が ら ゆ っ くり 前 進 し て きま す . 





画面 の 左 半 分 に 4 列 の バリ ケー ド が あり , 左端 が 反乱 軍 
の 基地 で す 。 最初 に 2 人 の 兵士 が 基地 内 に 待機 し て いて 
外 に 出 て いる 兵士 が 戦い ます . 


この 兵士 は チン キー の [al で 画面 上 方 へ , [2| で 下方 へ 移動 


で き , 同時 に [ 串 を 押す と , より 大 きく 動く こと が で きま す . 





また [| で 前 方 , [4| で 後方 の バリ ケー ド を 乗り 越 を る た め 
に 姿勢 を 変え て いき ます ( 図 1) 

兵士 は 先頭 の スノー・ ウ ォ ー カ ー の 頭 の 位置 より も 右側 
に いる こと は で きま せん . 兵士 の 位置 まで スノー・ ウ ォ ー 
カー が 侵攻 し て くる と , 兵士 は 自動 的 に 1 列 後ろ に 移動 し 


ます . 
上 下方 向 の キー[al, [2| MA と 虹 8 方 向 の キー[a|, [4| を 
同時 に 使っ て 斜め に 移動 する こ きま 玄 





RUNAT 
せ ば 水平 方 向 に 発砲 し ます . 弾丸 は バリ ケー ド を 貫通 する 
(その 部 分 は 崩れ る ) の で , バリ ケー ド の 後ろ か ら の 攻撃 
も 可能 で す . 

グー トウ ォ ー カ 
ー を 発射 し ます . 


ー は 水平 方 向 二 7.4 度 の 範囲 で レー ザ 
レー ザー 攻撃 は バリ ケー ド を 貫通 する こ 


1 ガム 前 8 
見 し 近田 理 は 。 四 つ 肝 で ちく 巨 大 な (で Aie め 





あの ボス 」 で 反乱 軍 を 発 


オー カー ( 全 地 域 用 








で 反乱 軍 の 基地 避 攻 めで きま す . 半生 呈 せ 曲 の ひと つ に 
な っ て いま す が , 今回 これ を ヒン トピ し た ゲー _ー ム を (2 


に たら ピーン イク ロコ ンピュータ 同好 会 
馬 嶋 量 


と は で きま せん が , 崩れ か けた 部 分 か ら は 突き 抜け て きま 
す . た だ し , 基地 内 に は 届き ませ ん . 

スノー・ ウ ォ ー カ ー は 2.000 ユ ニッ ト の エネ ルギー を 持っ 
て いて , 兵士 の 弾丸 を 胴体 に 受け る と その エネ ルギー は 減 
少し ます . 兵士 が 最前 列 の バリ ケー ド の 前 に 出 て 発射 し た 
と き に は 命中 し た スノー ウォ ー カ ー の エネ ルギー が ガ が 1.,700 ユ 
ニッ ト 減 少し , 兵士 が より 後方 か ら 発射 する に 従っ て , そ 
れ ぞ れ , 850, 550。 350,、 250 ユ ニッ ト 減 少し ます . 

まだ た, スノー・ ウ ォ ー カ ー は 1 歩 前 進 し た と き に , その 
エネ ルギー 量 に 応じ た 色 に 変化 し ます (( 折 時 で は 員 く な っ 
て いき ます ). そし て , 200 ユ ニッ ト 以 下 に な る と 前 進 1 
く な り , エネ ルギー が な く な る と 前 脚 か ら 崩 れ て 機能 を f 
止 し ます ( 図 2, 3). 

兵士 は ,。 スノー・ ウ ォ ー カ ー の レー ザー に 命中 する と 死 
ん で し まい ます ( 図 4). 代わ っ て , 待機 し て いた 兵 王 の 1 
人 が 基地 か ら 出 て きま す ( 再 び 基 地内 に は 入れ ませ ん ). 

8 機 の スノー・ ウ ォ ー カ ー を 倒す と 画面 が 新しく な り 
新た に 8 機 が より 近く か ら 攻 撃 し て きま す . 

得点 は 。 兵士 が 発砲 する ご と に 一 180 点 , スノー・ ウ ォ 
ー カ ー を 倒す ご と に 十 2,000 点 が 加算 きれ , ス ノー・ ウ ォ ー 
カー を 倒し た と き に 表示 が 新しく な り ま す . 

最初 の 8 機 を 倒し て 画面 が 新しく な っ た と き に , 兵士 が 
1 人 増え ます . すべ て の 兵士 が 死ぬ か , スノー・ ウ ォ ー カ 
ー が 基地 の 直前 に 達する と ゲー ム は 終了 し ます . そし て , 
その ゲー ム の 得点 と 今 ま で の 最高 得点 が 表示 され ます . 

回 以外 の キー を 押す と , 再び ゲー ム が スタ ー ト し ます . 


ヤ 








タイ トル 写真 ・ 交 字 提供 : 20 世 紀 フ ォ ッ クス 
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写真 1 


Pa すう ダ は 2 ゲ 94 ! 








ゲー ム が 開始 され , STAR WARS の 画面 が 出 て 〈 る . 


号 真 2 スノー・ ウ ォ ー カ ー が 反乱 軍 の 兵士 を 目 が け て 撃っ て きた . 


写真 4 











写真 3 スノー・ ウ ォ ー カ ー に 撃た れ , 反乱 軍 の 兵士 が 死ん だ と ころ 。 」 


マリ 『 PF? 加古 31 


| 。 角 婦 本 】 六 な 1 
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1 前 後 移動 


の 3 
職 を か まえ て いる . 


| mg み g て 


| 間 に 科 の 相 り ゃ . 
ン 


2 


.4| を 押す 


| 先 を か まえ る . 
レン 


| 後ろ に 足 を か け て 


| 倫 る へ 科 の 隆 り に 


銃 を か まえ て いる . 


図 2 スノー・ 


[HI 
交互 に 表示 し て 歩か せる . 





4 兵士 の 被弾 


| レー ザー を 受け る と 





ウォ ー カ ー の 歩 行 


図 3 スノー・ ウ ォ ー カ ー の 被弾 


回 | 
機能 を 停止 する . 











プログ ラム 0 問 時 
この プロ グラ ム は PC-8001 の BASIC で 
書い て あり ます . 16K RAM で も 使え る 
よう に , また 高速 化す る た め に マル チ ・ 
ステ ー ト メン ト を 多用 し て で きる だ け 短 


が くし だ の で だ い 全 見 に くく な っ つて 
じ 水 まじ だ 
これ で , 約 9K の メモ リ を 使い ます . 


この プロ グラ ム は 各 プ ロッ ク ご と に バラ 
バラ に 作っ た の で , さら に 整理 すれ ば も 
う 少 し 短 か く する こと が 可能 で す . 

















1 
a ) 配 列 変数 PUT@ の デー タ 上 
変 数 名 | 内 容 
Z%(124) タイ トル 
W0 の (22) スノー・ ウ ォ ー カ ー 歩 行 | 
W12(22) / / 2 
W2%(22) / 分 解 | 
W322(22) / / 2 
S22(6) 兵士 銃 か まえ 
S02(6) ヶ 被弾 | 
S12(6) ク 4 の 
S2 の (6) / 前 進 | 
S322(6) 4 ん 2 
S422(6) ク 後退 1 
S522(6) / の / 論 の 
B12(1) 爆発 | 
B22(2) EZ 

















U22(7) スノー・ ウ ォ ー カ ー X 座標 
V2(7) ク Y 座標 

E の (7) ク エネ ルギー 量 
X%(10, 7) レー ザー 軌跡 X 座 標 

Y2%(10, 7) / Y 座標 

A の (4) 被弾 し て 失う エネ ルギー 量 





5 命中 点 で の 爆発 パタ ー ン の 変化 





im Bl の B2 の 


| XOR B222 


Fu 


xOR ング 4 RESET B2 の 


… 画 








高速 化 の た め ほ と ん ど を 整数 変数 と し て , 『 多 』 を 付け て 
使っ て いま す が , これ は ベン チマ ー ク ・ テ スト の 結果 が D 
EEEFINT で 宣言 する より も 速かっ た ため で す . し か し , そ 
の 差 は わずか で , 宣言 する 方 が “ 多 ” の 分 だ け メ モリ が 少 
な く て すむ の で 良い か も し れ ま せん . 

プロ グラ ム の 構造 が 簡単 な の で , 流れ 図 は 省略 し て , リ 
スト 1 に 従っ て 説明 し ます . 表 1 に 主 な 変数 の 一 覧 表 を 示 
(5 ま 9S 

まず , 最初 に 0 行 が いく つも 並ん で いま す が , これ は 他 
の 番号 で プロ グラ ム を 入力 し て か ら モ ニタ の SS コマ ンド で 
行 番号 の 入っ て いる 番地 の 内 容 を 0 に 変更 し た も の で す . 
1 行 も 特に 意味 は な い の で , 100 行 か ら 入力 し て くだ さい . 

100 一 190 行 は まず 910 一 980 行 の サブ プ ブルー チン で タイ ト 
ル と 説明 を 表示 し て , タイ トル で 使っ た 配列 用 を ERA 
SE し て か ら DATA を 各 配 列 変数 に 読み 込ん で いま す . 

200 一 280 行 で は , 画面 設定 を 行ない ます . 

300 一 470 行 は , 反乱 軍兵 士 の 移動 に 関す る と ころ で す . 
兵士 の 姿勢 に 応じ し て 430 一 470 で , それ ぞ れ の 姿勢 の 兵士 を 
表示 し ます . 
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変数 表 








c ) 数 値 変数 
変 数 名 | 内 容 
Q の 2 兵士 の X 座 標 
R22 ク Y 座 標 
PP /  X 座 標 の 制限 値 
M の の / 姿勢 
G2 / 発砲 に よる 失点 
C ク 残り 数 
QC 待機 兵士 の X 座標 
RC 狐 ク Y 座標 
CO 2 し / 消去 位置 
WB ら 2 命中 し た スノー・ ウ ォ ー カ ー の 番号 
UB22 命中 点 の X 座標 
WC の め / 高 さ 
F% 被弾 し て 失う エネ ルギー 量 
Z%% スノー・ ウ ォ ー カ ー 全 減 の 判定 
H 得点 
HS 最高 得点 
MA22 スノー・ ウ ォ ー カ ー の 出現 位置 の 指定 
N 4 番号 
XX / レー ザー 発射 X 座 標 
Y の / 4 / Y 座 標 
F ル / / / 角度 
PO / / 命中 判定 
L5 ク ク 命中 点 の 指定 
W タイ ル の わく の 大 き さ を 指定 
ME% め 画面 の 数 
D タイ ママ 
1 め ルー プ ・ カ ウン タ 
J 狐 4 
K2 (4 








500 一 540 行 は スノー・ ウ ォ ー カ ー の 移動 で , 1 歩 進む ご 
と に 2 つの パタ ー ン を 交互 に 表示 し て 歩か せ て いま す ( 図 
22)5 

600 一 665 行 は 兵士 の 攻撃 で スノー・ ウ ォ ー カ ー の 胴体 に 
命中 する と , その スノー・ ウ ォ ー カ ー の エネ ルギー を 減ら 
2: ます 。 


N-BASIC で は , 色 を キャ ラク タ 1 文 字 分 の エリ ア ご と 
に 指定 する の で , グラ フィ ッ ク で 書か れ た と ころ に 他 の 色 
で 重ね て 書く と , 1 廊 字 分 の エリ ア 内 の ドッ ト が すべ て あ 


と か ら 書 いた 色 に 変わ っ て し まい ます . それ で , PRESET 
の と き に 元 の 色 を 指定 し て 色 を 戻し て いま す . 

700 一 770 行 は スノー・ ウ ォ ー カ ー の 攻撃 で す . 何 か に 命 
中 し た こと を 判定 する た め に , 280 行 の デー タ で 指定 し た 
X 座 標 ご と に レー ザー の 軌跡 の Y 座 標 を 計算 し て , その 点 
の ドッ ト が セッ ト さ れ て いる か どう か POINT (XX, YY) 
で 調べ て いま す . そし て , 命中 し た と ころ まで レー ザー の 
軌跡 を 表示 し ます . この 部 分 は 工夫 すれ ば , さら に 高速 化 
re6 き < る 7 で し よき う 。 

800 一 840 行 で は ゲー ム が 終了 し た と き に 得点 を 計算 し て 
表示 し ます . 再 ゲ ー ム の と き は , 180 行 へ ジャ ンプ し ます . 








この ゲー ム で 兵士 が 攻撃 する 位置 に 対す る スノー・ ウ ォ 
ー カ ー が 失う エネ ルギー 量 を 決め る に あたっ て , 何人 も の 
人 に テス ト し て も ら っ て 経験 的 に 最適 値 を 求め まし た . 

また, コム スポ ッ ト 共 立 , お よび , 京都 薬科 大 学 マ イク 
ロコ ンピュータ 同好 会 の みな さん に いろ いろ と 協力 いた だ 
きま し た . た い へ ん あり が と う ご ざ いま し た . 
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13 器 1 ロロ 3 で ロ ュ 1 1 は ュー1 ら 596 16 ロ デ 
1 中 ュー は 19 ロ ロ 。 さ ロ アデ さ ュ ヨコ ュー マデ 回 

15E 引 。 避 
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] は じ め に 


数 カ月 程 前 か ら , 百貨 店 な ど で 写 真 の よう な パズル が 売 
り 出 され て いま す . この パズル ., 発売 中 初 は 売り 場 に 山 の 
よう に 積ん で あっ た と いう 話 で す が , 新聞 な ど で そ の 存在 
が 紹介 きれ て 以来 売り 上 げ が 急 に 伸び , 一 頃 は あま り の 売 
れ 行 き に 品切れ の 店 が 続出 し た . と いう うわ さも ある ほど 
で す . その よう な わけ で すか ら , ご 覧 に な っ た 方 実際 に 
買わ れ た 方 も か な り 多 い の で ! は な いか と 思わ れ ま す . 

も と も と この パズル は ハン が リ ー の ある デザ イナ ー に よ 
っ て 発明 され た も の だ そう で , 欧州 の パズル 愛好 家 の 間 で 
は 既に 良く 知ら れ て いた よ う で す . その パズル が 遂に 日 本 
に も 上 陸 , と いう いき さ つ な の で す が , ト 上 の 状況 か ら 見 ま 
す に , 日 本 で も この パズル が 静か な フ プ ブーム を 呼び 起 し つつ 
ある の は まず 間違い な いで し ょ う . 

SS で 。 その AI 光 を を 手 に 取っ て 遊ば れ た 方 な ら ご 存 
知 か と 思い ます が , 話 に 聞く より や っ て みる と 以外 な むず 
か し さ で , 試行 錯誤 に た よっ て いた の で は いつ まで た っ て 
も らち が あき ませ ん . この 辺 の 事情 が , か つて 流行 し た べ 
ント ミノ と いう は め 込 み パ ズル (プラ バ パズル No.5 と いう 商 
品名 で 現在 で も 市 販 さ れ て いま す ) と は 大 きく 異な っ て い 
ます . そこ で , 少し この 2 つ を 対比 し て み ま し ょ う . 

まず ペン トミ ノ で す が , この パズル を 解く に は 本 換 的 に 
試行 錯誤 を 行なう し か な いよ う で す . に も か か わら ず , 人 
前 が 試し て も 案外 解 が 見 つか り ま すし , 計算 機 を 使っ て 同 
様 の こと を 行なえ ば 全 解 を 得る し 2 その 意味 で , 
ペン トミ ノ は 簡単 な パズル で ある と いう こと が で きる か も 
知れ ませ ん . 

方 , この 立方 体 パ ズル は どう か を 考え て み ま す . 試行 
錯 語 に た な よっ て は まず 解く (一 色 を 揃え る ) こと が で きま 
せん . それ な ら 計 算 機 に や ら せ れ ば よい と 考え た く な り ま 
す が , 残念 な が ら 現 在 の 計算 機 の 記憶 容量 で は 解 の 探索 に 
まっ た く 不 充分 で す . 

本 来 , ペン トミ ノ の プロ グラ ム に 使わ れ て いる 深き 優 
先 の 探索 と , 立方 体 パ ズル の 解 を 見 い 出す た め の 広 さき 優先 
の 擦 索 と で は 探索 の 方 式 が か な り 層 いま す . 広 さ 優先 の 探 
索 で は 一 般 に 非常 に 多く の 記憶 場所 を 必要 と する の で , 扱 
そえ る パズル の 複 条 き が 制限 され て きま す . 詳し い 話 は 文 
献 1 を ご 覧 くだ さい . 

現在 この 後者 の 探索 法 で 解 が 求 ま っ て いる パズル と し て 
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は ほ , 箱入り 娘 (MOON-LANDER と い う 商品 名 の も の も あ 
り ま す が , 最近 どちら も あま りみ か け ま せん ) な ど が あり 
ま 3③ く 

こう 書く と 打つ 手 が な いか の よう に 閉 え ます が そう で も 
あり ませ ん . 実は ,『 群 論 』 と いう 数 学 の 助け を 借り る 還 
この パズル の 状態 の 変化 を 非常 に 見 通し 良く 解析 する 
が で きる の で す . この 接近 法 に より , 具体 的 な パズル の 人 解 
法 (一 色 を 揃え る た め の 方 針 ) も 求 ま っ て いま す . 

そこ で , 読者 諸氏 の 中 に も この パズル に 興味 を お 持ち の 
方 は 多い と 思う の で (工学 社 編集 室 に も 何 個 か 置い て あり 
ます ), I/O の 記事 と し て は 異例 で す が , 上 述 の 方 法 に より 
求め られ た 立方 体 パ ズル の 一 つの 解法 を ここ に ご 紹介 し た 
いと 思い ます . 

で すか ら , 表題 の 『 立 方 体 パ ズル を 解剖 する 』」 と いう の 
は , 正確 に は 『 立 方 体 パ ズル の 解法 を 解剖 する 』 と いう 意 
味 な の で す . パズル を ト ンカ チ で た た いて 分 解 し , 内 部 の 
巧妙 か つ シ ンプ ル な 機構 を 解明 し よう と いう 意味 で は 決し 
て あり ませ ん . 

し か し な が ら , 1/O は 数 学 雑 誌 で は あり ませ ん (は ず で 
す ) か ら , パズル の ふる まい を いか に 記述 し , どの よ うこ 
解析 する か に 関す る 群 論 の - 切 省き , 結果 と し て 得 
られ る 解法 の 手続 きのみ お 話し する こと に し ます . この 部 
分 だ け で も 充分 長く な se り ま * す さ 








ウツ パズル の 形状 と 導 び 方 


パズル の 形状 は 写真 か ら も 明らか な よう に , 立 方 体 ( サ 
イコ ロ の 形 ) で す . さら に よく みる と , この 全体 と し て の 
立方 体 (以後 , puzzle) が , 1 の よう に 27 個 の 小さ な 立 
方 体 (以後 , cube) か ら 成 り 立 っ て いる こと が わか り ま す . 

この puzzle の 各 面 が 異な る 6 色 で 塗り 分 けら れ て お り , 
それ ぞ れ 図 2 の と お り そ の 面 内 で 左右 に 自由 に 回 転 で きる 
よう に な っ て いま す (た だ し , パズル の 構造 上 , 左 (一 反 
時 計 回 り ) に ば か り 回 す の は よく な いそ う で す ). 

面 は 6 面 あ り , その 上 各 面 の 回 転 に は , 右 ( 一 時 計 回 り ) 
に 90 度 の 回 転 。 左 に 90 度 の 回 転 , 180 度 の 回 転 (これ は ど 
ちら か ら 回 し て も 同じ ) と いう 3 種類 が あり ます か ら , 合 
計 6 X 3 ー18 通 り の 異な る 回 転 が 可 能 で す . これ ら を 基本 
操作 と 呼び 。 基本 操作 を 1 回 行なう ご と に 1 手 と 数 える こ 
と に し ます . 

で すか ら , た と えば 1 つの 面 を 右 に 90 度 回 転 する 操作 を 
続け て 2 回 行なっ た と き , 結果 と し て は 180 度 の 回 転 と 同 
じ な る の で , , この 場合 は 2 手 と 数 を ず 1 手 と 数 えま す . 

基本 操作 を 何 回 か 適用 すれ ば , 色 の パタ ー ン は 様々 に 変 
化し ます .。 色 の 揃っ た 状態 (初期 状態 ) か ら 始 め て 5 一 6 
手 の 操作 で , 既に か な リラ ンダ ム な パタ ー ン に な り ま す 
この ラン ダム な パタ ー ン の 美しき さ を 味 わ う の も 1 つの 楽し 
み 方 で は あり ます が , 普通 は 色 が ラン ダム に 入り 混じる と , 
元 の よう に 揃え た いと 考え る の が 人 情 で す . 

と いう わけ で お わか り の よう に , この パズル を 解く と い 
う の は 任意 の ラン ダム な パタ ー ン か ら 出 発し て , 基本 操作 
を うま く 適 用 する こと に より , puzzle を 元 の よう な 色 の 捕 
っ た 状態 に 戻す こと に 他 な り ま せん . 

それ で は 以下 この パズル の 解法 の 説明 に 移り ます が , 混 
乱 を 避け る た め , 初期 状態 に お ける 各 面 の 色 の 配置 は 図 3 
の よう に な っ て いる と し て 話 を 進め ます . この 配置 は 工学 
社 に 置い で て ある パズル の も の で す が , 場合 に よっ て は これ 
以外 の 色 配 置 の 製品 も ある か も し れ ま せん の で ., お 持ち の 
パズル の 人 色 が 図 3 と 異な っ て いる 方 は , 以下 の 部 分 を お 謗 
み に な る 際 適 当 に 色 の 置換 を 行なっ て くだ さい 

また , 色 と は 別に 説明 の 都合 上 , 図 4 の よう に 面 に A, 
B… な どの 記号 を 割り 当て る こと が あり ます が , これ は 各 
面 と 各 cube と の 相対 的 な 位置 関係 を 便宜 的 に 志す た め の も 
の で す . 

その と き , A と いう 記号 で A を 割り 当て られ た 面 そ の も 
の を 指し 示す だ け で な く , A の 面 を 右 に 90 度 回 転 する 操作 
を も 表わす と いう 記号 の 乱用 を 行なう の で ご 注意 くだ さい . 
同じ よう に し て , A の 面 を 左 に 90 度 回 転 す る 操作 は A_} で , 
A の 面 を 180 度 回 転 す る 操作 は A* で 表し ます が . A 以 外 の 
記号 の 場合 も まっ た く 同 様 で す . 


<)】 パズル の 解法 


puzzle を よく 観察 し て みる と 、 色 の 塗ら れ て いる cube は 。 
色 を 塗ら れ て いる 面 の 数 に よっ て , 次 の 3 種 に 分 類 で きる 
こと が わか り ま す ( 図 5). 
⑯ [ 型 …puzzle の 各 面 の 中 央 に 位置 し て いて , 1 面 に 色 を 
塗ら れ た 合計 6 個 の cube. 
@I 型 …puzzle の 各 和 槻 に 位置 し て いて , 2 面 に 色 を 卒 られ 
た 合計 12 個 の cube. 2 
@ 帳 型 …puzzle の 各 項 点 ( 角 ) に 位置 し て いて , 3 面 に 色 
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裏 の 面 も 同様 
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緑 
赤 科 
(オレ ンジ ) 
黄 


白 の 面 を 上 に し て 置い た 凶 . 
底 の 面 の 色 は 青 に な る . 
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D ウ ラ に ある の で 見 を ない. 





A と いう 記号 で , この 面 自体 を が す と 同時 に . 
この 面 を 右 に 90 度 回 転 す る 操作 を も 表す . 











II 型 
あと 11 個 ある 
帆 型 
あと 7 個 あ る 














を 塗ら れ た 合計 8 個 の cube. 

基本 操作 に よっ て 1 型 は 自転 し ます が , 配色 は 変わ り ま 
せん . すなわち , 初期 状態 の 色 の 配置 と いう の は この 1 型 
の 色 の 配置 の こと な の で す . し た が っ て , この 1 型 の 色 を 
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上 ここ に は 緑 自 赤 の 
| cube を も っ て くる . 








この 向き が 正しい 





甘 準 に し て 他 の TI 型 や 皿 型 を 正しく 配置 し 直す 手続 き を 求 
め る こと が , パパ ズル を 解く と いう こと に な り ま す . 

図 6 を ご 覧 くだ さい . 図 6(a) で , 手前 に 見 える 3 面 の 色 
( 王 1 型 の 色 ) は それ ぞ れ 和 白 , 赤 。 緑 で すか ら , 図 の 中 央 
に 見 える 角 に は 白 , 赤 。 緑 の 色 で 塗ら れ た だ た cube を 持っ て く 
る 必要 が あり ます . と ころ が 白 , 赤 , 緑 の cube は 1 つ し か 
あり ませ ん か ら , その 唯一 の cube を 中 央 の 角 に 持っ て こ な 
けれ ば な ら な い の で す . 

言い 換え る と , 型 の cube の 正しい 位置 は 各 cube に つき 
1 簡 所 し か あり ませ ん . その 上 , 位置 が 合っ て いて も , II 
型 cube に は 3 色 が 塗ら れ て いま すか ら , 図 6(D の ji)。j), 
ii) に 示さ れ だ 3 通り の 置き 方 が 生じ て し まい ます . これ 
ら の うち 正しい 向き は 1 つ だ け で すか ら , 位置 の 他 に 色 の 
向き も 合わ せる こと か 必要 に な り ま す . 

以上 の 議論 は TL 型 の cube に つい て も まっ た く 同 様 で , II 
型 に つい て も 位置 と 向き の 両方 を 考 慮 し な けれ ば な り ま せ 
ん . も っ と も , II 型 の cube は 2 面 に 色 を 塗ら れ て いる の み 
で すか ら , 色 の 向き は 3 通り で は な く 2 通 り に な り ま す . 

ここ まで の 話 で , cube を 正しく 配置 し 直す と いう 言葉 の 
意味 が お わか り い た だ けた と 思う の で , これ か ら 先 は , cu 
be を 配置 し 直す た め の 具 体 的 な 手続 き を 記述 する こと に 話 
題 を し ぼり ます . 

な お , 全体 の 方 針 と し て は , まず II 型 cube の 位置 お よび 
向き を 合わ せ た 後 , 今度 は 型 の 配置 を くず さき ない よう に 
し な が ら TI 型 の 位置 と 向き を 合わ す , と いう 戦術 を 使っ て 
いる の で , その こと を 念頭 に 置き な が ら 読 み 進ん で くだ さ 
い . 

これ と は 逆 に , II 型 を 合わ せ て か ら 還 型 を 合わ せる ,。 と 
いう 方 式 も 考え られ ます が , どう も 能率 が 良く な いよ う で 
す . puzzle を お 持ち の 方 は 実際 に 操作 を し な が ら 読め ば 最 
高 で す . 


<! 軸 習 Cube を 含 わ す 


筆者 の 趣味 に 合わ せ て , まず 緑 の 面 に くる 皿 型 の 位置 と 
向き を 合わ せま す ( 図 7)、 も ちろ ん , それ 以外 の 色 の 面 か 
ら 合 わせ 始め て も 構い ませ ん . この 部 分 は 特に 戦略 を 使わ 
ず と も 容易 に 合わ せら れ ま す . 特に 初め の 3 個 の 位置 と 向 
き は 簡単 に 合わ すこ と が で きる の で , ここ で は , 4 個 目 の 
位置 を 合わ せ た と き に 向き が 合っ て いな か っ た 場合 の 対応 
法 の み 示 し ます . 

図 8 を ご 覧 くだ きい. も し も , 4 個 目 の cube の 向き が , 
図 8() の よう に ずれ て し まっ た 場合 は , まず B-(B の 面 を 
左 90 度 回 転 ) を 行ない ます . 続い て C, B, C つ , B~! 
C, B を 行なえ ば , 7 手 で 向き が 合い ます . 

8 (も ) の よう に ずれ た と き は , (@⑧ の 場合 と は 対称 的 に , 
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図 7 





は じ め に この 4 つの 中 型 
cube を 合わ せる . 








図 8 





b) 
この A は A 曽 の 人 色 と 同 じ 
公 と いう 記 味 、 






C ( 砥 曽 ) 














AG TA GANG5 AT を 行 次 まい の で す 
(C は 時 計 回 り 、C! は 反転 時 計 回 り で す . 正確 に は 図 9 

黙 し て くだ さい ). 以後 この よう な 対称 的 な 手続 き が 
出 て きた 場合 は 通常 その 一 方 を 省略 し ます . 

緑 の 面 の 皿 型 の 位置 と 向き が 合い まし た の で , 決 は 緑 と 
は 反対 側 に ある 黄色 の 面 に くる 残り 4 個 の 軸 型 の 位置 を 合 
わせ ます . まず 黄色 の 面 を 適当 に 回 せ ば 4 個 の うち 1 個 の 
位置 を 合わ すこ と が で きま す . この まま で は 残り 3 個 の 位 
置 が 合っ て いる と は 限り ませ ん が , 隣り 合う 2 個 の II 型 の 
位置 を 交換 する こと が で きれ ば , それ を 組み 合せ て すべ て 
の m 型 の 位置 を 合わ すこ と が で きま す . 

隣り 合う 2 つの 型 を 交換 する 手続 き を 図 10 に 示し ます . 
この 手続 き で 緑 の 皿 型 cube の 情況 は 変化 し ませ ん . この 基 
本 手続 き 1 を 高々 3 回 (工夫 すれ ば 高々 2 回 ) 適用 する こ 
と に より , 型 の 位置 は 完全 に 合い ます . 

と ころ が , 位置 は 合っ て も , まだ 但 色 の 面 の 皿 型 cube の 
向き が 合っ て いま せん か ら , 最後 に これ ら の 向き を 合わ せ 
ます . その た め に 図 11 の 基本 手続 き 2 を 使い ます . この 基 
本 手続 き で , 他 の 皿 型 cube の 情況 を 変え ず に 隣り 合う 2 つ 
の IM 型 cnbe の 向き を 逆 向 き に 回 転 す る こと が で きま すか ら , 
基本 手続 き 2 を 高々 3 回 適用 する こと に より , 最後 の 1 つ 
を 除い て は 皿 型 の 向き が 合い ます . 最後 の 1 つ に つい て は , 
他 の 町 型 の 向き を 合わ せれ ば 自動 的 に 向き が 合う こと が 理 
論 的 に 証明 きれ て いま す . 
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9 図 は puzzle を 斜め 下 か ら 眺 め た も の 











この よう な 状態 の と き 








C の 操作 








図 10 基本 手続 き 1 








D(A の 反対 側 」 


の 面 ) (C 三 普 の 面 ) 


只 上 の 状 瓶 で BC, BC | DB D を 順に 行 
な を えば イ ,。 ロ の 四 型 cube の 位置 を 交換 で きる (7 手 ). 


= 








図 11 基本 手続 き 2 








只 上 の 状態 で まず A, B-" と いう 繰 作 を 3 回 繰り 返し , 次 
に AB と いう 繰 作 を 3 回 繰り 返せ ば 、 皿 型 の 位置 を 
変え た ず に , イ の cube を 左 に 120 度 . ロ の cube を 右 に 120 
度 回 転 し て 向き を 変え る こと が で きる (12 手 ). 















位 汗 2 
(1 個 は 見 えな い ) 
を 


位置 3(2 個 は 見 えな い ) 


以上 の 図 で ,。 位置 1、 2, 3 の 順に HL 型 cube を 合わ せ て い 
いく 。 














C= 貢 の 面 


中 上 の 図 で B、D, CA DC, の 順に 回 わせ ば 
緑 白 の cube を イ の 位置 に 移す こと が で きる (6 手 ). 





ーー ーー 





こう し て , puzzle の 各 角 に ある 還 型 cube の 位置 と 向き を 
完全 に 合わ すこ と が で きま M じ た . 


ご TI 吾 Cube を 合わ す 


II 型 cube を 合わ せる 方 法 は , 
⑯ 緑 の 面 に くる 4 個 の II 型 の 位置 , 向き を 合わ す . 
@ 緑 の 面 の II 型 と 隣り 合う 4 個 の II 型 の 位置 。 向き を 合わ 
す . 
@ 緑 の 面 と は 反対 側 の 黄色 の 面 に くる 4 個 の IL 型 の 位置 , 
向き を 合わ す . 
と いう 3 段階 で 進み ます ( 図 12). 
まず , 緑 の 面 に くる べき 4 個 の cube の 合わ せ 方 か ら 考え 
ます . 緑 の 面 に くる の は , どちら か 一 方 の 面 が 緑 に 塗ら れ 
た cube で す . ここ で は 緑 と 折 の cube の 合わ せ 方 を 紹介 し ま 


す が 。 他 の 3 個 の II 型 cube に つい て も まっ た く 同 様 に し て 
合わ すこ と が で きま す 。 

さて , 緑 白 の cube が 図 12 の 位置 1, 位置 2, 位置 3 の う 
ち ど こ に ある か に よっ て 合わ せ 方 は 次 の 3 つの 場合 に 分 れ 
ます . 

《 場 合 1 〉 緑 白 cube が 位置 1 に ある 場合 

初め か ら 緑 白 の 位置 , 向き が 合っ て いる な ら ば 何 も す る 
必要 は あり ませ ん . そう で な いと き は 図 18 の 手続 き に より 
緑 白 cube を 位置 2 に 移せ る の で , 場合 2 に 帰着 し ます . 
場合 2 〉 緑 白 cube が 位置 2 に ある 場合 

この 場合 は , 緑 の 面 を 適当 に 回 すこ と に より , 緑 臼 cube 
を , 図 14 の イ ま た は ロ の 位置 に ちっ て くる こと が で きま す . 
この と き , cube の 緑 の 面 は 面 人 に き て いる よう に し ます . 
図 14 の イ の 位置 に きた 場合 は , 図 15 の 基本 手続 き 3 を 使っ 
て , 緑 白 cube を 目的 の 位置 に 正しい 向き で 移せ ます . 

図 14 の ロ の 位置 に きた 場合 は , 図 15 の 手続 き と 面 対称 な 
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図 14 





緑 邊 cube を 持っ て きた い 
位置 





碧 
(見 そえ な い ) 


| この 面 に 縁 が くる よう に する . 
図 15 基本 手続 き 3 














D(B の ウラ ) 


只 上 の 図 で 、C-! B, D~-! EE,、 BL D と 回 せ ば , イ に 
あっ た cube を ロ の 位置 に 、 イ の 面 が ロ の 面 に な る よう 
に 移せ る (6 手 ). 





図 16 












緑 邊 cube の ある と こ ろ . 





図 17 基本 手続 き 4 


A = 緑 の 面 





D(A の ウラ ー 昔 ) 

只 上 の 図 で , BA D, C, AD- の 順に 回 すこ と 

- に より , イ の と ころ の cube を ロ の 位置 に 。 イ の 面 が ロ 
の 面 に くる よう に 移せ る (6 手 ). 











手続 き を 行 な を ば 移せ る の で お 試し くだ さい . な お , この 
彼 階 で 所 型 の 位置 が ずれ る こと が あり ます が , 緑 の 面 を 回 
せ ば すぐ 直る の で 心配 する 必要 は あり ませ ん . 

《 場 合 3 〉 緑 白 cube が 位置 3 に ある 場合 

この 場合 は 緑 の 面 を 回 すこ と に より , 図 16 の 状態 に も 
っ て いく こと が で きま す . この 時 点 で , 緑 白 cube の 緑 の 面 
が 図 16 の A の 面 を 向い て いれ ば , 図 17 の 基本 手続 き 4 に よ 
り 位置 お よび 向き を 合わ せる こと が で きま す . そう で な い 
と き は , 図 18 の よう に すれ ば 緑 白 cube が 位置 2 に 移動 し ま 
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人 A 三 緑 の 面 






緑 邊 cube を 
も っ て きた 
い 場 所 . 


D (A の ウラ ニテ 黄 ) 


上 の 図 で 。 B, AD, CA D の 順に 回 せ ば , 
緑 和 用 cube を イ の 位置 に 持っ て くる こと が で きる (6 手 ). 





図 19 





a) 





上 げた い 非 黄 cube が イ の と ころ に くる よう に お き , ロ の 
の と ころ に 黄 cube( の 1 つ ) が くる よう 黄 の 面 を 回 す . 


b) 
B 三 商 色 の 商 





a) の よう に し だ た 後 科 4 天 CD お 夫 B 伯 PC DA 
と 回 す . する と , イー ロー ハー イ と 位置 が 移り 変わ る 
の で , イ の と ころ に あっ た cube を ロ の と ころ に 上 げ る 
こと が で きる (7 手 ). 必要 が あれ ば その の ち B を 回 し 
て 中型 cube の 位置 を 合わ す . 











すか ら 場 合 2 に 帰着 し ます . 場合 3 で も , 皿 型 の 位置 の ず 
れ が 生じ る の で , その と き は や は り 緑 の 面 を 回 し て 修正 し 
ま 59 

以上 の 3 つの 場合 で すべ て の 場合 を つく し て いる の で , 
どの よう な 情況 に あっ て も 位置 1 の cube は 完全 に 合わ すこ 
と が で きま す . と ころ で , 上 の 記述 で は 緑 と 白 を 例 に 採用 
し て いま す が , これ ら の 言葉 を 閉 い て 思わ ず 『 ポ ン 』 と 言 
っ て し . ま う 方 は 麻雀 の や りす ぎ な の で ご 注意 くだ さい . 

それ で は 次 に , 図 12 の 位置 2 に くる べき cube の 位置 と 向 
き を 合わ せる 段階 へ と 進み ます . 緑 の 面 は 完全 に 合っ て い 
る は ず で すか ら 下 に し て お きま す (当然 黄色 の 面 が 上 に き 
ます ). ここ で 便宜 上 , 残っ て いる 8 個 の TI 型 cube の うち , 
一 方 の 面 が 黄色 く 塗 られ て いる cube を 葵 cube,. そう で な い 
cube を 非 黄 cube と 呼ぶ こと に し ます . これ ら は 4 個 ず つ あ 
る の で す が , 位置 2 に は 非 黄 ceube を 合わ せる わけ で す . 

これ と は 一 見 矛盾 する よう に 感じ られ る か も 知れ ませ ん 
が , いっ た ん 非 黄 cube を すべ て 位置 3 に 上 げ て し まい ます . 
これ を 行なう 手続 き を 図 19(a ぁ ,(b) に 示し ます . 実は , 既に 


&O 
図 24 基本 手続 き 8 








ーー 
充 の 図 で 。 BL DL GT 
AB AS B2 ABS 
C、D, B と 回 せ ば , イト 
ロ 。 ハー ニ と cube を それ ぞ 
れ 入 れ 替 える こと が で きる 
2 手 )、 

















赤 Fleube の 
正しい 位置 . 
ー! 
図 21 基本 手続 き 5 図 25 基本 手続 き 9 
A 王 商 
人 A 三 蛋 左 の 図 で 。D、 A, BZ As FE(B の 裏 ) 左 の 図 で , B2 A, C~-! D, 
HI ASP AN と. 回 等 8 箱 Dr GMA NB 人 7 HG 
ば , イ の 位置 の cube を , ロ DC EE 本 DCA G 
の 位置 に 、 イ の 面 が ロ の 面 D ED, C-! の 順に 回 
に くる よう に 移す こと が で す と , イロ の cube の 向き 
きる (9 手 ). だ け を 反転 する こと が で き 
D る (20 手 ). 
(C の 右 ) 
」 ーー 








図 22 基本 手続 き 6 


図 26 基本 手続 き 10 





の SNB 全 AWDSG-) 
BS DNC EAB DB25 回 時 
ぼ ば, イー ハー ロー イ と 巡回 
的 に cube を 回 せる (9 手 ). 
これ と 面 対 称 な 操作 に より , 
イー ロー ハー イ と す と 
も で きる . 








図 23 基本 手続 き 7 





だ の 図 で Bs DS AA の 
AZ CS2. の G を 人 B- 貞 
D と 回 せ ば 。 イー ハ 、 ニー 
ロ , と cube を それ ぞ れ 入れ 
替え を る こと が で きる (11 手 ). 














位置 も 向き も 合っ て いる 非 貢 cube は 上 げ な く て も 済む の で 
す が , 簡単 の た め 全部 の 非 貢 cube を 位置 3 に 上 げ る 方 法 を 
DL まし 7GF 

この 状 郁 か ら 位置 2 に くる べき 非 昔 cube の 位置 . 向き を 
合わ せる の で す が , 4 個 と も 方 法 は 同じ し です から, ここ で 
は 赤 Fcube を 例 に と っ て 説明 し ます . 初め に 赤 白 cube が 図 
20 の イ ま た は ログ の 位置 に くる よう に 色 の 面 を 回 し ます . 
この と き , 赤 白 cube の 白 の 曽 が 上 だ っ た な ら ば イ の 位置 に , 
赤 の 面 が 上 だ っ た な ら ば ロ の 位置 に ちっ て くる よう に し ま 
39 

も し , 白 の 面 が 上 で 赤 白 cube を イ の 位置 に 回 し た な ら ば 
基本 手続 き 5 ( 図 21) を 行なう と , 赤 折 cube を 目的 の 位置 
に 正しい 向き で 移す こと が で きま す . 赤 白 cube を ロ の 位置 
に 回 し た 場合 は 基本 手続 き 5 と 面 対称 な 手続 き を 行なえ ば 


左 の 図 で , B。D-5 AO2 
人 GA CPAND ま を 
BC 4 が 所 6 半 AWIG2 
AO AG の 示 A EUD 
A_。 C の 順に 回 す と , イ , 
ロ の cube の 向き だ け を 反転 
する こと が で きる (24 手 ). 














うま くい く の で 各自 お 考え くだ さい . いずれ に し て も 忠 型 
cube の 位置 が ずれ る こと が ある の で , その 際 は 区 の 面 を 回 
し て 元 に 戻し ます (手続 き を 誤っ て いな けれ ば 必ず 元 に 戻 
る は ず で す ). 

以上 の よう な 手続 き を 4 回 繰り 返せ ば , 位置 2 に くる べ ベ 
き cube も すべ て 正しく 揃え る こと が で きる こと に な り ま す . 

いよ いよ 最後 の 位置 3 の cube を 合わ せる 段階 に 入り ます . 
まず , 残っ て いる 4 個 の TI 型 cunbe (すべ て 黄 cube) の 位置 
が どの よう に ずれ て いる か を 確認 し ます . 実は , 次 の 3 つ 
の 可能 性 し か な いこ と が 理論 的 に 証明 きれ て いま す . 
⑩ 3 つの cube が 巡回 的 に ずれ て いる . 
@ め 向かい 合う 2 組 の cube が 入れ 奉っ て いる . 
@ 隣 り 合 う 2 組 の cube が 入れ 替 っ て いる . 

⑲ の 場合 の 位置 の 合わ せ 方 を 図 22 に ,@ の 場合 の も の を 図 
23 に 、 の 場合 の も の を 図 24 に それ ぞ れ 示し ます . これ ら 
3 方 法 の いずれ か を 1 回 適用 すれ ば , 位置 は 正しく な り ま 
す が , 向き が 合っ て いな いこ と が あり ます . 向き の 合わ な 
い 可 能 性 は や は り 理 論 的 に 次 の 3 通り し か 存在 し 2 


時 り 合う 2 つの cube の 向き が 反対 . 
@ め 向い 合う 2 つの cube の 向き が 反対 . ・ 3 
4 つと も 向き が 反対 . 

の 場合 の 向き の 合せ 方 を 図 25 に , め @ の 場合 を 図 26 に , 
の 場合 を 図 27 に 示し まし た . これ ら の 方 法 は いずれ も 手 
数 が 多い で すか ら , 誤り の な いよ う 慎 重 に 回 し て くだ さい . 
ここ で 間 達 うと 一 気 に 初 め の 状態 に 逆戻り し て し まい ます . 
うま くい け ば , パズル の 色 は 見 事 に 揃い ます . 
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図 27 基本 手続 き 11 





D(B の 衣 ) 





A 三 普 


ド の 図 CCRID BT 人 MOS DA C2 AG9、A, 

B, D-! C,」 BA CB, A2 BZ A2 B2 A2 
B, C, 4 B。 "の 順に 回 す と 。 イ ,。 ロ , ハ ,。 ニニ 
の cube の 向き だ け を 反転 する こと が で きる (26 手 ). 











うう お わり に 


以上 , 立方 体 パ ズル の 解法 に つい て だ ら だ ら と 書き 連ね 
て きま し た が , 記述 の 不 充分 な 点 や 表現 の 稚 抽 な 箇所 , つ 
ま ら ぬ 間 違い が 始 ん どい た る と ころ に 存在 し て いる の で は 
な いか と 心配 し て いま す . ご 意見 。 ご 叱 声 を 賜 わ れ ば 幸い 
Kic 

また , 解法 を 構成 する 各 基 本 手続 き を とし て は , 筆者 が 現 
在 知 り 得 る 限り の 最も 手順 の 少 い も の を 選ん だ つも り で す 
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が , 改良 の 余地 は 多分 に あり ます . 部 分 的 ある い は 全体 的 
に より 良い 方 法 を ご 存 知 の 方 は ぜひ 1/O0 編 集 部 まで お 寄 
せく だ さい . 1 

な お , いう まで も あり ませ ん が , ここ に 示し た 方 法 は 最 
短 手順 か ら は ほど 遠い も の で す . 最短 手順 を 求め る こと は 
これ より は る か に むず か し い 問 題 で し ょ よう. し か し な が ら 
言い 逃れ に 過ぎ な い の で す が ), 上 述 の 方 法 を 使え ば 無 器 
用 な 筆者 で も 10 分 ほど で 色 を 揃え る こと が で きま すか ら , 
実用 的 に は この 程度 で 十分 だ と 思い ます (10 分 と 十分 と は 
酒 落 で は あり ませ ん . 偶然 の 一 致 で す ). 

それ か ら , は じ め の と ころ で も 述べ た よう に , 数 学 的 な 
話 は 一 切 省 いて し まっ た の で , その 種 の 話 に 興味 を お 持ち 
の 方 は , それ な り の 本 を お 読み くだ さい . た と そば, 数 学 
セミ ナー 辺り に は 必ず この パズル の 記事 が 載る と 思わ れ ま 
す (既に 出 て いる か も 知れ ませ ん ). つい で に 2 つ だ け そ 
れ ら し い 話 を し まし ょ う . 

まず , 立方 体 パ ズル で , 各 面 に 付随 する 6 種 の 回 転 に よ 
っ て 生成 され る 群 G の 位 数 (一 初 め の 状 態 か ら 面 の 回 転 に 
よっ て 到達 可能 な パタ ー ン の 数 ) は , 43,252,003,274 ,489 
,856.000 と な り ま す . 

次 に , G を 生成 する の に 本 当 に 6 種 の 回 転 が 必 要 か どう 
か な の で す が , これ に つい て は 5 種 の 回 転 (即ち 1 面 の 回 
転 の み 禁 止 ) が 必要 十分 で ある こと が 知ら れ て いま す . 

最後 に な り ま し た が , 本 稿 の 執筆 に 際 し 本 質 的 な 点 
いて 多く の ご 教示 を いた だ いた 東京 大 学 理学 部 情報 科学 科 
の 根本 彦 衛 先 生 に 心から 感謝 し ます . 
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に な 3 ブロ グラ ム .… 


ルー ビッ ク ・ キ ュー ブラ を 手 に し て 回 し て いる うち に 。, 
で リ 1 色 を 揃え る の か や っ と と いう と 

き , 1/O の "80 年 10 月 号 の 記事 を 読ん で 6 色 揃 っ た と き 
の あの 三 激 ! 


さっ そく 。, 手順 を 自分 な り に 紙 に まとめ て 色 の バラ 


実行 の 仕方 


ISO2P2A Io に 2 0 
いる うち に 色 が バラ バラ に な り , 
う 人 も 多い と 思い ます . 


の グロ ジョ レベ (は 2K1 コ 2( そ ワ ョ ー グ 。 NO 


考 を えな が らい じ っ て 
に 戻ら な く な っ たとい 


1 を 入力 すれ ば , 6 面 捕っ た 状態 に な る よう に 
指示 を 出し て くれ る も の で す . 2 
お 控 ち の 1 は 用 意 し て くだ さい . 


プロ グラ ム を RUN さ せる と , 説明 が 表示 され ます . 色 
の 合わ せ た い キュ ー ブ を テー ブル に 置き , 面 と 色 に ナン ババ 
ー を 付け ます . テー ブル に 置い た 状態 で . 上 の 面 を 1, 手 





前 の 面 を 2 向かっ て 右側 の 面 を 3, 向こう 側 の 面 を 4, 
向かっ て 左側 の 面 を 5, 下 の 面 を 6 と し , 1 の よう に 展 


開 し て 考え ます . 

次 に 各色 に ナン バー を 付け る わけ で す が , 色 の ナン バー 
は 『 各 面 の 中 央 に ある 人 色 を その 面 の ナン バー と 同じ ナン バ 
ー に する 』 と 決め ます . た と えば , 上 の 面 (No.1) の 中 央 
の 色 が 区 の と き は , 殴 は どこ に あっ て も 1 と いう ナン バー 
こ な る わけ で す . この よう に し て 6 色 全 部 に ナン バー を 付 
け ま す . 


面 の ナン バー と 色 の ナン バー は ., 6 色 揃 え 終 わる まで 変 


バラ な キュ ー ブ を 回 し て みる と , 10 分 ほど て 合わ せら 
る 示 つ 大 り ( ま 必 た で で で 5 れる SPYG3 や 
ら せ る こと は で き な い も の か と 考え , 正月 4 日 ほど つ 
ぶし て 作り あけ げ けた の が この ブロ グラ ム で す . 


図 1 展開 図 





GDI の の | のり 〇 の O 


NN の 0 の 5 〇 
0996 くく 9 1 の 6 OO 














2 


AG まこ 

デー タ の 入力 は 図 1 の 展開 図 が 表示 きれ る の で , それ 
見 な が ら テ ー ブ ル に 証 い て ある キュ ー プ の 色 の 装 才 是 を テン 
キー で 48 個 入力 し ます . 展開 図 に 出 て いる 『 博 』 の 位置 の 
色 を 間違え な いよ う 1 つ 1 つ 入力 し て くだ さい . 入力 ミス 
が ある と や り 直 し を 命じ ,.『 ミ ス が ある . n を 押せ 』 と 表示 
され ます . 

入力 が 終わ る 


な り 


近 


と 色 を 合わ せる た め の 指 示 が 表示 きれ ます . 
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写真 1 キュ ー プ の 色 の 入力 方 法 . 


吉本 李 キュ ー フ " イネ ウ ノ や メイ 二 
イロ ノ アワ セタ イ キュ ー フ * ヲ テー フ “ ル 。 ニ オク 
[pe 。 と |」」・【- aE- 還 し ん ル 』 2 
ウエ 4 , テ マエ 2, ミキ * 3,< コ ワウ 4, ヒ タダ デリ 5 ラグ 6 
6 イロ = number ラ ツウ ケル 
キイ ロ ラ 1 トス ズル ] 
[ テマ ェ ノ マ ン ナ 〕 が シロ ナラ シロ ラク トス ルコ] 
メン ノ マ ワ シカ タ いい +3 -5 etC ト テ ^ マ スズ 
+ 。 ト ケ イ ノ い リ ノ まり コウ = 99 ト * マ 9 ス 
ー ト サ イ ノ ハリ ノ ハン タイ キネ ウ コ ウ = 99 ト ^ マ ワ ス 
[ タ ト rN* +1 in 1 ファ ン ラ +96 ト ^ マ ワ 9 ス コ 
リカ イ シタ ラ ト “ レ カ ラ オス 


[ ウエ / マフ ナ ⑰" キイ ロ ナラ 


写真 2 色 を 数 字 で , 入力 し ます . 
幸二 本 ラマ ー タ ー ラ イレ ル 吾 半 吉 


ノ イチ ノ イロ リハ ナン タ * ス ) ?S 
ソノ number ラ ヲ オシ いじ e@ も いじ n ラ オス 





写真 3 角 の 向き を あわ せる 手順 


を 2 き に と 且 / 全 2 レル と 2 全く 明生 ん と ム : 】 
+ ら 6 +2 3 +2 -3 +2 -3 -2 +3 
3 る ) すき + ら 3 る 2 3 + る 2 3 
に 
= な よる 一 す 一 @ すき 。 一 @ 、+3 る @ + さ 3 
+ +4 +4 








手順 どおり まわ し て , 角 が そろ いま し た . 






マカ” イ " ナイ) ト “ ウ の 
し レー ツン 2 ナー 


ツキ * へ ズ スズ < トキ り ラ オス 
を ト へ モト ^ 和 トキ n ラ オズ 


写真 5 下 の 面 が そろ いま し た . 


マチ イ "ナイ 3) ト “のか 
カク ニン シヨ ウ 


ツキ * へ ズ スス < トキ り ラ ヲ オズ 
- 替 ト へ モト ^ 生 トキ n ラ オス 


写真 0 証 オン テニ トウ 成す. 





マチ カ " イ "ナイ ) ト ^ の 
し レー ピ 人 - ナ レ / 


ツキ ^ へ ズ スズ ス く ト キ ぃ 』 ラ オス 
を ト へ モト “ルト キ ロ ダオス 





回 転 の 指示 は 5 段階 に 分 け て あり ます . 
@ 8 つの 頂点 の 位置 を 捕え る . 
⑥ 下 の 披 の 色 を 合わ せる . 
⑨ 申 の 段 の 色 を 合わ せる . 
上 の 段 の 色 を 合わ せ , 6 面 全 部 を 摘 え る . 





各 段 階 と も 終了 し た 時 点 で 。 手数 が 何 回 か か る か 表示 され 
ます . 

表示 は , 

十 3 ーー 4 > 一 1 を ーー 6 CCCCKSE の ] 





と 出 ま す が , 数 字 は 各 面 の ナン バー で , 
せる 方 向 の 指示 を 表わし ます . 


人 符号 は 90 度 回 転 き 
土 は 時 計 の 針 の 回 る 方 向 に 
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90 度 回 す 』 


と 考え る の で 。 


ー は 時 計 の 針 の 回 る 方 向 と 送 方 向 に 90 度 回 す 』 

だ た と える くば, 『 土 3』 は , 3 の 面 を 時 計 の 針 の 
方 向 に 90 度 回 すこ と に な り ま す . 

この よう に し て , 表示 され た 回 転 の 指示 に 従っ て キュ ー 
プ の 曽 を 回 転 き せ て いけ ば 5 つの 段階 が すべ て 終わ っ た 
と き 、。 6 面 と も 捕っ て 買っ た と き の 状 態 に 戻り ます . 

ミス が あっ て うま くい か な いと き は ,。 も う 1 度 や り 直 し 
くだ さい . 入力 する と き と 回 転 き せる と き の ミ ス が 多い 
すか ら , ゆっ くり 正確 に 実行 し て く 


N 
1 


9 


の 


oi 





プロ グラ ム の 説明 





この プロ グラ ム の 手順 は IL/O'80 年 10 月 号 の 神谷 慎吾 氏 の 
『 ル ー ビ ッ ク ・ キ ュー ブ の 解き 方 』 の 手順 を 参考 に 作り ま 
(co 

入力 し た デー タ の 1 の 面 は A1 一 A 8 に, 2 の 面 は B 1 
ーB 8 に ,。 と いう よう に 犬 れ て おき, 回転 き せる だ た びに デ 
ー タ の 移動 と 表示 を きせ る よう に し まし た . 各 了 段階 の 手数 
は 最高 で も 110 を 超 を な いよ うに し まし た 

また , 各 段 階 の 終わ り に は , 手数 の 表示 の あと 展開 図 も 
eS し , 面 の 回 転 の させ 方 に ミス が な か っ た か どう か 比較 

きる よう に し で ゆり (ます 3 
2 流れ は 表 1 の よう に な っ て いま す . 


お わり に 


(に た だ 悲し いか な , どう し て も 人 間 
の 手数 より 多く な っ た り , 無駄 も 時 々 や り ま す . 解法 の 最小 


ーーーーーーーーーーー…ー…ーーーー…ーーーーーーーーーー レー ビッ ク ・ キ ュー ブ ジ 解 法 プ ログ ラム 
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表 1 プロ グラ ム の 概 要 


初期 値 設 定 

130 一 250 説明 の 表示 

260 一 480 デー タ 入 力 部 分 

490 一 630 面 の 回 転 と 回 転 の 表示 の サブ ルー チン 
640 各 段 階 の 手数 の 表示 の サブ ルー チン 
650 一 830 展開 図 の 表示 の サブ ルー チン 

840 一 |100 8 個 の 頂点 の 位置 を 合わ せる 
1110 一 1290 8 個 の 頂点 の 向き を 合わ せる 
1300 一 I590 | 下 の 段 を 合わ せる 

I600 一 1950 中 の 段 を 合わ せる 

1960 一 2320 上 の 段 を 合わ せ て 色 全 部 を そろ える 
2330 一 2340 | 完成 し た と き の 最 後 の 表 示 


I00 一 !20 


























手順 を みつ ける プロ グラ ム で は な いた め 、 人 間 で あれ ば ジ 
ッ と みつ め る と わか る も の で も 遠回り し て し まい ます . で 
も , どの よう な 状態 か ら で も か な ら ず 6 色 そ ろ え て くれ ま 
すず .。 試し て みて くだ さい . 
参考 文献 
0 
"80 年 10/ 
2) 数 学 セ モミ ナー, "80 年 11 月 号 
3)N-BASIC プ ログ ラム 教本 


“ルー ビッ ク ・ キ ュー ブ の 解き 方 ", I/0, 
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FRIHT 『" 
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giEIT NE 
キュ ー コ "HHT 証 下 」 


gaT 生 畔 5FETHT 
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Pl=F111:5 


DB T ま = リー 


i1= ロ 1i ロ 1=D 


iE1=F1iF1=D 
ロニ Ei まま = リー コロ 


8 
LnCRTE さ 1 、 






iFEIHT 
FRINT "オロ ag う 




















Ii ロ HEILHEE1Ei EETIEH 


MT9 1 
TE 中: 1 PRTNT 2 


14:FEINT "4" 

14:FRIHT "5 

"iRETURN 
1:LUCE LCHTE5。5iFEIHTR3iL ロ ERTE1: iPR1HT 


半生 








"EE - 、13: FETIHTE1iLUI デュ FE 
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iLHEHTE 1 曲 。 1E 
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>1EiFRTH 


giFRIHTESI LHCEHTE: 
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ュ デ 1iF ド THTF 和 5 

1HTF8 

。 ヨウ "iLHEHTE1 
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LE は ロロ 


ロー モロ IEF 1 ニュ ロ HITH ヨ 3 ELSE ロ HSUEEBEI GT は 
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*+F さ IF ド 1=11 BHTH1g1g ELEE ロ HIELE ニ Hi ロロ ELEIGEi ロ HELEーz ロ HSLIE1i HEILE 


唱 LE 王 ELEEEI HESLEGT 昌 HELIEE 1 HE 
HT ロ 
BLITH1E デ 加 ELSE ロ HSLEIGEi ロ HELIEE 






Hs HELHEG デ HELUEIE 1 GS 























1= ロ BHTH15 ELEE ロロ HELEI5EEI GHISLEEEE HISLUE 四 i ロ HSLE1i HEUE 


ER ELEE ロ LELHEEEg ロ LIESLIEIEEEE HELEE で ロロ HELIEBE1i HEILE 


リ n THR 計 ま リョ リロ HITH1 1 ELSE BHTI1 ロ 3 





ロ す 8 マー T ロ Eb 補 
キキ 』 
HEF 1= ERHEF さ 


iLIELE USLE さ Ei HISILE1 昌 
d 
BEEI BHSLIE ロ Si ISIE1 ロ i BH 


J ロ Tib " 
EE デニ HEE デ = ロー ロ HTH1S3 昌 


THEN USLIE ロ 回 s Tn1 さ E 四 "ELSE ロロ ELIE ニ Si UELE ニ 1 GLIEILIEIE ロ 





3EHi HISILUEG 
ロ HTHI1 回 ELSE BHTH141 器 
i 后 回 本 ロ HT ロ 1 本 ELSE ロロ SLE5BEI GLISLEGSEI HEUEIGTE HISLE 


ELSE ロ HELEIE 呈 HELIE ニ Ei GHELEE ロ si GUISLE 











BHTH1 4 


TI1dd は ELSE ロロ ELIEEEGI GUIELEEGEI HIELIE き 回 5 GOIELUE 所 


ELEE ロ HSLE ニ 3 ロロ HEILEー ロ HELESBE ロ IHSILIE 


HELEEz HELHEIG 1 ロ HISLIE さ 回 ロロ は 
T ロ ヲ TEib" 
ロコ = ロロ HEE は = ロロ HEIE コ = ロニー ロ HTH1 ご さき 


ELSE ロ HSUEG ヨ gz ロ HSLUEGSEI GHISLEIG 還 IS 
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BLISLESr 還 * 









HELEE 呈 抽 ロ IELIEE 呈 回 ロ HIELIE 是 さ 向 5 ロロ 















BLISILE ロ HSILE 叶 3 ロ HIEILE ニ 5 ロビ 


ロ HTH1 中 
HEILEGr 還 ロ HSILE1 ヨロ: ロ 





ず 選 回 
HISLE ヨ i ロ HIEILIE1 ヨ 1 司 i ロ 


HEILIE 1 コミ 回: 


SLHE'1 Ei ロ 






niTt 
TI 










EETUFH 
IFRETUFEH 
iFETLEH 
:FEETIUEH 
IFEETIUEH 
IiEFETIUEH 
iFETUREH 
IiFEETUEH 












IEEE 
UE 后 1i HE 












5 
EL1=L1+1: 
L1=L1+1: 
L1=L1+1 : 
L1=L1+1:LS=LSTE 


エー エー トー トー トー トー トー トー ヒー トー トート ー トー トー に エト エト ュー トー 


ELSE ロ HTHEEIG 





UELE 厨 四則 所 LE 后 向 ELIE 1 





Ez HITHE1 1 回 


BUSLIEISEEE ロ HISILIEIG で 回 * ロロ 


3"B ロ TO2SS ELSE ロロ TOz さ 








FETHT "本 T ロ PT オキ ド ト 。 球 束 り EL ロ ETE 1 
モト “ih ]" 
ELEE BHTIS さ dg 


HL 








き 12 








放 c ee (ご 
沢 用 用 シ ター ラ ェ イズ の 製作 Ne ……… の を ジン Y⑥ 司 / p 
PROM ラ イタ の 製作 6 tt 長岡 誤 巡 弧 


ミミ さる され るる スミ スネ ミス スネ ネス ネス ネス ミミ ミミ スコ 









当 四 委 ミ 





| ーッ カニ コン ピュータ eWXUcWWUcus 

と , その うち に 周辺 機器 が 欲し く な り 。 ブ リン タフ 
中 ツ ピ ビー ディ スク ク と 次 々 に 目 が 移っ て で し まい ます 

狐 身 貴族 や ブル ジュ ワ 諸 氏 は と も か く ,。 山の神 と そ 
の 手下 3 人 に 囲ま れ た 小生 な ど に は . 毎日 が 四面 雑 歌 
の 状態 て です. 

そこ て 山の神 は と も か く . 3 人 の 手下 た け で も 味方 
に つ 了 ほる べく 努力 じ て い る 毎 昌 で す 。 しかし, GRT 
て 漫画 を 書い て も 2 。 3 回 見 せる と 。 も う 見 向き も し 
な いよ うな 現代 っ つ 子 に サイ ン ・ ペ ベン を 使っ て 塗り 絵 の 
原図 を 書い て や ろう と 考え X-Y プ ロッ タ に 取り 組み 
ま 寺 。 

最初 。 BASIC で バル ス ・ モ ー タ を 双 動 し て 使用 し て 
いま し た が , ベン の 動き が 遅く 、。 と て も 使い も の に な 
り ま せん で し だ た: 

約 1 箇月 の 使用 で いた た まれ ず . マシ ン 語 ブロ グラ 
ム の 作成 を 始め 。 約 2 筒 月 か か っ て PC-8001 の 空き エ 
リア に ROM を 実装 し 、 N- BASIC か ら TSR 関 数 を 使っ 
て X-Y ブ ロッ タ を 動か すこ と に 成功 し た の で 紹介 し ま 
(の 、 











| ジス テム の 構成 





メ -Y プ ロッ タ 製 作 の た め に プリ ンタ と PROM ラ イタ が 追 
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74H 一 76H 
コン トロ ー ル ・ ワ ー ド 77 H 





加 に な り ま し た ( 図 1). また , PC-8001 の 内 部 に ROM 基 
板 を 追加 し まし た が , これ も 自作 に よる 2716X 4 個 の も の 
で PC-8001 の マス ク ROM 用 の ソケット に 差し て 使用 し て 
いま す . 

PROM ライ タ は BASIC で 駆動 で きる 2716 専 用 の も の を 
自作 し まし た . この 基板 は また ヌ -Y プ ロッ タ 用 の TI/O ポー 
ト も 兼ね て いま す . 

ここ で , PROM ラ イタ の BASIC プ ログ ラム に つい て 少 
し 説明 し ます . 

この プロ グラ ム は CRT 画 面 と 対話 型式 で PROM の 書き 
込み , 読み 出し が 可能 で 。 さら に イレ イズ ・ チ ェ ッ ク お よ 
び , メモ リ と の 比較 が 可能 な も の で す . 

参考 まで に プロ グラ ム ・ リ スト を リス ト 1 に 示し ます . 

I/O ポー ト は 8255 を 2 個 使用 し て , 表 1 の よう に 番地 を 
割り 振っ て いま す . 

PROM ラ イタ の 回 路 図 は 8255 1 個 と 若干 の TTL IC で 簡 
単に 製作 で きま す . 

ライ ト ・ ペ ン は 文字 デー タ を 入力 する の に 疲れ て 作り ま 
し た が フォ ト ・ ト ラン ジス タ を 使用 し た た め 動 作 が 不安 定 
で ライ ン 上 単位 の 検出 し か で きず , 現在 改造 中 で す . 
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実行 例 








| 相 全 ekae6 と . <Q12 すき 和 46 895 5 くべ て 邊 で 
1n 革 や の て で う ポキ ュー./0123456789: ? <= ッ >29ABCDEFGH1JIKLFINDFP 


1 井 事 / る ” 


"は ネン 、( う 水 
Gr stuwwxy そ (1 う て Nーーー ニ 詩 生 侍 | | 』】 上 則 因 オ ディ オト ー! 1 
サウ スソ タデ テト ナ こ 文 ネ ハビ フ ヘ マミ さら メモ キュ ララ リル し ロワ ウン" 
1 ル 8 そ て う ポキ エッ ー./O12 さ 456789: 5 5 


< っ >?OAECDPEFGH1JKLIHNOPGRS 
1 ai 


Gr stuvux ツ < で) て N_ ニニ 証 評 二 章 王 ) ] 】 有朋 月 骨 二 イイ オト ーー1 1 


サレ スソ タデ" ツテ トナ こ ス ネン ハビ ヒ フ へ ネ マミ メモ キュ ユ ヨ ラリ ん し ロワ フン 


1" 昌 の 、( う ポイ ィ ー./0123456789: <=>?OAECPEFGH1JKLHNOPGKR 
1 回 


っ 
PA) 


Gr stuvuxy く で 『 う て N_ ーー ニニ = 吾 時 全 避 | | 』 月 朋 有 胃 二 ー イ オト ーー| 
サレ スモ ソス タチ "2 テト ナ こ スネ フ ハ ビブ ノ へ 本 マミ ム メ モヤ キュラ ラリ ん ル し ロウ ンー 





コレ ハメ ーY PLot て も er ニ ヨ ラル テ ~ モン スト レー ショ ン ンク < 


つ し ハハ メーY PLot も er ニラ ヨル テ " モン スト レー ショ ン テム ス 98E220E1 


っ し A メーY Pot て er ニラ ん アー ドン スト レー シュ ン アー ズ 9 し トブ 1 トト 


て う ※+,ー./0123456789: 5 <=>2oABCDEFGH1JKLIHINOPHRST り ツメ イズ 科挙 ] つ ・ “る も ,Gd 豆 著 び 


TU ざい IX て (\ ま へ " ょ bcd す efFghUJK Unn P 
ドジ 


っ 


ィ ,ー./O12 さ 456789: ? マニ >?OABCDPEFGH1 JKLHNDPGKR 
< マ に さこ 


IN 配信 ご - ニラ ル デモ ンス ドレーン ショ ニー 2 導 le 
1981/1 ノ 1 1 


っ し の メーY Ptot で er ニラ ル アー トシ スナ レー シュ ン デース 19g!/【 ン の 





了 、・ フ ラッ イラ エ オ ィ ュ ュ ツー リ イ ヴ ウエ オカ チキ フケ コ 
イツ いり メイ Z【\] つ へ "っ bcdefOh(J)K UmnoP 
ン  。「」、・ ヲ ラッ オフ ュ オ ィ ュ っ ツウ ツー アイ ヴ エ オカ チキ フケ コ 


ST りり ソ メイ て 【\] へ っ bcdefFgh(JK (UmnoP 
ペン 。「」、・ ブ ィ イ オラ ネス メイ ュ っ ツー アイ ウエ オカ チク 7 つ コ 
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図 1 シス テム の 構成 











PROM ラ イタ 
(自作 ) 











X-Y プ ロッ タ の 使い 方 


この X-Y プ ロッ タ の 特長 は . プロ ッ タ 自身 に は パル ス ・ 
モー タ の ドラ イブ 回 路 と ペン UP/DOWN 用 ソレ ノイ ド の 
ドラ イ バ し か 持っ て いな いこ と で す . 

コン トロ ー ル する た め の プ ログ ラム は PC-8001 内 部 の 空 
き ROM エ リア に 実装 され た 2716ROM2 個 (うち 1 個 は 
キャ ラク タ ・ デ ー タ 用 ) に 書き 込ま れ て いま す . 

X-Y プ ロッ タ の 駆動 は N-BASIC か ら USR 関 数 を 使っ て 
行ない ます . 

コマ ンド は 表 2 の よう な も の が あり ます . 








較 BASIC か ら の CALL の 例 
例 1 ) 2$=USRCP, abcdef?) 
この 場合 , abcdef と 文字 を 書き ます . 
例 2 ) 27$=USRCm1000,1200?) 
絶対 座標 X 三 1000、Yー1200 ま で ペン UP で 移動 し ます . 
例 3 ) 2$=USR(*d0, 20, 300, 500,100, 200,. m 0, 50。 
L 5,d200,100, h?) 
絶対 座標 (0, 20) まで 直線 を 引き , 次 に 『(300, 500) 





写真 1 自作 X-Y プ ロッ タ 


まで 直線 を 引き , (100、 200) まで 直線 を 引く , (0, 50) 
まで 移動 点線 指定 5 ステ ッ プ 間隔 ,、 (200, 100) まで 直線 ( 点 
線 ) 引く 原点 に 戻る 』。 の よう に な り ま す . 
例 4 ) 2$=USR(*T?) 

テス ト ・ バ ター ン を 書き ます . 
例 5) 2$=USR(YS5?) 

5 倍 の 大 き さ で 廊 字 サ イズ を 指定 し ます . 

玉 玉 玉 
コマ ンド は 大 廊 字 で も 小文字 で も OK で す . 
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写真 3 





写真 4 ペン UP/DOWN ソ レノ イド 部 分 





図 3 構造 図 

































H ペ ベン UP で 戻る 

M | 絶対 座標 で ボ さ れる 点 へ ペン UP で 移動 
R | 現在 位置 か ら 相対 庫 標 で 示さ れる 点 へ ペン UP で 移動 | 
D 絶対 座標 で 示さ れる 点 ま で 直線 を 引く 
』 

L 

P 

S 






































| 
標 で 示さ れる 点 ま で 直線 を 引く 
上 線 、 実線 と 点線 間隔 の 指定 | 
婦 字 を 書く 
| 多 子 の サイ ズ 指 定 
T SN て 








う - Y ブロ ッ ツタ の メカ ニス ズム 


説明 の 前 に メカ ニズム と いっ て も 機械 工作 な ど と て も 
不可 能 な 境 山 に ある た め , 部 品 は バルス ・ モ ー タ 2 個 と ソ 
レノ イド 以外 は すべ て スー パー マー ケッ ト や 2 年 前 の ラジ 
コン ・ へ ヘリ の 部 品 を 流用 し た だ け で す . 

X-Y プ ロッ タ の 原理 図 お よび 構造 図 を 図 2, 3 に 示し ます 
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ーー 
b) Y 軸 駆動 部 分 
a) X 軸 駆動 部 分 
ベン DOWN ワ ィ ヤー 
(固定 ) 
ベン UP/DOWN ソ レノ イド 
ボ ポール ・ ベ アリ ング 
X ス ライ ダ 
アル ミ 板 3 mm 厚 ) 
ポー ル ・ ベ アリ ング 
タオ ル ・ ハ ン ガ ー 
Y ス ライ ド 軸 
(アル ミ 丸 棒 ) 
ワイ ヤ 
(固定 ) 
Y ス ライ トド 軸 
表 2 X-Y プ ロッ ク の 操作 コマ ンド 図 2 メカ ニズム の 原理 図 
黄 軸 | 


























最初 は メカ の ガタ の た め ま と も な 線 を 引く こと は と て も 
で きま せん で し た . こん な も の で 廊 字 が 書け る は ず も な い 
と , 半ば あき ら め か け て いた と き , この メカ ニズム の 欠点 





バ パルス ・ モ ー タ 





図 4 ブロ ッ ク 図 








【 


ベン DOWN 


際 : ーー の 





図 5 モー タ ・ ド ライ 回 路 の 原理 図 





(実際 は 図 中 の 12V と ある と ころ は スイ ッ チ ング で 
電流 制御 し て いる ) 


XXE 王 必 
2 ⑩) (Y モ ー タ も 同じ ) 


12V 


























を 切り 抜け る 糸口 (まさ に 糸口 な の で す ) が 見 つか り ま し 
た . それ は X-Y 駆 動 肝 の ワイ ヤー な の で す . 

ワイ ヤー だ け 確 実 な も の を 使っ て 駆動 部 分 の まさ きつ を 李 
力 減ら す と , な ん と か 廊 字 が 書け た り , 線 が 引け た りす る 
ご な が わか りり ま し だ な 、 

この 大 切な ワイ ヤー は 釣具 店 に 行き 、 石鯛 釣 り 用 の ステ 
ン レ ス ・ ワ イヤ ギー を 購入 し て 使い まし た -. 


写真 6 PROM ラ イタ 
アー だ で 本 ' コ 


写真 7 モー タ ・ ド ライ 回 路 





図 6 モー タ 駆 動 信号 の タイ ム ・ チ ャ ー ト 

















ROM ラ イタ 回 路 か ら 








横道 に それ ます が 釣り 具 と は 意外 に 便利 な も の で 、, 使 
い 道 が た くさ ん あり ます . 

た と え そば, 小生 は 投げ 告 と スピ ニン グ ・ リ ー ル に 400m の 
道 糸 を 巻き ,、 地元 の 富士 山 か ら ゲイ ラ カ イ ト を 上 げ て 子供 
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達 と 楽し ん で いま す (本 当 は 釣り に 行け な い , 腹いせ ). 


プロ ッ タ の 務 動 回 路 


プロ ッ タ の 電気 系 統 は IT/O0 ポー ト の デー タ で パル ス ・ モ 
ー タ と ソレ ノイ ド を 駆動 する 回 路 だ け で す が , その プ ブロッ 
ク 図 と 駆動 回 路 を 図 4, 5 に 示し ます . 6 は パル ス ・ モ 
ー タ の 正 回 転 , 逆 回 転 の タイ ム ・ チ ャ ー ト で す . 

7 7 に TI/O ポー ト 部 分 の 回 路 を 示し ます . 











テー タ の 


文字 デー タ は 1 ワー ド で 表わさ れる 直線 の 列 と し て 用 意 
され て お り , その 文字 列 の 終わ り を 00 と し て いま す ( 図 8 ). 
だ と そえ ば“A/ の 場合 。 次 の よう に な り ま す . 








| DATA:DB 02、C2, E4, C6, 86, 22, A6, 07, 00 








この よう に し て PC-8001 の キャ ラク タ を すべ て R OM に 
書き 込み まし た が , デー タ 領 域 と し て 約 1.6K ワ ー ド を 必要 
と し ます (2716 1 個 弱 ). 

実際 は この デー タ に (SIZE) を 掛け て プロ ッ ト す る の で , 
音 率 は 任意 に 決ま り ま す . な お , 7000 番 地 か ら 2K ワ ー ド 
分 を デー タ 領 域 に し まし た . 





女 字 を 書く 場合 , 現在 ペン の ある 位置 を 仮想 原点 と し て 
絶対 位置 を 指定 し て 移動 する と , デー タ を 入力 する の が 人 容 
易 に な り メ モリ も 節約 で きる よう に 思え ます. 

BASIC で プロ グラ ミン グ し た と まき , 相対 位置 で ペン を 動 
か し て 大 失 敗 を し まし だ た 。: 

また , な ぜ か 絶対 位置 で 動か す 方 が 字 が きれ い に 書 ける 
よう ②! に ( 思 ※ ま 記 療 


較 8 キャ ラク タ と 字 デー タ 


ベン UP DOWN 


リス ト 1 PROM ラ イタ プロ グラ ム ・ リ スト 





CLEAR 300。 HEFFF BUTO 10QOO 

10 人 =H7Z4』 =H7 ロ 5 ビーH ブ 6』 D= 多 H775RETURN 
0 " ポ ※ MRITE FULSE *※ 

人 40 _ OUT D。 時 H9i OUT D,。 HE 








60 UT D, HHUT D。 Ha 

70 RETURN 

BOO ! ポポ ド RE ( 全 LL.) *※※ 

0 OUT_ D。 HO 

FOUR J=O_ TO 7:DUT C4JgFRTNT 

FOR 1=Q TO 2555 HUT HBH。 1 』Y= ニ ゴネ 人 G 呈 6+T 
BCOSUE 5QO 

NEXT IiNEXT JiEEEFgRETURN 

ITF _LEN(Y 征 ) THEN FRINT "0QO"I 
IF_LEN(Y$ ま ) EN 届 ピ RININIH 還 AAa 
FRINT YigFRTNT SFC(4)* 

RETURN 

"DaT 介 TIN *※*※ 

Y ま =HEX 和 ま (Y) iTF Y MOD 16=O THEN ド 
X=INF() iTF LEN(HEX ま も (X) ) =1 
FRINT HEX 和 $(X) 』gFRTNT SF 
RETURN 

まま RHM RERD *※ 

『= ニ SR CD= ニ SR 壮 富 弓 6 ら BED=SR_ MOD 人 旨 ら 
OUT_ REDIODUT C.CD 

50OSUEB 5QOQO 

IF "BNM: 
IF Sh=EM THEN_ RETURN 
SM=SM+ 1 』 SR=SR+1』 BOTO 61O0 
"※※ RM MER 
Y=SR』 CD=SR 
OUT BED:iOUT_ C。CDI ロ UT 谷合 D 
GSU 
IF ShM=EM THEN RETURN 
SM=SM+ 1 : SR=SR+1 : GBDT ロ 71O 

" ポ ネ ERRSE CHECF- * ネ 

YSR』 CD=SR 壮 6』 ED=SR MOD 全品 6 
ロ UT EEDiQUT C.CD 





































5O LOCRTEO。17:FRTINT HEX ま (BR) 』 LHCRTEO 。 19 








*HCOOO_ ロ RBMEHDZFF THEN FUOEE SBM。X 


ぞ ら 6』 ED=SR MOD So6k DFEEFE (MM) 


19 


症 ゃ So も ズー ペ 


し / 有 
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PROM ラ イタ プロ グラ ム ・ リ スト 








に 9】 
840 
5QO 
60 
7 
900 
910 
が の) 
74 
9 呈 O 
960 
965 
970 
100 
1010 
10 補 け 
103 
10440 
105O 
106Q0 
1065 
1070 
1080 


1090 







15BG 
4190 
1 る 0 

150 

















3 


X=INF (人 ) :LUCATE 8。17EFRINT HEX も (SR) :LHCRTE D。19 
TF SM=EM QRND X=&&HFF THEN_RETURN 

SM=BM+ 1 : GR=G ド +1 

IF X=%&HFF THEN B1G 

RETURN 

" ポ ま じ O(mDAFG 米 

Y=SRs CD=BR 半 で 局 6 ら * BD=SR MOD SG6: RD テ FEEE (SF1) 

DUT EEDIOUT C。 CD メ =INF (人 ) 

LUCATE 全 。17sFRINT HEX ま (SR) LHCRTE 
TF SM=EM RaRND aD=X THEN_ RETURRN 
SM=MM+1 』 GR= ニ BR+1 

IF DEX THEN RETURN 

BOTO 71 





06. 19 





* ポポ 水 氷 ※ 炒 水 氷 水玉 水 来 ポ 半 洲 米 数 水玉 洲 洲 米 ボ 洲 洲 洲 ※ 玉 束 玉 
"※ * 
** PF-RnM MRITER ( 三 716) * 
7 米 
"※ 198Q/1 1 BY  M.MTINE # 
1 ネ 


な る なる る も る る る る る る るる する も る を る るる る る る る 2 る る も 3 える. 


MIDTH BO。255 CHNS ロ LE OSB4。Or1gFRINT CHR ま (1S) gGHSUE 
FRITNT " *※*※*※※※ ポ ドーROM Mr1t ら BFF % ポ ポポ ※ り WsFR1TNT 

FRINT "(15 ・・・・・・ VERIFY" 

PREN 和 MM 還 尊 (92) の "・ テ FRDGRRMT 

PRTNT 着 M6 受 )。・・・"* ・ ERASE CHECE" 

屋 RS 直 NN 拉 誠 6G2) ーッ COMF'RRE " 


FRTNT : INFUT ! Ge1lect 上 キ 上 he Number G+ ag リョ E 
祥 1 THEN 111Q 


BSUB 人 OOO』。 000。 4600。 OO 。 6000 


YOLUT 





ENDD 

LINE 1NFUT 
LINE INFUT 
1F SM:=QO_RND SBMESE 


F-ROI) 
F-RON) 
SM 


STRT DDRESS (Femory GOF 
E N D aDDRESG (Memory GF 
zHBOO_ THEN FR1NT SR 






に NEHNET "BTART ADDRESS。 (PーROM フフ う ・ ッ oe ee 
1F BRSO DR SR:HZFF THEN_ 1SSC 





GOTO 1590 

SM=VaL( "kh"+SM ま ) RETURN 
EM=VAL("h "TEM 生 ) sRETURN 
SR=VaL( "kh "TSBR ま ) 』 RETURN 

FRINT 』 FRINT "SN リ +HEX 生 (SM) 。"EM = 
LTNE 16。 昌 ETNEEY ま :TF E ま =" "THEN 1600O_ ELSE IF EE 事 
人 


RETURN 

"ポポ ポポ 水 涼 ※ MEF1Ty 
FRINT :FRINT " DaTa 11 FFint 人 全 

ド に ま =TNEEY ま ITF ドド 還 り 0 THEN S110 ELSE IF 
FRTINT CHR ま (0O) 。 CHR 生 (30) 。EHR( 30 
FRTNT :FRTNT " ポル ※※ ポ ボネ MERTFY ポポ ※※#%VsFRTNT 
CUT D。 HO GOSUE 1 BHSUB60QO 

RETURN 

! ※ ポ 氷 ボネ ポポ 光 涼 涼 ビビ ロ ロビ ※ ポ 水素 米 洲 北米 米 玉 

FRTNT kgFRINT 「 * 率 ま ま 玉 ま FRUGRRN ポポ ポポ ポリ 
DUT D。HBOIGHSUE 15QOI BUSUE700 


る る る る する る する る る 31 






民事 = リッ リ 








FRTNIT 






六 OO_RETURNI 

40OO 「 ポポ ポポ ポポ 水 ※ ERRRGE CHECF ※※※ ポ 水玉 

4010 FRINT :FRTINT 「 まま まま ERRSE CEHECE ポポ "gFRTNT 
401 旨 ロ UT D,。 HPGO 

40SO BUSUE 15OQOkFRINT 

4030 BOSSUE BOO 

4040 IF X=HFF THEN BEEFIRETURN 

404 旨 FRINT HEX 和 ま (BRー1) 。HEX 征 KX) 

4055O_ FUR IT=O TO ロ 10:EEEF1:FUR J コ =Q TO 10NEXTJTEEREEFO ェ FOUR 
4060 ドド 和 ま =INEEY 和 = TF E 和 = リリ THEN 4069 

4070 BOTO 40SQO 


OOO 








る る る を を る する 4 人 較 MHIIM211 間 を る る る る る える る る える も る る る 
FRTNT FRTNT ! *% 氷 ※※ ポ まま EDNMFRRE まま"kFRINT 


) OUT D,&HgO 


BSUE 15OokFRTINT 
BUSUESGOGO 
IF SM=EM THEN BEEFIRETURN 





OO FRTNT HEX も (SR 一 1) 。HEX も (※) 

060 FDR ImO TO 10kREEF1sFOR J=O TO 10ogNEXTJgREEFOIFUR 
品 0Z0 に 生 モ INEEY 還 :TF ドド 生 "0 THEN BBQ7O 

OBO_ BOTO OS 








s BOTO 1590 
"SR 第 * GOSUER 


り +HEX 生 (EM) 。 "SR 
syPTHEN_ LOC 





THEN GSLUEBOs RETURN 


テロ 


りり 1U 


yi 


10 


15 る 0 


157C 





15BO 







ml 


GOTOU 


リ +HEX ま (SR) "dE 


TE 0O』1 交 


TO 1Q0sNEXTJINEXTI 





1ugNMEX1ugNEXT1 
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144144444444444311 は 6842 3 INC A 68EE 110006 LD BE,800H 6961 27E69 PHNZ,DEKS 























hi あ + 6843 E803 AND 03H 6801 C3C368 JP DLY1 6964 CDO964 CALL DRV 
j 1 XYPlottmr V1.0 1 6845 77 LD (HU,A 1 6967 E1 RET: POP HL 
) 4 1 6846 26E2F2 LD HL,(ABY) : 6968 D1 POP DE 
ji 198171 1 6849 23 INE HL 114 お 7t2 純 1444444114114 6969 C1 POP BE 
は 1 6848 22C2F2 LD (ABY)HL 6 6964 F1 POP 角 
1 困 上 MHE 4 6640 9 虹 1 6804 F5 YO1: PUSH ⑳ 和 TO 員 
j 4 # H 5 
6805 05 PUSH DE i 
1 H44444441HHHHHHH14 684E 21C9F2 Yi LUD HLMDY GE PUSH 思 696E 210000 DEK1: LD HLOH 
6 6851 7E LD (HU) 20D76TI98 CALL CX 69F EDS6 ADC HLDE の 
F2C0 人 Bi EOU OF2COH ① 6852 30 DE 6971 28869 JP NDCK2 
F2C2 ABY: EOU OF2C2H ② 6853 E603 AND 03H 6974 ED43DIF2 DEK4: LD (LDRBE ⑳ 
F24 FLi  E0U OF2L4H 6855 7 LD (UN 6978 CDB469 CALL XLTY 
F2C6 FLYi EOU OF2CeH 6856 26C2F2 LD HL,(6BY) 697B C36769 JP RET 
F2C8 MD: E9U 0F2CBH ⑨ 6859 28 DEE HL 697E ED53DIF2 DCK3: LD (LDR,DE ⑳ 
F2C9 MDY: E9U OF2C9H ④ 685A 22C2F2 LD (ABY),HL 680A D6EEA8 jP CiXYD12 6982 CD6069 CALL XSTY 
F2C6 ABWX: E9U OF2CAH 685D (9 RET 』80D 21CSF2 LUD HUFUM 6985 C36789 JP RET 
F2CC ARWY: EOU OF2CEH : ) 
9 0 CB7 BIT 7.(HU) 1 
F200 MOB: EOU OF200H ⑤ 685E 3AC8F2 HBS: LD (MDX) ⑲ 0 9 全 0 6988 6B DCK2: LD LE 
F2D1 : 2 
9 E9U OF2DIH ⑥ 6861 7 LD Be ETENIEHB 人 6989 62 LD HD 
3 NTTM: EMU OF2DH ⑦ 6862 CD77&8 CALL DCNV KENEEDp 1 698 ED42 SBC HLBEE  @⑩ 
F204 FXYR: E9U 0F204H ⑧ 6865 32D0F2 LD (WDB),8 EHPRTEIB 0 お HeYN 698E 027E69 JP NC,DCKG 
F2EO PFBI: E8U OF2EOH ⑨ 6868 9C9F2 LD (MDY) KEIRHIOI99 語 0I2270 人 BN ⑳ 698F C7469 JP DCK4 
F2E1 PNTR: E9U OF2EIH ⑩ 686B 47 LD BA 68F EI キ 「 PUP HL 思 H 
F2E2 PF62: E9U OF2E2H ⑪ 686C CD7788 CALL DCNV 者 SE 6992 2B ABBCI DEC 肌 
0070 PORTE E9U 70H ⑫⑭ 686F 07 RLCA 6 交 POP 記 6993 7E LD Ai(HL) 
0600 XMAf: EOU 600H 6870 07 RA (iih 呈 6994 2F tPL 
Q4CO YMAX: E9U 4COH 6871 21D0F2 LD HLNDB 8 6995 4F LD CA 
j 6874 BA OR (HU 9 6996 23 INE HL 
F2CE CHBF: E9U OF2CEH 6875 7 LD (HLA 3 6997 7E LD (HL) 
F2CF SIZE, EmU 0F2CFH 6876 C9 RET 0 6 @ 8998 2F CPL 
F205 IPX: 2 : 
8 了 時 OF2DSH : EE Rg 6999 47 LD BA 
: OF207H 6877 3A1D68 DENV: LD (WDT) ⑯ 560 KR 6996 03 INE BE 
F2ER WO0E EQU 0F2E3H い 夫 9806EE08 1 旨 : の 
PE ME PE り 68FE 21C7F2 LD HLFLYH 3 
EF59 STRDR E0U OEF39H 0 AA 699F 7 還 半 WT 
44C7 ASKTB: E9U 44C7H POA020D8 MA 6980 2F PL 
8 8906 CDGE68 CALL YP1 
7000 DATA: E9U 7000 
1 上 2000 6909 CGEE68 P XYD12 の 上 陸 
690C CD4E68  YD11: CALL YMI 
R 
OR6 6800H 687C 7 AND 8 生れ 由 語 6963 7E LD AHU) 
: 687D CN8868 DCNVIiJP 7,DENW2 こ 694 2F CPL 
4 USRX-Y PLOTTER) 4444 6980 79 LD WC 6912 21EOF2 PT: LU HLPF61 6985 57 LD 0D.A 
NLORD 志 。 。 、 が 0 6881 OF RRC6 6915 CB7E BIT 7.08U) MR) 1NC_OE 
3 6982 0F RRC6 4917 【8 RET 7 69A7 C35469 JP DCK 
) 6883 年 LD CA 1 
: 6884 05 DEC B らい 0 の 698A EB XSTY: EX DEL ⑧⑱ 
jlmtialize 6885 C37D68 JP DCNMI REGSE P 7pWT1 698B 59 LD EC 
53 ) 6920 2103F2 LUD HLPNTW MDI 0 
03 胡 INT: 。 XOR 4 .6888 79 DCNV2: LD AE 6923 BE CP (HU 69AD 4D 0 36 引 
0804 7 UD Ha 6889 E603 AND 03H 6924 F5 PUSH 胡 69AE 44 LD BuH 
6805 6F LUD LA 688B C9 RET 4923.34 1ME (HL) 69F 3EO1 LD 
6806 22C0F2 LD (BOO,HL⑬ 3 6 SE 
6809 22C2F2 LD (ABY).HL iPen up/down Cantrol 6927 CO RET NZ 
680C 32E2F2 LD (PFB2).8 iSET MDB 6928 作 OR A 
680F 32D4F2 LD (FMWR) 放 698C 21D0F2 PUDS: LD HLIHDB ⑰ 6929 7 LD (HU.A 
U 
0 0 人 AS 6928 21EOF2 LU HLFF61 69B1 3204F2 LD (FXYR),A 
6815 32D3F2 LD (PNTTM),A 6892 CB5F BIT 3A 6920 CBSE BIT 3.(HU) 6 1 ! 
989 BN 6974CN708 WP PS1 692F 63569 jp np 0 芝 人 ⑳ 
0 因 本 Pa 2 0 6932 BE RES 3 69B6 CB3D 0 の 1 
ET ! 
56 PUDS: 記 7.(HU) 0 人 BS LN 
699C 9 に RET 4 6935 CBDE PNT1: SET 3.(HL) 698A 角 XLT1: XOR 8 ⑱ 
< 6937 9 RET 69BB EDS2 SBC HL,DE 
6 : 69BD C6F69 JP 7.XLT2 
OADUCMRNGNEI37 iMrite Straight Line 69CO DAF369 P CA 
! 1 
681D78 。 WOmi 9 7W  ⑳ 689D 3AE2F2 POMT: LUD (PF52) 2 2 放 0 
H AO 21EOF LD HLPFB1 2 
oi 9602 PE 6939 (5 PUSH BC 69C8 C20066 JP NIL 
2 XPi LUD HLMDX 6863 BE CP (HU) 49M 95 PUSH DE 
M82| 2 69CB CDD468 CALLXD1 
6 6864 2B088 P NZ.POMT 493B.E PUSN 上 L DERROOi RU 
6822 iC INE A 68A7 3ADOF2 POUT2:LD 4,(MDB) 9 7 TPHRIEPH 
6823 E605 AND 0XH 0 
6825 77 6 WANNA 693E 21CSF2 LD HLFLXt1 ⑳ 692 2D1F2 LD HL,(LDR) 
LD (HU,A 686 CDCD68 CALL DLYM T 
6826 28COF2 LUD ML,(A60 68 和 F 【9 UE 0 28 DE 
! NE 6941 C29269 JP NBBC 
696 2201F2 LD (LUDR)HL 
6829 23 INE HL 6880 3ADOF2 POUTI:LD 8.(WDB) 4944 94F2 UDBC(RX 091 科 。 
6826 22COF2 LD (8680,HL 6883 370 DUT (PORT),8 6948 21C7F2 05: LD HLFYI⑳ 1 
| 24 59DA FE00 CP OH 
6820 (9 RET 68B5 CDBF68 CALL DLYP 
3 69DC CAE369 P 7.XLT5 
! 68B8 7E LD A(HL) 9DFBET 間 B 記 
682E 21E8F2 XN1: LD HL,NDX 68B9 32E2F2 LD (PF62),A 69EO C3BA69: PXLTI 
6831 7E LD (HU 68BC C34768 JP PUUT2 
932 0 4 69E3 7 LT UD AH 
ュ 6 ) K1 日 四 
| 半 TTNt 
1 MM CaO 6940 C29E69 P NZ,NBDE 69E6 CAED69 jp 7.ALT5 
6836 26COF2 LD HLi(8BX) 68C3 10 DLY1: DEC E 0 の 1 5 DE 
6839 28 DE HL 68C4 2E368 P Nie1 MeWEDETI に 人 
683 22COF2 LD (6), 員 68C7 15 DEt D 042106606 和 人 際 
683D C9 RET 68C8 C2C368 JP Ns-5 8 了 1 
6 HE 3E 6957 ED4A ADE HLIBC 49ED E1 XLT5: POP HL 
1 0 6 6959 C26C69 JP NDCKI 69EE 人 XOR A 
EipE2n TP 一 他 W = 695E 210000 LD HLOH 69EF 32D4F2 LD (FXYR).8 
: も 8 
6841 7E LD (HU) 88CD 05 DLYM: PUSHDE ⑲ ] 97356E030 4055EXEY 。 仙 4 RET 」 
ー 庄 壮 
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過 i 記 6A7D F5 CDRW: PUSH 6QD D2146B PF NC,TEST5 6BC6 FE51 EP 51H の 
69F3 09 ALT2: ADD HLBE 647E C5 PUSH BC 6B10 3E INE 8 6BC8 [RA266E JP 7.ALPROT 2 
69F4 CDD468 CALL XD1 6B11 3096H JP TESTI 8HCB FE52 CP 52H ! 
59F7 CDF568 CALL YD1 6814 CD3C6B TEST3: CALL CRLF 6BCD CA7E&C JP 7,RHDVE ⑳ 
69FA CDO968 CALL DRV 6B17 3E71 LD 4A71H 5EDG FE53 CP SH ⑳ 
69FD C30169 P AT4 6819 06BA LD B.B 人 6B02 CA2D6E PF 7.5CLE 

1 6B1B EDDI6 TEST4: CALL PLTC 6BD5 FE54 CEP 5 の 
6A00 CDF568 LT6: CALL YD1 697F 05 PUSH DE 6EIE B8 CP 8 6BD7 CA456L JP 7TST ⑳ 
680 く CDO968 CALL DRV 680 E5 PUSH HL 6B1F 2266B JP NETEST5 aBD8 FE58 EP 58H ⑳ 
6A06 C5D169 JP ALI4 AB1 32CEF2 LD (CHBF.8 6822 3C INE 4 aBDC (6396E JP 7.AIS 

1 684 3E00 LD 0 6B23 C31B6B JP TES14 6RDF 36769 JP RET 
444 Hotor % Pen Drive 4 は 986 010000 LD BC,0 6B26 CD3C6R TEST5: CALL CRLF H 

i 689 2EOF2 LD (PFB1).A 6B29 3EBB LD A.O8BH 6BE2 FE2D NSET: CP 20H 
609 F5 DRV: PUSHF  ⑳ 6ABE 32E1F2 LD (PNIR),8 6B2B 06DF LD 8.00FH 6BRE4 [人 D6B P 7LNSETI 
6408 【5 PLSH BC 6ABF 3AEEF2 LD 4,(EHBF) eB2D CDD16A TEST6: CALL PLTC 6BE7 2B DEE HL 
6A0B D5 PUSH DE 6 人 92 CB7F BIT 7,8 630 B8 CP 8 ABEB CDC744 CALLSKTB 
6A0C E5 PSH HL 6 人 94 [9C68 JP 7.CDRWl 人 ⑬ 6BX1 D2186B JP NE,IEST2 sBEBCD836[  NSET2:CALLDTST 2 
6A0D CD5E68 CALLNBS ⑱ 6897 3EFF LD AOFFH ⑭ 6834 3C INC 8 6BEE 7E LD Ai(HLI 
6410 DBE88 CALLPUDS ⑱ 6499 32EOF2 LD (PF61), 6B35 C3206B JP TEST 
5613 CD9D68 CALLPOUT 549E 3AEEF2 CDRWliLD (CHBF) 6838 CD3C6 TEST2: CALL CRLF 
6A16 (36769 JP RET 609F DCO68 CALL CDRMX 6BXB [9 RET 

8 6A82 2D5F2 LD HL(PX) : 

1 LINIT CHECK 6A85 19 ADD HLDE 6BE F5 CRLF: PUSH 角 

H 6AA6 22C 和 F2 LD (6BMX)iHL 6B3D (5 PUSH BE 6BEF FE30 CP 0H 
6A19 210006 NE LUD HLXNAX ⑭ 6 人 9 3AEEF2 LD Ai(CHBF) 6B3E D5 FUSH DE 6BF1 DA746B JP C.NDDS 
1C ED5BCOF2 LD DE,(88%) AAC OF RCA 6B3F Es PUSH HL 
5620 作 XOR 4 6AAD OF RA 6B40 210000 LD HL 6BF4 FE8 CEP 3AH 

6AAE OF RRCA 6B43 22C 和 F2 LD (6BMMJHL 6BFe D2746B JP NCMODS 
5AAF OF RRCA 6B46 GE07 LUD 7 5BF9 23 INC HL 
6ABO CDCO68 CALL CDRWY 6848 CDCO68 CALL CDRWY 6BFA C3EE6B JP を 12 
6B3 2AD7F2 LD HL(IPY) 6B4B ED52 SBC HLDE H 
6AB6 19 ADD HL,DE 6B4D 2ACCF2 LD HL,(BWY) ARFD CDC744 。NSET1: CALL NSKTB 
6421 ED52 SBE HLDE 6B7 22CCF2 LD (BNY),HL 6B50 F XOR 4 克 00 7E LD AE 
682 08 RET 〔 6ABA CD3568 CALL ABDRW 6851 ED52 SBC HLDE sO1 2F CPL 
6A24 78 LD 8D 6ABD [36759 JP RET 6B53 110500 LD DE,5 02 SF LD E,A 
6025 07 RLCA H 6B56 凶 XOR 8 6C03 78 LUD 8D 
626 (9 RET 6ACO E607 。 CDRMWS:AND 7 KG 6B57 EDS2 SBC HL,ME 6E04 2F CPL 
6027 21C004 NXCY: LD HLuYMOA 6E2 1500 LD 0.0 6859 22CCF2 LD (6BWY」 有 HL 6E05 57 LD D.8 
6626 ED5BC2F2 LUD DE(WBW 6AC4 SF LD EA 6BSE D3568 CALL ABDRW 6C06 13 INE DE 
642E 作 X0R A 66E5 3ACFF2 LD (517B) 6BSF (35789 JP RET 6C07 3EB6B JP  NSET2 
682F ED52 SBC HL,DE 6AE8 特 LD EC.A H ) 
631 D8 RET 6C9 78 LD AE 44444 X-Y PLOTTER 44444 44444 LINE TYPE & DOT 4 は 
6A32 7 LD AD 6 人 LA 83 DD AE H &C0A CDC744 LINE: CALLASKTR  ⑧⑱ 
6N33 07 RLCA 6AEB 0D DEC 〔 COD EOF LD AOFH 
6834 [9 RET 6AEE C2CA6A JP NZ,*$-2 6COF 83 人 ND E 

H 6ACF 5F LD EA &C10 32EIF2 LD (PNTR).A 
44444 HDVE ABSOLUTELY 44444 6DO C9 RET 13 (3746B JP MODS 

i H H 
6835 F5 AHBDRWi PUSH 作 4441 Plot 1 Character (= 人 SKII) 44444 6B62 F5 XYPLTRiPUSH 角 44 Mrite MARK 44 
6A36 55 PUSH BE 1 6B63 C5 PUSH BE ) 
6A37 D5 PUSH DE 6AD1 F5 PLTCI PUSH 尋 6B64 05 PUSH DE et16 3746R MARK: JP NODS 
6838 E5 PUSH HL 6902 (5 PUSH BE 6865 E5 PUSH HL i 
6839 2 人 F2 LD HL(ABW) 6D? D5 PUSH DE 6B66 2859EF LD HLi(STRDR) ttti Write CHARETER 4 
6AE EDSBCOF2 LUD DE,(AB) 6804 E5 名 SH 肌 6B69 010000 LD BC,0 H 
640 角 XOR A 6AD5 D620 SUR 20H 6B6C 110000 LD DE,O 6L19 060 PRINT: LD 8,080H 
6841 ED52 SBC HLDE 68D7 DAE768 JP C,PLTI 6B6F FE03 CP 6C1B 23 INC HL 
6843 22C4F2 LD (FLOHL 6ADA 4 LD CA 6B71 202AC JP NZ,VARSET 61C 23 INC HL 
646 2AECF2 LD HL,(ABMY) 840B 210070 PLT2: LD HL,DAT8 6B74 7E MODS: LD 4.(HL) 6E1D 7E PRINT1iLD (HL) 
6649 EDSBC2F2 LD 0E,(ABY) 6ADE 7E PLTi LUD (HL) 6875 FE20 CP 20H 6C1E FE22 (PF 22H ⑳ 
604D 人 F XOR 1 6DF 87 AND A 6B77 CA7F6B JP 7.948 ⑰ &E20 CA746B JP 7.MODS 
684E ED52 SBC HL,DE 6AEO CAEC6A JP 7.PLT4 6874 FE2C CP 2CH K gt23 CDD168 CALLPLTC 。 ⑱ 
650 22C6F2 LD (FLY).HL 66EX 2 INE HL 6B7E C2836B JP NZ%7 6C28 23 INE HL 
653 ED3869 CALL MSTL efE4 3DE64 JP PLTX 6B7F 2 INE H 627 31D6L 聞 PRINT1 
656 36769 WP RET H 6B80 C3746B JP NHDDS : 

) 6E7 0OE20 PLT: LD C,20H 6883 FE2D CP 20H  ⑲ 441 ALPHA ROTATE 4 
44444 HOHE 4 6AE9 (3DB68 JP PLT2 6R85 CE26B JP 7.NSET i 

1 H 6888 FE30 CP 30H 6C28 (37468 ALPROT:JP HODS 
6A59 FS HOME: PUSH 作 6AEC 79 PLT4i LD AE 6BBA DA6769 P C.RET ⑮ H 
605N ES PU5H HL 688D FE38 EP 3AH 4441 RLPHA SC8LE 44444 
6A5B 人 XOR A 6B8F DAE26B JP CNSET H 
6A5C 210000 LD HLOH 692 FE41 CEP 4lH 6C2D CDC744 SELE: CALLASKTB ⑱⑯ 
6A5F 22CF2 LD (8BWO,HL 4894 D86769 PF C.RET 6C30 3E07 LUD 87 
6A62 22CEF2 LD (ABMY,HL 6897 CB RES 5.8 ⑳ 6C32 83 AND E 
6A65 32EOF2 LD (PF61).A AAED 87 AND 8 499 FE5A PF 5 明 較 6C3 32CFF2 LD (517EN,A 
6A68 CD3566 CALL ABDRW 4EE 2 NE HL 6898 026769 jP NRET ⑳ 6C36 3746B JP MDDS 
6A6B E1 POP HL 6EF CAF66 JF 7,MEHR 6H9E FE44 CP 44H Mi】 i 
6A6C F1 POP 角 6AF2 0D DEE 〔 6BA0 C8576E JP 7.DRW 4 AAIS PLOT 4444 
6A6D C9 RET 6F3 3DE66 JP PLT3 68 FE48 CP 38H B/ : 

) H 5B85 CAAEE JP 7.ROP 6C39 C3746R IS JP MODS 
44444 HHABINARY ORIBIN SET 4444 6AF6 CD6E64 WEHRE CaLLISET  ⑯ 6BAB FE49 CP 49H E ) 

1 6AF9 7E LD (HL) 6BAR CA69&E JP 7,RDRM 14444 ORIBIN SET 14344 
6A6E E5 ISET: PUSH HL 6 7 AND 4 eEAD FE4E CFP 4CH W : 
6A6F 28COF2 LUD HL,(6B) 64FB CA6769 PRET 5B 和 F CAONGC JP zuLiNE 本 6CSE ES 0869: PUSH HL 
6872 22D5F2 LD (PXIHL 6AFE CD7D68 CALL CDRW AHR2 FE4D CP 4DH 似 63D CDO368 CALL INT 
675 2AC2F2 LD HL,(ABY) 6B01 25 INE HL 2gB4 CAE6E jp WOWE ⑳ 6C40 EI FOP HL 
678 227F2 LUD dPY)HL 6B02 C3F9A JP 9 6EB7 FE4E CP HEH ⑮ 
6W7B E1 FOP HL 6889 CA&&L JP 7.MARK 5 
697 C9 RET 6B05 3E20 。 TEST: LD Ai20H 6BBC FE4F CP 4#FH ⑰ 

i 6807 9679 LD 8.70H 68BE C83C6E JP 720R6S 

444 HRRACTER DRAW 4 6B09 CDD164 TESTI: CaLL PLTC 6EC1 FESO EP 50H @⑮ 
H | 6BOC BB CP B ] 6EC3 CA196E JP 7uPRINT ⑳ 641 23・ INE HL 
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6[42 C3746B 


JP MODS 


) 
44441 TEST PATERN 4444 


H 
6C45 E5 TST: 
6E46 CDOS68 
49 E1 
64A 23 


6E4B 37468 


PUSH HL 
CALL TEST 
POP HL 
INE HL 
JP MODS 


H 
1444 Return to DRIBINAL PUINT 444 


H 
6C4E ES ROP: 
克 4T CD5968 
6C52 E1 
6C53 23 
6C54 C3746B 

H 


44444 DRM 44444 


i 
DRMi 
DRM1 


6L57 3E44 
6C59 2E3F2 
6C5C 3EFF 
6ESE 32EOF2 
6E61 人 F 
6C62 32E4F2 
低 65 2 
6Ce6 C3746B 


PUSH HL 
CALL HONE 
POP HL 
INCE HL 
JP MDDS 


LD 44 

LD (MODER),A 
LD AOFFH 

LD (PF61),A 
X0OR 8 

LD (MDNR),A 
INC HL 

JP NODS 


H 
4 RELATIVUE DRAW 4448 


H 
69 E49 RDRW: 


6 克 6B CX596E 
44444 HOVE 14441 


i 
NOVE: 


6C6E 3E4D 
670 32E3F2 MOVEI: 
673 胡 


674 32EOF2 
77 32E4F2 
6C7A 23 

67B 3746B 


LUD 4A.4 
JP DRMI 


LD A4DH 

LD (WODER.A 
XOR A 

LD (PF61)A 
LD (WDMR,8 
INC HL 

JP MODS 


9 
4 RELATIVE NOVE 4 


! 
6C7E 3E52 RMOVE: 


6C80 3706C 
444414 DATA SET 4444t 


DTST: 


LD 452H 
JP NOVEI 











6C83 E5 PUSH HL 
6C84 3AEYF2 LD 4,(MODER) 
6E87 FE44 CP 44H ⑧⑲ 
6C89 CA9E6L JP 7.D5TA 
6CBC FE4D CP 4DH ⑳ 
6C8E CA9EAE JP 7.D5TA 
6C91 FE49 CP 49H 避 ) 
6C93 CAB8&C JP 7.DSTF 
6C96 FE52 CP 52H ⑳ 
6C98 CAB86E JP 7.DSTF 
6C9B E1 POP HL 
6C9C 23 INE HL 
69D [9 RET 

H 
6C9E 21E4F2 DSTA: LD HL,NDNR @ 
6CA1 7E LD (HU 
6CA2 87 AND 4 
83 C206E JP NZ,DSTAI @9 
6CA6 ED5CF2 LD (ABMX).DE 
6 人 34 INE (HU 
6C8B EI POP HL 
AE C9 RET 


H 
6CAD EDSXCEF2 DSTA1: LD 


6EB1 角 X0R 
6B2 77 LD 
6EBY ED356A CALL 
6CB6 E1 POP 
6EB7 C9 RET 
H 
6EB8 21E4F2 DSTF: LD 
克 BB 7E LD 
6EBE 87 AND 
6BD 2C76E JP 


うき 22 


(ABWY),DE 
8 

(HL),A 
6BDRW 

過 


HLNDNR 5 
(HL) 

A 

NZ,DSTF1 











6CEO EDS3C4F2 
6E4 34 
6C5 E1 
6E6 (9 


り 
6EE7 EDS3CeF2 DSTF1: 
CB 角 
6EE 77 
6CCD CD3869 
6CDO E1 
6ED1 C9 


け 
44441 VAR。 SET 4444 は 


9 
6ED2 C37468 VARSET: 





ふり だ て 








LD (FLO,DE 
INE (8L) 
POP HL 

RET 


LD (FLY),DE 
XOR A 

LD (HU,8 
CALL WSTL 
PDP HL 

RET 


P HODS 








@ OO 








プロ グラ ム の 注釈 








) iDsolute pos.X 
H Y 

iHotor drive rwg.X 

H Y 

jigtor drive port Buffer 

iStep Length 

⑦ jPoint 生生 inq Reg. 

ildXI7IdYI THEN 0 

⑨ jiPen flag1 00..up F『..domn 

⑯⑩ jPoint digtance 00to 7F 

⑪ iPen flaq2 

⑯⑲ ji0utput port 

⑬ jUriqin SET 

⑭ iTABLE for Motof gutput 

⑬ jotor Buffer Set by HDX,NDY 

⑯ iData conyersion 

⑰ iif PFB17〈0 then PEN domn 

⑱ Pen up/down Delay 

⑲ jotor nutput Delay 

⑳ ilstep moye 》】 directian 

⑳) iPoint Distance 

⑳ ilstep move Y direction 

⑳ iADsolute dX set BE 

⑳ iAbsolute dY set DE 

@ idX=0 2 

⑳ jdV=0 5 る 

@⑳ jdY=0 5 

⑳ ldXI2IdYI 

⑳ jldYI だ Id 

⑳ 1f IdXI>IdYI then Set Carry 

⑧ ildXKIdYI 

@ ildXI2IdYI 

⑧⑱ jD=dX/2 D=dY/2 

⑱⑭ iLarry=0 

@⑲ jiD=D-dY D=D-dX 

@⑯ i1 Sten for X 

⑳⑰ Hotor & Pen DUTPUT 
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汎用 イン ター フェ イス の 製 作 





や っ と 入手 し た 憧れ の PC-8001 で ゲー ム を 楽し む の に も 
少し 飽き , さて , シン セ サ イ ザ で も つなご うか , それ と も 
実験 の お 守り で も させ よう か , は た また , ロボ ッ ト の 脳 み 
そ に で も し よう か な ど と 考え た あな た . 目 の 前 に , ハー ド 
ウェ ア 非 公開 の 厚い 壁 が 見 えま せん か . 

し ょ う が な いこ と と あき ら め て , 大 枚 は た いて , 拡張 ユ 
ニッ ト PC-8011 を 買っ て も , アマ チュ ア に 使い で の ある 汎 
用 並列 ポー ト は , 入力 12 ビ ッ ト , 出力 12 ビ ッ ト だ け で す . 

そこで こ に ご 紹介 ある は 大 出力 じ め で 17 シ マイ | トー お 
まけ に タイ マ を 持つ 1/O ボー ト で す . 我々 は 使っ ちゃ いけ な 
い 本 体 の バス を 使っ て いま す が , そこ は アマ チュ ア , 恐れ 
軸 PAM Mo 1 

それ と , 付録 に 『NEC 完 全 非 保証 PC 本 体 !/O ボ ー ト 
を 載せ まし た . 眉 に 嘘 を つけ な が ら ご 利用 くだ さい 、. 


息 。 回 踏 移 読 。 etc. 


図 1 の 回 路 図 が ほとん どの こと を 語っ て くれ て いま す . 
この 江 用 1/0 ポー ト は 以下 の 機能 を 持っ て いま す . 


汎用 入力 ポ ー ト 2 バイト L S 244 
汎用 出力 ポー ト 2 バイト 8212※ 2 
汎用 入出 カポ ボー ト 3 バイト 8255A※1 


汎用 タイ マ 3 チャ ン ネ ル 8253※ 1 

私 達 は これ を 汎用 基板 ヒノ マル -3 の 上 に , ラッ ピン グ 
を 使っ て 組み 立て まし た . すでに 2 右 が 完成 し , 現在 3 
杏 目 の 製 作 途中 で す . 充分 再現 性 が ある と 考え て いま す . 
表 1 に 示す よう に , この I/O ボ ポート は $80 一 $ 8 B の 1/O 
アド レス を 占め て いま す . これ は PC-8011 や ディ スク ,。 あ 
る い は 本 体 の アド レス と 競合 し な 

本 体 と , この 装置 の 間 は , 山 一 の FDS-50-03(02 も 可 、 本 体 
側 ) と FAP-50-03 (装置 側 )。 お よび 当然 な が ら 50 記 の フ 
ラッ ト ・ ケ ー プ ブル で 接続 きれ て いま す . ケー ブル の 長 さ は 
私 の 場合 20cem と し まし た が , これ は で きる だ け 短 くし て く 
だ さい . 短けれ ば 短い 方 が よい の で す . 

お 金 が た な たく さん あっ て , PC-8011 抜 張 ユ ニッ ト も 持ち , 
さら に この 1/O ポー ト も 製作 する 方 は . どう ぞ こ 9 
は ご 自分 で bang bang し て くだ さい . きっ と , 何 か 適 当 
コネ クタ が ある で し ょ うか ら … 

また , 大 阪 ICM の CP/M ア ダブ プ タ を 買っ た 方 は , 亜土 電 
子 で 取り 扱っ て いる 信号 取り 出し 用 コネ クタ , AP PROD 





写真 1 





表 1 メモ リ ・ マ ッ プ 





10 進 |16 進 | 用 途 | 接続 きれ て いる IC| 備 考 
128|180 出 力 (0) B2N 交 スト ロー ブ 付 き 
129|18I 出 カカ (!⑳ 823 ド の スト ロー ブ 付 き 
IS01I82 入 (2) LS244 

1.8i0。 1 853 入 カカ ( 3) LS244 

SS2 コ 89:4 入出 力 ( A ) 8255( ポ ボー ト A)| 一 
133|185 入出 力 ( B ) 8 2 5 5( ポ ー ト B) ロー ュー 
134 |86 入出 力 ( C ) 8 2 5 5( ボ ポート C) ーー 一 
135| 8 7 | 入出 力 コ ント ロー ル | 8255 ーー 
136|188 タイ マ 0 8253 1 kHz 
137189 タイ マ 1| 8253 I kHz 
138|18A タイ マ 2 8253 4 kHz 

1 3 9 | 8 B | タイマ: コン トロ ー ル | 8 2 5 3 























いよ うに 定め た も の で す . 


UCTS の イン トラ ・ コ ネ ク タ と いう の が 使え ます . 

私 達 は ケー ス に 鈴 環 堂 の MEC3B を , また , 入出 力 用 コ 
ネ ク タ に は 上 第 一 - 電 子 の 57 型 と いう も の を 使い ま じ に 378 と の 
辺 は まっ た く 趣 味 の 間 題 で す . 


人 。 作 り 終 わっ た ら 6 


9 配線 を チェ ッ ク し ます . チェ ッ ク が 終わ っ た だ たら, 
も う 1 度 チェ ッ ク し ます . 何せ , 使っ て は な ら な い シ ステ 
ム ・ バ ス を 使わ せ て いた だ く の で す .。 この こと の 葵 れ 多 
に お の の き 。 さら に も う 1 度 配線 を チェ ッ ク し ます . 

この 慎重 き が あな た の PC-8001 を 守る の で す . も う 1 度 
や り ま すか . それ も いい で すね . 











ズ E ズ と と ヒー/Tf)ON 


マン を を と と そ ヒ FY)/ENI 一 OENI ママ と る と と ヒ (FYf)/ZNI 一 0ZNI 


























人 と S 1 


と ベ ュ ケ ・ ジ ュ NZ 補 


ゴー ヒエ ・ と イコ コン 


5 1008-2d 





で PE 080I 





















































&O 


























7 ヨ d 





98d 
Sd 





14:!(| 





を dQ 
cd 





Id 
08d 








08V 









































マン ムル と る を ・ イ イ と た と と ロン ママ 1 を を と ヒビ 還 ヤン 0 を と と ヒビ 甲 
1 と ー ロ 4 と "7I1n0 一 0I1nO f) 0 と ー ロ 1 と "7201nO 一 001nO 
IVOVX 』」A と 【 ご 8 と 1 と 8 
1 0Zー ロ 4 と 
ニン ザー89 niFO10O 
7 'V せ みせ ネ い 型 
099 導 必 こ ん メイ と g 2O1nO 
7 一 090| 7 
に )/ 一 080I* g !91nO 
ー 6 
7 一 0VOI sn01no 
人 6 と 8 +ー 洋 他 吊 : 
? 
| 
SA + 
中 上 
0I | 
夫 | 
8 | 
引 Zq 
回 090 HH 
Kil 7d0I sq 
yl 
較 
-Q 59 
= zq 
図 080I ioH 
VOI 上 | 
] CE 
0vOI く P 
OST 
1ー 平 
四国 必 甲 Y 
zzNI ZNI 
IZNI szNI 
0ZNI 9zNI 
+ー 洋 で 





























18V 


cdV 


を dV 


8V 


SdV 











98V 


7 ヨ V 

















32 


10 


図 1(b) 








コネ クタ ・ ピ ン ・ コ ネ ク シ ョ ン 
a ) 出力 コネ クタ 


X0 X| X2 X3 X4 X5 XX6 


プロ グラ マブ ル ・ タ イム 






















3 7 


10 


4 535 
旧  12 
に = 


6 
13 14 













スト ロー プ X7 





b ) 入力 コネ クタ 


ネ 0 *※| *※2 ※3 ※ ま 4 ※ ま 5 ※6 


0 に ローCS7/ 
8 9.、!0 2 3 14 


8 <9Yw IO 1 川 還 412 
13 14 15 16 17 18 19 20 2| 22 23 24 





ヒン 2 4、 6、8. 10、12 お よび 13 一 24 は 接地 . 前 面 コ ネ ク 
タ に つい て は PC-8001 用 マニ ュ ア ル を 参照 し て くだ さい . 








丸 CP/M ア ダ プ ブタ, 拡張 ユニ ッ ト を 持っ て いる 方 へ / 








大 阪 1 CM の CP/M ア ダ プ タ や PC の 拡張 ユニ ッ ト PC804I を 持 
っ て いる 方 は , バス の 競合 が 生じ な いよ う , この |I/0 ボ ー ト を 70H 
ー に リロ ケー ト す る 必要 が あり ます . それ に は アド レス ・ デ コー ド 
の 上 位 4 bit を 図 の よう に する 必要 が あり ます (動作 確認 済 ). 

た だ し , 1 CM の C P/M ア ダ プ タ 使 用 者 は , その !/ 0 用 バス か ら 
信号 を 取れ ば , この まま の 回 路 で も 可 で す . 











また , 今秋 発売 予定 の PC- ADB7 
8042 と 組み 合わ せる に は それ 用 人 欄 二 下 党 
の 共 板 に この まま の 回 路 で 組み 3 
UL 変更 


上 ば げ て, マザー ボー ド に させ ば ADB7 


お そら てく 大 丈夫 の は ず で す . に Ps プ ルー 
5 
4 


写真 4 イン ター フェ イス ・ ボ ー ド の 拡大 

















る よう に し ます . 


その 2 上 に 関連 し て , TTL は 必ず LS タ イプ を 使っ て く 


AM 
、 天 便 用 上 の 注意 だ さい . も っ と も 8212 な ど と いう 大 喰い を 使っ て ます が 
人 @ 9 記 2 ゃ これ は 足元 に ころ が っ て いた か ら で 他 意 は あり ませ ん . 










その 1 私 達 は 電源 を 本 体 か ら イ タダ キ ま し た . 約 0.5A に その 3 電源 を 入れ た まま で , PC-8001 と 本 機 の 接続 を 行 
な り ま す . 本 体 の 通風 、 放熱 に は 充分 注意 し て くだ さい . な っ た り 、 ある い は 外し た り は , lim( 絶 対 )" (た だ し 。 絶 
も ちろ ん , 電源 を 内 蔵 し て も いい わけ で す が , この と き は 本 体 対 > 1) し な いで くだ さい . 思わ ぬ 事 故 の も と で す . 我々 
の 電源 を 必ず 先 に 入れ , 切る と き は この 1I/O ポート か ら 切 は 使っ て は な ら な いも の を 使っ て いる の で す . 
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表 3 


TERMINAL 
CMT 


不詳 

基本 ソフ ト で は 
不 使用 
天 二 多 * 補 セク 
タ 用 IC85, 86 
の A セ レク ト へ 


デー タ ・ セ レク 
タ 用 IC85, 86 
の B セ レク ト へ 








ボー ト $30 の 詳細 


CMT キャ リア 
切り 換え 
(ヘッ ダー 用 ) 






























































表 4 ポー ト $40 の 詳細 
に 】:) 
ビッ ト 7 ビッ ト 6 ビ ピット 5 ビッ ト 4 ビッ ト 3 ビ ピット 2 ビッ ト 1 
CRTC 操 作 中 | PDI990 PDI990 プリ シタ 
出 カ 未 使用 未 使用 BEEP 未 接続 ' デー タ ・ コン トロ ー ル 関 還 0 
ジン ラジ グ 57 シフ ト ・ パ ルス | ・ パ ルス スト ロー フー 
DMA PD1990 の PD8251 の リン 
の 未 使用 未 使用 EXTON 
BUSY 出力 デー タ 入力 READY 
表 2 PC-8001 |/O ポ ー ト ・ ・ マ ッ プ ($0 一 $7F) 







































































$0$9 キー ポー ド ・ セ ンス 線 上 ご 

$A-$E 未 使 用 AN 

$10 ) | プリ ンタ 用 お よび PD1990 用 デー タ 

$11 一 WI1E $ 10 の イメ ー ジ 

靖国 国 還 MESG3 

SD 2 員 放水 デー グ ・ ーー 表 5 間違い だ ら け の ハズ (? ) の PD3301 の 使い 方 
$31 一 93F $ 30 の イメ ー ジ の EE ワー ド $51 を 送る 。 

0 | 入出 et 本 拉 出力 C26) 表 4 参照 その後, 必要 個数 の デー タ ($50) を 書き 込む . 
$41 一 $4F $40 の イメ - b ) 使用 法 2 カー ソル 設定 

$50 | 550(CRTC) デー タ ・ ワ ー ド 表 5 参 昭 

$51 PD3301(CRTC) コン トロ ー ル ・ ワ ー ド $51 - コマ ンド (S$8|) 
W52-5F | $50, $51 の イメ ー ジ 識 $50 一 デー タ 1 ( X の 値 ) 
$60 一 6E 8257(DMAC) 4 $50 ご デー タ 2( Y の 値 ) 
$64 8257 の DMA ch2 アド レス 

$65 8257 の ch2 ター ミナ ル ・ カ ウン ト  ) 使用 法 3 カー ン ル 消去 

$68 8257 の モー ドモ セッ ト ・ レ ジス タ 

$70 一 87F 未 使 用 。 

a ) 使用 法 1 イニ シャ ライ ズ ・ デ ー タ 






















































































| $51 < コマ ンド ($00) 
7 6 ー 1 0 
2 $50 < データ 1 | ? ( | 行 の ドッ ト 数 /16) 一 | | ] 
イシ タレ ー ス / ノ ン イ ンタ レー 2 
| = 7 6 5 0 
KU デー 名 2 | プリ ジンク 用 分 周 数 | 表示 行 数 」 | 
7 6 5 4 還 0 
4 $50 < デー タ 3 | ? カー ソル EN ロ 還 較 1 行 の ラス タ 数 一 | ] 
カー ソル ・ 2 
7 5 4 3 2 1 0 
5 $50 < デー タ 4 生計 バ ルズ 病 水平 同期 パル ス 幅 
垂直 同期 EN ニン SCAN に 関す る 何 か . カラ ー の 2 
『 6 に ) 4 を 1 
6 $50 一 デー タ 5 | て | カラ ー/ モ ノ | (ZI りー トレ エリ ル /2)。 | 
アト リ 方 式 フ ラグ ? トリ ビュ ー ト 有効 フラ グ ? 
が $51 一 コマ ンド 2($S43, た だ し $4| で も 可 か ? ) 
い 9 7 6 5 4 3 2 I 0 
kk を SUk 注 較 還 ii ni in swinntnw〔{tt| ト ーー ココ 7 | 反 埋 」 








その 4 出力 ポ ボート, ある い は 入出 力 ポ ボー ト 
使う と き は , 他 の IC の 出力 と 接続 し た り , 
ー ス に 直接 つなが ら な いよ うに し て くだ さい . 

また , 入出 力 ポ ー ト を 入力 と し て 外部 に 接続 し た 場合 , 
調 っ で この ポー ト を 出力 に プロ グラ ム す る と , 上 に 述べ た 
よう な こと が 期 せ ず し て 起こ っ て し まい ます . これ を 未然 
に 防ぐ た め , 図 の よう に 入力 と し て 使う 入出 力 ポ ー ト に は 
1 kQ 程 度 の 抵抗 を 接続 し て お く と 安全 で す . 


坦 。PC-8001 本 体 の 0 マッ プ 


本 体 に 割り 当て て ある アド レス は $0 一 $7F で す . これ 
を : ま >38$ 10 選 es デコード し , Sa 場合 は 下位 4 
ピッ ト の デコ ー ド も 行なっ て いる よう で す . た だ し , その 
下位 4 ビッ ト の デュ コー ド を 行 な EE 4 
り , その 場合 , た と えば $31 一 $ 3F は $30 の イメ ー ジ と 
る わけ で す . 

表 2 は アド レス ・ マ ッ プ で す . アド レス 。 お よび , その 
ポー ト を 入出 力 の どちら に 使っ て いる か , そし て , 何 か つ 
な が っ て いる か を 示し て いま す . $30, $40. そし て CRTC 
に つい て は , さら に 詳し く , 解読 結果 を 示し まし た . 


を 出力 と し て 
電源 ある い は ア 
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PD1990,。 8251, 8257 な ど に つい て は , デー タ が 公開 さ 


れ て いま すこ ご わら の ポー ト の 詳し いこ と に つい て は , 各 
IC の デー タ ・ シ ー ト を 参考 に し て くだ さい . 


 。 お わり に 9 ら 


何 も 教 を えて も ら え な いと いっ て ダダ を こね る より も , 自 
ら 『 勝 ち 取 る 』 方 針 が 大 事 だ と 思い ます . た だ し , ここ に 
ご 紹介 し た 汎用 1/0 ポー ト に せよ , 本 体 の 1/O マ ッ プ に せ 
2 人 YS し れ ま せん . 

ここ に 示し た の は , た た き 吾 , ある い は 皆さん の より 良 
時 j の つも りな の で す . 皆さん 
の 責任 の 上 に お いて , この 記事 が 利用 され, 何 か の お 役 に 
立て れ ば , うれ し い 限 り で す . 

これ 以上 の こと が わか っ た ら , ぜひ 1/0 に 発表 し て くだ 
さい . その よう な フィ ー ド ・ バ ッ ク こ そ が 大 事 な の で は な 
いで し ょ う ' が . 
最後 に 一 言 . PC- 8001 を 真 の 国民 機 と する た め , 速やか 
な 『 ハ ー ド の 全開 を ./」』 希 望 し て いま す . 


倫 あ り が と う 


だ た だし, これ ら の 情報 を まう の み に し て , 何 か を し た た め 相田 鷹 男 様 。 あな た の 作ら れ た 逆 ア セ モン ブラ こそ 使い は 
に 起き た こと は , すべ て あな た の 次 任 で も る と 思っ て ご 利 し ませ ん で し た けど , あな た が 調べ られ だ た こと は , 大 変 役 
用 くだ さい . に 立ち まし た の で , ここ に 記し て 感謝 の 意 を 表し ます . 

本 HEHHEHHEHHEHHHEHHHEHHEHHHEHHEHHEHHSHH2HHeHHaHHzHHHzHHHaHHsHHaHHaHHxHHHsHHHaHHzHHHsHHHaHHHaHHHHaHTHaHHaHHHaHHHHHHaHHHsHHHaHHHzHHHisHTaHTHuHTaH HHHaHHsHH 
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アト リピ ュー ト ・ エ リア の 先頭 
と 








| | | 


偶数 アド レス 奇数 アド レス 偶数 アド レス 奇数 アド レス 








その 桁 か ら , 次 の 奇数 アド レス の 内 
ar の 0 容 に 従っ た ん アトリビュート を 行なう . 


| 条 数 アド レス の 内 容 アト リピ ュー ト の 内 容 を 表わす . 

















HHAHHaHHaHHaHHHaHHHaHHHaHHHaHHaHHzHHaHHH。HHHaHHNHHaHaHah 


aaHTHaHHHHHI。HH。HHuH 


ii 
HH 




















M : グラ フィ ッ ク / 文 字 モ ー ド R : リバ ー ス 
D : アン ダー ライ ン B : ブリ ンク (S 指定 の 時 無効 ) 
P : アッ パー ライ ン S : シー クレ ッ ト 








lahtaHtuHaHlaHaTaHaHTTaHTT。HTHuI 
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簡単 に 作れ て ロー コス ト / 





PC-8OO1 直結 





PROM WRITER 
の 製作 


長岡 美紀 雄 





最近 の 2716 の 値下り は も の すご く , 2708 と 同じ くら い の 
の 値段 まで 下り まし た . そこ で ロー・ コ スト て 製作 が 容易 
な 2716PROM ラ イタ を 作り まし た . 






便 用 パー ツ か ら テ スト まで 

と な る イン ター フェ イス L S I は , NEC の ん PD8255 
AC-5 で モー ド 0 で 使用 し て いま す . 

その 他 .,I/0 ア デ ド レス の デコ ー ド に 74LS138、 コン トロ ー 
ル ・ バ ス の 完 コ ニー ド に 74LS32.。 シト ロー ルン に オー ブ 
ン ・ コ レク タ タイ プ の 74LS03 を 使用 し て いま す . 

この よう に LSI 1 個 , TTL 3 個 の 簡単 な 構成 で PROM 
ライ タ が で きる の で すか ら , 皆さん も ぜひ 作っ て みて くだ 





きい. 
周回 路 に つい て 

PD8255AC-5 は モー ド 0 で 使い , PAo-7 を 2716 の デー タ 
・ バ ス Do-7 に 接続 し , 書き 込み の と き , 出力 ポー ト , イレ 


ー ズ ・ チ サナ ェ ッ 少 。 パリ ーー アプ ア 。 ロー ド の と 圭 炊 力 ポ ー 忌 と 
切り 換え て 使っ て いま す ( 図 1). 

PBo-7 は アデ ドレ ス 下 位 用 で 出力 ポー ト と し て 使用 し , Ao 
-? に 接続 し ます . PC は アド レス 上 位 用 と と も に 各 制 御 信 
号 を 出力 し ます . 

PCo-s を As-io に ,、 PCs は CE/PGM 制 御 に , PCe を ア ぁ 
制御 に PCz を OE 制 御 に それ ぞ れ 使用 し て いま す . 

この 場合 . アド レス に 必要 な 各 制 御 信号 を OR・AND 
し て , ON/OFF し て いま す . 

74LS138 は アデ ドレ ス ・ デ コー ダ で , PC- 8001 内 部 で 使用 
し て いな い ア ドレ ス 80HーFFH ま で を 10H お き に デコ ー ド 
し ます (Yo 一 Y? は 、80H 一 F0H). 

8255 の 1/O ア ドレ ス は PA が 80H、PB が 81H. PC が 
82H, CW (コン トロ ー ル ・ ワ ー ド ) が 83H で す . 

74L S32 は コン トロ ー ル ・ バ ベス の デュ ー ド で ., PC- 8001 
(Z80) の IORQ. WR, RD の 各 信 号 か ら IORD、IOWR を 作 
り 8255 の RD,、 WR に 加え て いま す . 

74LS08 は オー プン ・ コ レク タ 出 力 で 。 ビ ピン 配置 は 74L 
S00 と 同じ で す . この ゲー ト は PC-8001 か ら の RESET 信 
号 を 反転 し て 8255 に 加え た り ,。 必 。 コ ント ロー ル に 使用 し 
た だ たり , OE の コン トロ ー ル に も 使用 し て いま す . 
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写真 1 PROM ラ イタ の 本 体 





写真 2 各 コ マン ド の 実行 
4 ERRSE CHECK 。 2 MRITE 


に 環 認 リコ 、9 9 4 4 LORD 
ト 伸 較 【 り 、5 まり 、】 





COHHRND? 4 

1 コー に 1 間 り | 9、 人 りり 人 
COHMHRND? 2 

DaTR MRITE END 
VERIFY OK ! 
COHHRND? 3 
VERIFY OK ! 
1 ル 】 
VERIFY OK : 

LORD END 
COMHRND? 5 


1 
COHHRND? 還 


回 路 図 中 5V、 SW5V、SW28V と いう の が あり ま 
す が , これ は , S W が 付く も の は ROM を 抜き 差し する と 
き に ON/OFF する スイ ッ チ で ON/OFF され る 電圧 で す . 
これ は , ROM を 抜き 差し する と まき, 2716 に 電圧 が 加わ っ 
て いて は まず い の で , 前 記 の 0 な どの プル アッ プ 抵 抗 に 
も 加え て いま す . 


画 PC-8OO1 と の 接続 


PC-8001 と は , 50 志 フラ ッ ト ・ ケ ー プ ブル で 接続 し ます . 
PC 側 カ ー ド エッ ジ ・ コ ネ ク タ に 山 一 の FDS-50-13B, 反 
対 側 に FAS-50-03 を 使用 し ます . 

そし て , プリ ント 板 に FAP-50-03 半 2 を 使っ て PC か ら 


1O 


図 1 PROM ラ イタ 全 回 路 図 















74LS138 PD8255AC-5 ia 
[SS F 
[ieRe に 
[ 絹 
RESET ト = 
RD24EB 
1 再 )※: 赤色 LED 
T5V K2 TLR103 な ど 
GNDI 48, 50 
5VcSW5V と が ある の で ーー ※ こ の し ED は 25V が Vrr に か か っ て いる と き の 
注意 する こと / OCZ29RSM イン ジ ケ ー タ と し て も 使え る . 
RD24EB の バラ ツキ に よっ て V が 25V に な ら 
な いと き は 直列 に も う 1 本 LED を 入れ る . 
紅 」 





の 信号 を 受け ます . フラ ッ ト ・ ケ ー ブ ル は 短 か い 方 が 良い 
の で す が , 私 の 場合 , 1 m で も 誤動作 し な いで 動い て いま 
す . 


陣 製 作 上 の 注意 


フリ ント 基板 は IC ヒ ッ チ の ICB-96 を 使い 、 LSI, IC は 
すべ て ソケット を 使い まし た . 

PC_-8001 か ら の 信号 は すべ て 出力 (デー タ ・ バ ス は , 入 
力 の と きも ある ) な の で 誤 配線 を し た り , ショ ー ト し た り 
する と その まま PIG が "サー ビス ・ モ セン ター 行き " と な る 
の で. 配線 が 終わ っ た ら , 自分 が 納得 いく まで 確認 し て くだ 
さい . 


圏 テ スト 


まず 初め に ,IC を 差 さ きず に PC と 本 機 を 接続 し 電源 を 入 
れ ま す . そし て 各 ソ ケッ ト の 切 に と GND 間 に 十 5V が 加 
わっ て いる か どう か 調べ ます . 

OK な ら 1 度 電源 を 切り 。 IC を ソケット に 半 し 込み ま 
すず, 反 び 電源 疹 大 れれ ダイ レク ト ・ モ ー ド で 





| OUT 層 H83. を H80 軸 





を 実行 し ます . 

そし て 2716 ソ ケッ ト の Ao 一 Aio,。 Do 一 D7。 CE/PGM 端 子 
が 0V, し OE が SW を ON に し た と き 5V, OFF の 
と き 0V( 本 当 は , オ ー プ ブン) で あれ ば , ま ず は OK で す . 続 いて 








| OUT H80, 255, OUT 81。255、OUT を HHS2, 255 | 





を 実行 し ます . そし て 4o 一 Aio, Do 一 Dz, CE/PGM が H レ 
ベル (3 一 5V), OE が 0 V, が SW ON で 25V, OFF 
で 0V な ら OK で す . 

攻 。 は , RD24EB の バラ ツキ に よっ て 25V に な ら な いと 
き が あり ます . その と き 24V 以 上 で あれ ば その まま で OK 
で す が , そう で な いと き は , 赤色 LED を も う 1 本 直列 に 
追加 し て くだ さい . 

また , この LED は , に 25V が 加 っ て いる と き の イ ン 
ジ ケ ー タ と し て も 利用 で きま す . 

以上 が OK な ら PC の リセ モッ ト ・ ボ タン を 押し , リス ト 
を AA し まう 9:。 





使い 方 か ら 便 用 感 





プロ グラ ム を RUN す る と 。 コマ ンド ・ リ スト を 表示 し , 


ee) ルリ 


と 聞い て くる の で ., 必要 な コマ ンド を 入力 し て くだ さい . 
次 に 各 コ マン ド グ の 説明 を し ます . 
1. イレ ー ズ ・ チ ェ ッ ク 

ROM 内 の デー タ が すべ て FFH か どう か , チェ ッ ク し ます . 
1 つ で も FFH で な けれ ば その アド レス と デー タ を 表示 し , 


lpIe)l 貞 当 コミ 7 パ に ) コ 細 に (9 (| 
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0 


リス ト 1 PROM ラ イタ ・ プ ログ ラム 









FC-EG1 EN 本 
5 20。 ETDTH 36u と 

HEFFF DEFLSR ロ =&HESB ロ 
叶 HES1 さ 

品 昌 リキ 生ま )sNERT さ 

55 昌 

FD, 5 2 ロロ ,F8 

じ 










3 DHTH FE ェ FG:G 
DRTH BE,81 DD。 
DRTH EE:CF DS さ 。 9 
PEF THT ご kF ロ =HSEI PB= ニ SHS1 PC=&HS2I EMI=&HS さ EDUT CMI,&H3BE HUT PC, ロ 
加 [ EBIFRIHT CHR ま 18) 
TE S:giPRINT "1 ERHSE CHECEK 2 MERITE" 
LOUCRTE 5S:iFRIHT " さ MERIF す LOHD" 
LGCERTE 5FRINT "9 呈 HHHITUR"5CHE ま 11)* 
IHPUT "CONHMRND "に 
IF CE HK 1 BHT 14 
BN ビ ロ USLUE 19 ロロ, さす 4 品 、 で ロ 。 回 。 18B 
E= ロ : は ー 還 s 軒 = 四 5 BHT 14 ロ 
PHIFRINT iRETLRN 
RE 半 キ EERSE CHECK 玉 
HLT 1.iUUT CMU。 &H9 ロ 
FIHR HH=gd TU r 
FIR PL=g TO 255 
HUT PB RL 
HLUT FC。HH _UR &HSg 
DT=INF バ PR 
IF PTS >25SS THEN GOTU 2 ELSE GUTU さ 19g 
E=1iTF N=g THEN LUCRTE g.5ilMMIDTHS6。 29iPRINT "DERESS"。 "DRTR "ESFCC18):CHE ま 11 
HI に 3 
Sg H ま =HE ま CHHZ56+RL) ID ま =HES ま CDT う iTF _ LEN まう =1 THEN = リリ"+D ま 
23 IF LEHCH ま うぅ う =1 THEN ロ ま ="B"+ 拍 ま ELSE IF LENCH ま う =2 THEN まま = リ ロリ 
さ g9 FRINT | まり 5D ま SFEK1533EHE ま (13 う 
LEHERT HHUT FC, ロロ HUT FE, 昌 MIDTH さら 
さ デ 9 IF EX: THEN PRINT "POHT ERRSE RF" ELSE PRKIHT "ERRSE CHECK UK !" 
ささ RETURH 
さ 349 KEI 立 RON MRITE 
35g HUT CM HBBi IT 81。 ロ IOLUT FC。 ミ HH 
さ 6g FUK HH= ロ TH r 
3 FUR HL= ロ TU 255 
38g UID=FEERD+RH ネ 25G+ 自 L ) 
さ 39 IF MD=255 _GHTH 429 
89 ULUT FIMDIOUT PB,RL 
41 ロ ド K=USRBKHH) 
42B_HERT LiNEXRT ロ H 
33 HUT FC,giDUT PE,9IUUT CM,SH3g 
449 MIDTH 36, giFKINT "DRT MEITE END" 
459 GUSUB 479 
469 RETURN 
479g RENM DRTR UERIFV * 玉 
489 QUT CM &H9gIUUT 81.9 
499 FOUR HH=g TO ァ 
Sg9 FOUR L=9 TO 255: KR=H*256+HL 
S19 OUT PB:RL 
529 OUUT PC:HH UKR SH8g 
539 DT=INFKFH) 
549 MD=PEEKCDR+RR) 
359 IF _DTS>ND THEN GOTU 56g ELSE GOTOU 619 
S6g U=1:TF N=g THEN LOCRTE 9,5ilUIDTH36, 29: PRINT "BDDRESS MRITE DRHTH RERD 
DRTHR "CHR を て 11)j』 』N=1 
57g HH ま =HEK ま て KiN ま =HEX ま (MD) iD ま =HEX ま CDT) 
S89 IF LEHCR$ う =1 THEN 由 ま ="gg"+ 月 ま ELSE IF LENCH ま )=2 THEN 由 ま = リロ "月 ま 
529 IF LEHCM ま を まう =1 THEN 1 ま ="9"+M ま 
595 IF LEHNXD$ う =1 THEN D ま = リロ"+D を 
699 PRINT リリ 5 まま SPCC11)5N ま 3 SPEC12)3D を 
619 NET LINET HIOUT PC,9g: DUT PB, 9:UUIDTH 36,2g 
52g IF U く > THEN PRINT "LORD DRTR ERRUR" ELSE PRINT "UERIFY DK !" 
639 RETURN 
54 REN ※*※ DRTH LURD 
559 OUUT CMU。&H3gEUUT 81. ロ 
669 FUR HH=9g TO 
67Z9 FUR L=g TO 255 
89 DUT PB:RL 
639 0UT PC。H OR &H8g 
gg _DT=IHPCPR ッ 
1 POKE DRH+RH*2S6+RL , DT 
29 NERT LINEXT HIOUT PC,9:UUT PB,9 
39 GSUE 479 
49 PRINT "LORD END" 
Sg RETUEN 




























と 表示 し ます . すべ て FFH な ら , と 表示 し ます . 


ERASE CHECK OK! 者 た の 
E000H か ら E7FFH ま で の デー タ を RIOM に 午 き 込み ま 
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リス ト 2 WAIT サブ ルーチン 
きる 
回 | 3 
1 
昌 き 
5 
L1 5 
ド 補 5E』 
BRH 
に 
gh 
F 
11 
13 
す . また , 革 き 込み 後 自 動 的 に ベリ ファ イ も 行ない ます . 


3 . ベリ ラファ アイ 
EO000H か ら E7FFH の デー タ と R OM 内 の デー タ を 比較 
し まず か 。 9 で SCI( に で 家 ば 、 


と 表示 し , そう で な - け れ ば その アド レス . 
リー ド ・ デ ー タ を 表示 し, 


LOAD DATA ERROR 


を 表示 し ます . 
4. ロー ド 

R OM 内 の デー タ を 、E000H か ら E7FFH に 転送 し ます . 
また , 終了 後 ベ リフ ァ イ も 行ない ます . 

これ は ROM の コピ ー に 使え ます . 


5 。 モ ニタ 

PC-8001 の モニ タ を コー ル し ます . リタ ー ン する に は , 
[cTRHlg| (コン トロ ー ル B) を 入力 し ます . 

この コマ ンド は デー タ ・ エ リア (E000H 一 EE7FFH) (5 
ー タ を 書き 込む と き に 使い ます . 

2 ド は 実行 中 画面 が 消え を ます. これ は , D 
MA を スト ッ プ させ 実行 時 間 を 短く する た めで す (OU 
T81, 0 で 消え , WIDTH36, 20 で 現われ る ). 
圏 プ ログ ラム 

特別 な 命令 は 使っ て いま せん が 、 OR、 OUT、INP な ど 
が 他 の マイ コン に な いか も 知れ ませ ん . (は ンド レン 
語 の それ と 同じ で す . この 命令 を BASIC で 実行 で きる か 
ら こ そ 、 こ の プロ グラ ム が BASIC で 書け る の で す . 

し か し , 書き 込み 時 の 50ms の WAIT だ け は , うま くい 
か な か っ た の で マシ ン 語 で 作り まし た (リス ト 2). 

また , 午 き 込み の と き デ ー タ が , FFH の と き は , 50ms 
の WAIT を せ ず 次 の アド レス に 進み ます . これ は , 少し 
で も 実行 時 間 を 減ら す た め で す . 

PRINT 女 の 前 に 少し プチ ャ ゴチ ャ し た と ころ が あり ま 
す が , これ は エラ ー メ ッ セ ー ジ 用 の 物 で 、 画面 イ ォ ー マ ッ 
ト を 気 に し た た めこ の よう に こ な か っ て し まい まし た 。 な お 
プロ グラ ム の 中 で 使用 し て いる 変数 の -- 覧 表 を 表 1 に 示し 
ま :9 


ライ ト ・ デ ー タ 、 







マシ ン 語 スト ア 用 (リー ド 婦 の デー ター が 入る ) 









PA, PB 
PC CW 
C コマ ンド の 入力 用 


PPI8255 の アド レス 用 











PF | レー ズ " チ ェ ッ ん を UIC ラー" あと 
き Eー 1 に な る . al 
y べ ベリ ファ イ ルー チン 内 で エラ ー が あっ た と き V ニ 1 
に し 人 8 を の 





イレ ー ズ ・ チ ェ ッ ク , ベリ ファ イ ・ ルー チン で 初め て 
N エラ ー が あっ た と き , 画面 表示 と ラベ ル を 表示 する . 
N ニ D の と き 初 め て エラ ー が あっ た こと に な る . 
AH | 2716 用 アド レス 上 位 用 


| AL D 7 ド 位 用 


DT 2716 内 か ら 読 み 出 し た デー タ 























MD | テー タ ・ エ リア の デー タ 

| A$ h 
WM $ ドッ ー の * ト テーク MMU に に し て いな 
Ds 








田 使 用 感 


1 番長 い ラ イト ・ ル ー チ ン で も ファ イ を 含め 約 3 分 
で す .。 ROM ラ イタ の 名 機 . 『< ッ カー』 に は か な いま せん 
が , か な り 短 いと 思い ます . 

凍 き 込み テス ト は 3 社 の 物 し か 行なっ て いま せん が , す 
べ て エラ ー な く 書 き 込 まれ て いま す . 





号 の 2 パス ・ ア セン 


この PROM ラ イタ は ., 1/O'80 年 12 月 
プラ で 作成 し た プロ グラ ム を R OM に 書き 込む た め に 作っ 
た も の で , 以下 に その 方 法 を 示し ます . 


⑩OFFSET を EO000H と し て テキ スト を 作成 し アセ ンプ 
ル す る 

生生 >: He00t な 205N2008 
80H. C 3H, FE 5H, 17H と 革 き 込む (5 コマ ンド ). 
[人 [ 加 [9I[O| と 入力 する と 16K の PC に イニ シャ ライ ズ さ 
れ BASIC に 戻る の で 本 プロ グラ ム を LOAD す る. 
アセ ンプ ブラ に 戻る 必要 が ある と き は . AUS 


[回 [al[11[OI[3| と する . 


ネ 玉 3 





以上 , いた ら な い 説 明 で し た が お わか り い た だ けた で 
l 燈 記 5932 時 | 送 だ の 8 読ま 7 ご は ま /GZSS3 
ドウ ェ ア の 記事 は 少な いよ う で す . PC の ハー ド 派 の 皆 さ 
ん が ガン バリ まし ょ 

最後 に 使用 し た ES 図 2 に , 2716 の リー ド 
・ ラ イト ・ タ イミ ング を 図 3 に 示し ます . 
参考 文献 
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前 | | 71 74LS175 38 240 26 0.01/ 97 0.1z 

1 74LS367 72 PD2316EC 39 200 27 0.01z 98 1 

2 74157 73 74LS153 40 160 28 0.01z 99 0.01z 

3 74LS125 74 74LS10 41 820 29 0.01/ 100 0.01z 

4 74157 75 PC271C 42 390 30 0.01z 101 0.01 

5 74LS245 76 PD4030C 43 1K 31 1 ん 102 0.01 
6 74LS00 77 PD4024C 44 1k 32 0.1/ 103 0.01z 

7 74LS04 78 74LS367 45 4.7k 33 0.1z 104 0.01 
8 74LS139 79 74LS157 46 5.1k 34 0.1 105 0.01 

9 74LS08 80 74LS04 47 33 35 0.1z 106 0.1/ 

10 PD2364C 81 74LS157 48 550 36 0.1z 107 0.01 
11 PD2364C 82 PD4013C 49 4.7k 37 0.1z 108 220p 

12 zPD2364C 83 zPD4013C 50 1k 38 0.1g 109 0.001 
各 8 PD2364C 84 PD4081C 51 22k 39 0.1z 110 10 

14 74LS375 85 74LS153 52 110 40 0.1 ん 111 0.01/ 

15 74LS375 86 74LS153 53 330 41 0.1z 112 0.01/ 
16 74LS32 87 74LS393 54 4.3k 42 0.1/ 113 0.01z 

17 74LS155 88 74LS157 55 2.2k 43 0.1 114 0.01 
18 74LS04 89 74LS166 56 2.7k 44 0.1z 115 0.01 

19 74LS27 90 74LS00 57 8.2k 45 0.1z 116 0.01z 
20 PD8257C-5 58 8.2k 46 01Z 117 220p 

21 74LS245 275RAUM 59 11k 47 0.1z 118 33p 

22 PD780C- | 晶 較 華 間 叶 60 22k 48 0.01z 119 | 3sp 

23 74LS375 1 ZPD416C-3 61 4.7k 。49 0.01z 120 220p 

24 74LS375 2 PD416C-3 62 4.7k 50 0.01z 121 220p 

25 74LS367 3 PD416C-3 63 4.7k 51 0.01z 122 0.01 
26 74LS174 4 PD416C-3 64 4.7k 52 0.01 123 1 

27 74LS174 5 PD416C-3 65 4.7k 53 0.01 124 1000p 
28 74LS32 6 PD416C-3 66 4.7k 54 0.01/ 125 1000p 
29 74LS74 7 PD416C-3 67 4.7k 55 0.01 126 1000p 
30 74LS367 8 PD416C-3 68 4.7k 56 0.01 127 1000p 
31 74LS367 69 4.7k 57 0.01z 128 1000p 
32 74LS367 70 200 5 0.01 129 1000p 
33 PD1990C 品 生 | 抵 挑 値 | | 7! 4.7k 59 0.01 130 1000p 
34 74LS86 1 47 72 1k 60 0.01 131 

35 74LS27 P kd 73 4.7k 61 0.01Z 132 1000p 
36 74LS08 3 6 74 1k 62 0.01z 133 1000p 
37 74LS04 2 二 75 1k 63 0.01/ 134 1000p 
38 74LS367 は 時 76 4.7k 64 0.01/ 135 1000p 
39 74LS32 泊 77 10k 65 0.01/ 136 1000p 
40 74LS125 6 和 78 4.7k 66 20p 137 1000p 
41 74LS32 8 暫 79 1k 67 20p 9 ー 
42 74LS14 9 80 100k 68 0.01 5 ) ダイ オー ト 
の 時 0 10 隊 に コン デン 69 0.01Z 品 本 人 束 名 

4LS32 条 光 70 0.01z 12 RG8551 ゴ "| 

45 74LS74 12 1k 品番 5 由 0.01/ 2 RD5.1E 
46 74LS74 13 4.7k 1 0.01 MOE 3 1S953 
室 | 74LS161 14 120 2 2 た OO 4 1S953 
0 74PS174 15 | 47k 3 22 | 還 001/ 5 1S953 
49 | 74LSO0O | 4 22/ | 二 0a44 6 1S953 
90 | 7407 17 4.7k 5 1 ONIOIA 7 1S953 
51 74LS08 18 1 6 01z 77 0.22Z 

52 74DS2U 19 1.5k の 0.1z 78 22 ん 6 ) トラ ンジ スタ 
53 74LS04 20 100k 8 01/ 79 15 本 ie 
54 74LS161 り 1 0 9 01z 80 1z 

55 | 74LS174 22 0 | 81 | 22g 1 2SC945 
99 。PFD3301D 23 100k 1 D 82 33p SC945 
57 74LS08 こ 83 33p 3 2SC945 
3 M 24 33k 12 0.1z 

58 74LS04 25 100k 13 0.1/ 94 220p 7 ) X'tal 

59 74LS74 26 人 補 85 220p 

リ 74 

60 74LS393 27 4.7k 15 01 86 1 品番 間 品 。 名 
61 74LS08 28 因 16 01z 87 0.01 1 15.9744MHz 
62 206 一 39 1k 17 0.1z 88 0.01z 2 14.31818MHz 
63 74LS157 30 1k 18 0 89 0.01 3 32.768kHz 
64 74LS74 31 25 19 01z 90 0.01z 

65 74LS393 32 68 20 01z 91 0.01z 

66 74LS393 33 10k と 0.1 92 0.01/ 

67 74LS04 34 100 22 0.01 93 0.01Z 

68 74LS10 35 1k 23 0.01z 94 0.01Z 

69 74LS145 36 1k 24 0.01z 95 0.01z 

70 PD8251C 37 430 25 0.01z 96 001z 









































《 ご 注意 〉 本 回 路 図 集 は メー カー が 保証 し た も の で は あり ませ ん の て 使用 に あたっ て は ご 注意 くだ さい . ( 編 ) 
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PSON MP-80 ユ ー ザ ー 必 携 の 書 
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東京 ・ 代 々 木 
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NO 


特集 三 ビ ジネス ・ ソ フト の 作り 方 
基礎 統計 ・ ゼ ッ ト チ ャ ー ト ・ 経 済 比較 法 
所 得 税 計 算 ・ 給 与 計算 ・ 潤 記 ・ 株 式 ・ マ ト 
リッ クス 会 計 ・ 数 値 計算 ・ 宛 名 印刷 ・ 需 
要 予 測 ・ 不 動産 管理 ・ 構 造 化 プ ログ ラミ 
ッ ク 央 門 


B 5 判 192 頁 / 定 価 1900 円 (〒300) 
Z ン 
7/ ゲ クン [ 
UM0 好評 発売 中 / 


東京 ・ 代 々 木 


工学 社 
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B5 判 280 真 定価 2.500 円 (〒300) 


ジス テム ・ プ ログ ラム 


買え ば 何 十 万 円 に も な る 基本 プロ グラ ム に アマ チュ ア が 挑戦 / た ち 


まち 重版 / 
モニ タ ・ エ ディ タ ・ ア セン プラ ・ 逆 アモ ンプ ラ ・ イ ンタ ー プ リタ ・ 
コ ン バ パイ ラ ……… etc 


y 出 て くる マシ ン … 


し 』 
アプ リケーション ・ プ ログ ラム ① 
マイ コン 用 の 価値 ある 応用 プロ グラ ム を 多数 収録 . 

ぁ 作 表 ・2 次 元 3 次 元 表示 ・ 乱 数 ・ 適 性 検査 ・ 成 績 管理 ・ 
ッ サ ・ 株 式 売買 ・ 家 計 簿 ・ 品 質 管理 ・ 
出 て くる マシ ン … PC-8001・M 2Z -80・APPLEII ・ 


シス テム ・ プ ログ ラム 


No.1 か ら 1 年 . 全国 の マイ コン ・ フ ァ ン の 成果 を 再び . 


用 どど / 石 gd だ 7 を 50 


APPLE/PET の ユー ザー と 6502 フ ァ ン の ため の ガイ ドブ ッ ク 
怒 APPLE デ ィ ス ク 夜 話 娘 APPLE FORTH 娘 PET3032 人 徹底 研究 
支 6502 モ ニタ ・……… etc. 


プロ グラ ム 箸 上 グー am を 人 200 


『 電 員 コ ー ナ ー』 が 本 に な っ た し 


グラ ファ ッ ク ・ プ グン タタ の 匂 // グ aa amem 


MP-80 ユ ー ザ ー 必 携 の ハン ド プ ブック. 


A 戸 戸 / g77 戸 了 85 70 綱 を 価 2500 円 


いよ いよ 第 2 纏 が 発行 され ます (7 月 下旬 刊 ) . 


| 6 「 徹 底 研 究 ン ン リ ー ズ 」 
B5 判 定価 各 1.900 円 (〒300) 


絢香 ① 『 マ イコ ン 人 徹底 研究 」 


M6800 を ハー ド か ら ソ フト まで 初心 者 に も ち も わ か る よう に , 
に 解説 マイ コン の 入門 書 と し て 大 好評 


別 季 ふ 『B AS1IC ゲー ム 人 徹底 研究 」 


Tiny BASIC や レベ ル 1BASIC の プロ グラ ミン グ の 基礎 か ら 応 用 ま 
で , 徹底 的 に 解説 . 


ツー ドジ ロモ 


PET・M100 





て いね い 








別 和 の 『 マ シン 記 語 徹底 研究 』 

* マ シン 語 ” と 半 い た だ け で ゾ ッ ” と する あな た の た だ た め の 入 門 書 . 
Z 80, 8080、 6800,、 6502 を 解説 . 

史生 $『 マ イコ ン ・ ゲ ー ム 徹底 研究 |2|」 
HEAD-ON, スペ ー ス ・ イ ン ベ ー ダ ー, Tiny 与 作 な ど 楽 し い ゲ ー ム 
を 満載 / 


別 好 0『 マ イコ ン ・ ソ フト 往 底 研究 」 

アセ モン プラ 入 門 か ら DO S の 作り 方 まで , ソフ ト に 強く な り だ た いあ 
な た の た め の 解 説 書 

別 和 ⑪『 マ イコ ン ・ ゲ ー ム の 本 [1 


平安 京 エ イリ アン か ら グ ラフ ィ ッ ク 麻 雀 ま で PC-8001. 
ー シ ッ クマ スタ ーL 3 の ゲー ム を 満載 ノ 


MZ-80、 べ 
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ルン ノー と た ニン バァ ルンルン 
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me 192 頁 定価 1, は 
得 税 計算 ・ 株 式 プ ログ ラム … 





給与 計算 ・ 


ん BOOKS | 


CAP- 入 門 (56 年 度 版 〕 


赤松 徹 著 

た っ た 12 の 命令 を 覚え を る だ け で アセ モ 
術 者 試験 受験 者 ば か り で な く 、 
入門 書 で す . 


PASCAL 入 門 


マン チェ スタ ー 大 学 LR.Wilson/A.M.Addyman 著 \1.200 (〒250) 
PASCAL を 60 も の 豊富 な 例題 で わか りや すく 0 本 書 は , 

PASCAL 入門 書 と し て 全 世 界 に 愛 謗 者 を 持ち , 英 ・ 独 ・ 米 ・ で 出 
版 き され て いま す . あな た も 本 書 で PASCAL を マス ター し て くだ さき 


UCSD PASCAL 演 習 


カリ フォ ルニア 大 学 Kenneth L.Bowles 著 \2.900 (〒300) 
あの UCSD PASCAL の 開発 者 Bowles の 普 ~Problem Solving 
Using PASCAL” の 翻訳 が 近々 刊行 され ます . ご 期待 くだ さい . 


マイ コン ロボ ッ ト の 作り 方 


Tod Loofbourrow 著 水島 敏夫 訳 \980 (〒250 
ロボ ポッ ト の フレ ー ム 作り か ら , マイ コン に よる 制御 の し か た まで 徹 
底 的 に わか りや すく 解説 . アル ミ 材 の 加工 の 仕方 、IC の ビン 接続 
プロ グラ ム ・ リ スト な ど が 詳細 に 述べ られ て いま す . 

あな た も ロボ ポット 『MIKE』 を 作っ て み ま せ ん か ? 


対訳 ポケ ッ ト 電卓 ゲー ム 


Edwin Schlossberg/John Brockman 著 \980 (〒250) 
電卓 で 遊び な が ら 英 語 を マス ター し まし ょ う / 

普 者 は シュ ロス バーグ (科学 ・ 婦 学 博 士 ) と プロ ッ ク マ ン (哲学 
ヨ 選 0 に 


ディ ー ラ ー を や っ つけ ろ / 


カリ フォ ルニア 大 学 エ ド ワ ー ド ・O・ ソ ー プ 著 四 六 判 \1.800(〒250) 
カリ フォ ルニア 大 学 の 数 学 教授 が コン ピュ ー タ を 使っ て プラ ッ ク ジ 
ャ ッ ク の 必勝 法 を 開発 / お か げ で ラス ベガ が ガス や プエルト リコ の カジ 
ノ は 大 恐慌 , 本 書き さえ あれ ば , "ミス ターK” も 大 負け し な いで 済ん 
だ !? ギャ ンプ ブラ ー の あな た の 必読 書 ./ 米 国 で ベス ト セ ラー/ 


る 【・】 ゃ 9 と 
コン ピュ ー タ 犯罪 と の 戦い 
アメ リカ 大 学 オ ー ガ スト ・ ベ クエ イ 著 四 六 判 Y1.200(〒250) 
鉄道 か ら 貨車 が 200 台 蒸発 . 預金 口座 か ら 数 百 万 ドル が 蒸発 ,。 コン ピ 
ュー タ 犯 罪 は 貧しい 者 が 行なう 犯罪 で は な い . その 主役 は 若く て 教 
養 の ある 技術 的 に 有 能 な エリ ー Ce 
ホワ イト ・ カ ラー 犯罪 の 中 で 大 き な 割 
ピュ ー タ 犯罪 を 米国 の 第 1 人 者 が 解説 





\1.900 (〒800) 
ンプ ブラ が わか る // 情報 処理 技 
アモ セン プラ 入 門 者 に と っ て も 格好 の 
















合 を 占め る よう に な っ だ た コン 


1/O に 掲載 され た 主要 記事 を 再編 集 し て お と どけ し ます . 
No1〔78 年 ハー ド 編 上 〕 定価 各 2,500 円 (〒300) 
No2〔78 年 ハー ド 編 下 〕 No6〔79 年 ソフ ト 編 上 〕 
No3〔78 年 ソフ ト 編 〕 No7〔79 年 ソフ ト 編 下 〕 
No4〔79 年 ハー ド 編 上 )〕 No8〔MZ-80 活 用 研究 (\1900)〕 
No5〔79 年 ハー ド 編 下 〕 No9〔PC- 8001 活 用 研究 〕 
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1O 


編 集 後 記 


較 PC-8001 は 発表 当時 . その 価格 と 機能 で 大 き な 話 題 に 
な り ま し た . ワン ポ ボード ・ マ イコ ン 時 代 か ら パー ソナ ル 
・ コ ンピュータ 時 代 へ の 決定 打 だ っ た と 言っ て も 過言 で 
な いく らい の イン パク ト で し た . APPLEII,PET,TRS 
-80 な どの 外国 勢 が 日 本 に 上 陸 し て きた と まき, 現在 の よう 
に 国産 の パー ソナ ル ・ コ ンピュータ が 堂々 と ベス トモ セラ 
ー・ マ シン に な る こと を 了 予測 で きた 方 が 何人 いた で し ょ 
うか . 現在 ,、 PC-8001 は ホビ ー に , 実務 に 多く の ユー ザ 
ー を 獲得 ソフ ト の 数 も 海外 の マシ ン と 同等 に 摘 い つ 
つ あ り ま す -. "81 年 来 に は PC-8000 シ リー の ファ ミリ ー 
と し て , 下位 の PC-6000, 上 位 の PC-8800 シ リー ズ も 発 
表 さ きれ, ます ます ユー ザー の 層 が 厚く な る こと が 子 想 さき 


れ ま す . 
田 本 書 に 収録 し た 記事 は '80 年 に 月 刊 誌 1/O に 発表 きれ た 
も の が 中 心 で す が .。 ユー ザー が いか に PC-8001 を 料理 し 
て いっ た か , その 歩み が わか る と 思い ます . まだ , モニ 
タ の 解析 。 アセ ンプ ブラ, 逆 ア セン ブラ な ど , ソフ ト 開 発 
に 必要 な 情報 も 満載 し て いま す . また , 河合 氏 の 『PC- 
8001 央 問 還 ほ 。 パー ニン カル < コンピ 且 三 タ 円 コー スズ の 
講師 と し て の 豊富 な 経験 を 生か し た , わか りや すい 構成 
に な っ て いま す . ビギナー の 方 は も ちろ ん , か な り の べべ 
テラ ン の 方 に も 参考 に な る 点 が 多い と 思い ます . ぜひ ご 
一 読 を . 
圏 な お , 現在 毎月 多く の PC に 関す る 記事 が 掲載 され 
て お り , 『PC-8001 活 用 研究 』 も 続編 を 子 定 し て いま す . 
本 書 や 1/O を ご 覧 に な っ て PC に 関す る 新しい アイ デ 
ア が 出 た ら , ぜひ 1/O に 投稿 し て くだ さる よう お 願い い 
7 を まな 
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